floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update c_s2chke.c

This commit is contained in:
Martin Kroeker 2021-04-17 22:49:20 +02:00 committed by GitHub
parent ffab54482d
commit e2c60eb90e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ctest/c_s2chke.c
View File

@ -33,13 +33,13 @@ void F77_s2chke(char *rout) {
extern int cblas_info, cblas_lerr, cblas_ok; extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg; extern int RowMajorStrg;
extern char *cblas_rout; extern char *cblas_rout;
/* #if 0
if (link_xerbla) /* call these first to link */ if (link_xerbla) /* call these first to link */
{ {
cblas_xerbla(cblas_info,cblas_rout,""); cblas_xerbla(cblas_info,cblas_rout,"");
F77_xerbla(cblas_rout,&cblas_info); F77_xerbla(cblas_rout,&cblas_info);
} }
*/ #endif
cblas_ok = TRUE ; cblas_ok = TRUE ;
cblas_lerr = PASSED ; cblas_lerr = PASSED ;