Changeset 5c52d524 in OpenModelica
- Timestamp:
- 2020-11-11T13:16:35+01:00 (3 years ago)
- Branches:
- maintenance/v1.14
- Parents:
- e269b242
- git-author:
- Martin Sjölund <martin.sjolund@…> (11/11/20 13:16:35)
- git-committer:
- GitHub <noreply@…> (11/11/20 13:16:35)
- Location:
- OMCompiler
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
OMCompiler/Compiler/runtime/lapackimpl.c
r83be5f2b r5c52d524 80 80 #endif 81 81 82 #ifndef NO_LAPACK 83 84 extern int dgeev_(const char *jobvl, const char *jobvr, integer *n, 85 doublereal *a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, 86 integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, 87 integer *lwork, integer *info); 82 #ifdef HAVE_LAPACK_DEPRECATED 83 84 extern int dgeqpf_(integer *m, integer *n, doublereal *a, integer *lda, 85 integer *jpvt, doublereal *tau, doublereal *work, integer *info); 88 86 89 87 extern int dgegv_(const char *jobvl, const char *jobvr, integer *n, doublereal *a, … … 93 91 integer *info); 94 92 93 extern int dgelsx_(integer *m, integer *n, integer *nrhs, doublereal *a, 94 integer *lda, doublereal *b, integer *ldb, integer *jpvt, doublereal *rcond, 95 integer *rank, doublereal *work, integer *info); 96 97 #endif 98 99 #ifndef NO_LAPACK 100 101 extern int dgeev_(const char *jobvl, const char *jobvr, integer *n, 102 doublereal *a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, 103 integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, 104 integer *lwork, integer *info); 105 95 106 extern int dgels_(const char *trans, integer *m, integer *n, integer *nrhs, 96 107 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *work, 97 108 integer *lwork, integer *info); 98 109 99 extern int dgelsx_(integer *m, integer *n, integer *nrhs, doublereal *a,100 integer *lda, doublereal *b, integer *ldb, integer *jpvt, doublereal *rcond,101 integer *rank, doublereal *work, integer *info);102 103 110 extern int dgelsy_(integer *m, integer *n, integer *nrhs, doublereal *a, 104 111 integer *lda, doublereal *b, integer *ldb, integer *jpvt, doublereal *rcond, … … 131 138 extern int dgetri_(integer *n, doublereal *a, integer *lda, integer *ipiv, 132 139 doublereal *work, integer *lwork, integer *info); 133 134 extern int dgeqpf_(integer *m, integer *n, doublereal *a, integer *lda,135 integer *jpvt, doublereal *tau, doublereal *work, integer *info);136 140 137 141 extern int dorgqr_(integer *m, integer *n, integer *k, doublereal *a, … … 356 360 void **outWORK, int *INFO) 357 361 { 358 #if ndef NO_LAPACK362 #ifdef HAVE_LAPACK_DEPRECATED 359 363 integer n, lda, ldb, ldvl, ldvr, lwork, info = 0; 360 364 double *a, *b, *work, *alphar, *alphai, *beta, *vl, *vr; … … 438 442 void **outA, void **outB, void **outJPVT, int *RANK, int *INFO) 439 443 { 440 #if ndef NO_LAPACK444 #ifdef HAVE_LAPACK_DEPRECATED 441 445 integer m, n, nrhs, lda, ldb, rank = 0, info = 0, lwork; 442 446 double *a, *b, *work; … … 793 797 void *WORK, void **outA, void **outJPVT, void **TAU, int *INFO) 794 798 { 795 #if ndef NO_LAPACK799 #ifdef HAVE_LAPACK_DEPRECATED 796 800 integer m, n, lda, lwork, ldtau, info = 0; 797 801 double *a, *tau, *work; -
OMCompiler/m4/lapack.m4
r83be5f2b r5c52d524 89 89 ]) 90 90 fi 91 if test ! -z "$LD_LAPACK"; then 92 # lapack 3.6.0 deprecated dgegv, dgelsx, dgeqpf 93 AC_MSG_CHECKING([for deprecated LAPACK routines]) 94 AC_LINK_IFELSE([AC_LANG_CALL([], [dgegv_])],[AC_MSG_RESULT([yes]); NO_LAPACK="#define HAVE_LAPACK_DEPRECATED 1"],[ 95 AC_MSG_RESULT([no]) 96 ]) 97 fi 91 98 LIBS="$OLDLIBS" 92 99 AC_LANG_POP([C])
Note: See TracChangeset
for help on using the changeset viewer.