Update c_s2chke.c
This commit is contained in:
parent
ffab54482d
commit
e2c60eb90e
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue