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

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