Fix bug thanks to @langou. Defines LAPACK_FORTRAN_STRLEN_END by defau…

…lt, following @mgates3 comments in @512 and LAPACK++ convention
Reference-LAPACK · Mar 18, 2021 · e4440a7 · e4440a7
1 parent d3e64d6
commit e4440a7
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/CBLAS/include/cblas_f77.h b/CBLAS/include/cblas_f77.h
@@ -11,6 +11,11 @@
 
 #include <stdarg.h>
 
+/* It seems all current Fortran compilers put strlen at end.
+*  Some historical compilers put strlen after the str argument
+*  or make the str argument into a struct. */
+#define LAPACK_FORTRAN_STRLEN_END
+
 #ifdef CRAY
    #include <fortran.h>
    #define F77_CHAR _fcd
@@ -522,6 +527,7 @@
 extern "C" {
 #endif
 
+void F77_xerbla(FCHAR, void *);
 void F77_xerbla_base(FCHAR, void *
    #ifdef LAPACK_FORTRAN_STRLEN_END
       , size_t