Browse Source
Merge pull request #4813 from martin-frbg/issue4812
Fix incompatible definitions of MAXLOC in f2c-converted LAPACK sourcestags/v0.3.28^2
Martin Kroeker
GitHub
2 years ago
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
4 changed files with 4 additions and 4 deletions
Unified View
Diff Options
-
+1 -1lapack-netlib/SRC/cpstf2.c
-
+1 -1lapack-netlib/SRC/cpstrf.c
-
+1 -1lapack-netlib/SRC/spstf2.c
-
+1 -1lapack-netlib/SRC/spstrf.c
+ 1
- 1
lapack-netlib/SRC/cpstf2.c
View File
| @@ -256,7 +256,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; | |||||
| #define myceiling_(w) {ceil(w)} | #define myceiling_(w) {ceil(w)} | ||||
| #define myhuge_(w) {HUGE_VAL} | #define myhuge_(w) {HUGE_VAL} | ||||
| //#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} | //#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} | ||||
| #define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) | |||||
| #define mymaxloc_(w,s,e,n) smaxloc_(w,*(s),*(e),n) | |||||
| /* procedure parameter types for -A and -C++ */ | /* procedure parameter types for -A and -C++ */ | ||||
+ 1
- 1
lapack-netlib/SRC/cpstrf.c
View File
| @@ -256,7 +256,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; | |||||
| #define myceiling_(w) {ceil(w)} | #define myceiling_(w) {ceil(w)} | ||||
| #define myhuge_(w) {HUGE_VAL} | #define myhuge_(w) {HUGE_VAL} | ||||
| //#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} | //#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} | ||||
| #define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) | |||||
| #define mymaxloc_(w,s,e,n) smaxloc_(w,*(s),*(e),n) | |||||
| /* procedure parameter types for -A and -C++ */ | /* procedure parameter types for -A and -C++ */ | ||||
+ 1
- 1
lapack-netlib/SRC/spstf2.c
View File
| @@ -256,7 +256,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; | |||||
| #define myceiling_(w) {ceil(w)} | #define myceiling_(w) {ceil(w)} | ||||
| #define myhuge_(w) {HUGE_VAL} | #define myhuge_(w) {HUGE_VAL} | ||||
| //#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} | //#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} | ||||
| #define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) | |||||
| #define mymaxloc_(w,s,e,n) smaxloc_(w,*(s),*(e),n) | |||||
| /* procedure parameter types for -A and -C++ */ | /* procedure parameter types for -A and -C++ */ | ||||
+ 1
- 1
lapack-netlib/SRC/spstrf.c
View File
| @@ -256,7 +256,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; | |||||
| #define myceiling_(w) {ceil(w)} | #define myceiling_(w) {ceil(w)} | ||||
| #define myhuge_(w) {HUGE_VAL} | #define myhuge_(w) {HUGE_VAL} | ||||
| //#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} | //#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} | ||||
| #define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) | |||||
| #define mymaxloc_(w,s,e,n) smaxloc_(w,*(s),*(e),n) | |||||
| /* procedure parameter types for -A and -C++ */ | /* procedure parameter types for -A and -C++ */ | ||||