From c516f31eee80b0aa7af86103ed00bb0e62cbd54d Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 17 Apr 2021 22:28:31 +0200 Subject: [PATCH] Update c_s2chke.c --- ctest/c_s2chke.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ctest/c_s2chke.c b/ctest/c_s2chke.c index 145515300..0da9ff301 100644 --- a/ctest/c_s2chke.c +++ b/ctest/c_s2chke.c @@ -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 ;