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 RowMajorStrg;
extern char *cblas_rout;
/*
if (link_xerbla) /* call these first to link */
{
cblas_xerbla(cblas_info,cblas_rout,"");
F77_xerbla(cblas_rout,&cblas_info);
}
*/
cblas_ok = TRUE ;
cblas_lerr = PASSED ;



Loading…
Cancel
Save