Update c_s2chke.c

This commit is contained in:
Martin Kroeker 2021-04-17 22:28:31 +02:00 committed by GitHub
parent 6b65e456e3
commit c516f31eee
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 (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 ;