Browse Source

Update c_s2chke.c

pull/3166/head
Martin Kroeker GitHub 5 years ago
parent
commit
c516f31eee
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
  1. +2
    -2
      ctest/c_s2chke.c

+ 2
- 2
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 (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);
} }
*/
cblas_ok = TRUE ; cblas_ok = TRUE ;
cblas_lerr = PASSED ; cblas_lerr = PASSED ;




Loading…
Cancel
Save