7 int link_xerbla=TRUE;
43    cblas_ok = TRUE ;  in F77_s2chke()
77       cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;  in F77_s2chke()
81       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
85       cblas_info = 4; RowMajorStrg = TRUE;  in F77_s2chke()
89       cblas_info = 7; RowMajorStrg = TRUE;  in F77_s2chke()
93       cblas_info = 9; RowMajorStrg = TRUE;  in F77_s2chke()
97       cblas_info = 12; RowMajorStrg = TRUE;  in F77_s2chke()
139       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
143       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
147       cblas_info = 4; RowMajorStrg = TRUE;  in F77_s2chke()
151       cblas_info = 5; RowMajorStrg = TRUE;  in F77_s2chke()
155       cblas_info = 6; RowMajorStrg = TRUE;  in F77_s2chke()
159       cblas_info = 9; RowMajorStrg = TRUE;  in F77_s2chke()
163       cblas_info = 11; RowMajorStrg = TRUE;  in F77_s2chke()
167       cblas_info = 14; RowMajorStrg = TRUE;  in F77_s2chke()
197       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
201       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
205       cblas_info = 6; RowMajorStrg = TRUE;  in F77_s2chke()
209       cblas_info = 8; RowMajorStrg = TRUE;  in F77_s2chke()
213       cblas_info = 11; RowMajorStrg = TRUE;  in F77_s2chke()
247       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
251       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
255       cblas_info = 4; RowMajorStrg = TRUE;  in F77_s2chke()
259       cblas_info = 7; RowMajorStrg = TRUE;  in F77_s2chke()
263       cblas_info = 9; RowMajorStrg = TRUE;  in F77_s2chke()
267       cblas_info = 12; RowMajorStrg = TRUE;  in F77_s2chke()
293       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
297       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
301       cblas_info = 7; RowMajorStrg = TRUE;  in F77_s2chke()
305       cblas_info = 10; RowMajorStrg = TRUE;  in F77_s2chke()
339       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
343       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
347       cblas_info = 4; RowMajorStrg = TRUE;  in F77_s2chke()
351       cblas_info = 5; RowMajorStrg = TRUE;  in F77_s2chke()
355       cblas_info = 7; RowMajorStrg = TRUE;  in F77_s2chke()
359       cblas_info = 9; RowMajorStrg = TRUE;  in F77_s2chke()
397       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
401       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
405       cblas_info = 4; RowMajorStrg = TRUE;  in F77_s2chke()
409       cblas_info = 5; RowMajorStrg = TRUE;  in F77_s2chke()
413       cblas_info = 6; RowMajorStrg = TRUE;  in F77_s2chke()
417       cblas_info = 8; RowMajorStrg = TRUE;  in F77_s2chke()
421       cblas_info = 10; RowMajorStrg = TRUE;  in F77_s2chke()
451       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
455       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
459       cblas_info = 4; RowMajorStrg = TRUE;  in F77_s2chke()
463       cblas_info = 5; RowMajorStrg = TRUE;  in F77_s2chke()
467       cblas_info = 8; RowMajorStrg = TRUE;  in F77_s2chke()
501       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
505       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
509       cblas_info = 4; RowMajorStrg = TRUE;  in F77_s2chke()
513       cblas_info = 5; RowMajorStrg = TRUE;  in F77_s2chke()
517       cblas_info = 7; RowMajorStrg = TRUE;  in F77_s2chke()
521       cblas_info = 9; RowMajorStrg = TRUE;  in F77_s2chke()
559       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
563       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
567       cblas_info = 4; RowMajorStrg = TRUE;  in F77_s2chke()
571       cblas_info = 5; RowMajorStrg = TRUE;  in F77_s2chke()
575       cblas_info = 6; RowMajorStrg = TRUE;  in F77_s2chke()
579       cblas_info = 8; RowMajorStrg = TRUE;  in F77_s2chke()
583       cblas_info = 10; RowMajorStrg = TRUE;  in F77_s2chke()
613       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
617       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
621       cblas_info = 4; RowMajorStrg = TRUE;  in F77_s2chke()
625       cblas_info = 5; RowMajorStrg = TRUE;  in F77_s2chke()
629       cblas_info = 8; RowMajorStrg = TRUE;  in F77_s2chke()
653       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
656       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
659       cblas_info = 6; RowMajorStrg = TRUE;  in F77_s2chke()
662       cblas_info = 8; RowMajorStrg = TRUE;  in F77_s2chke()
665       cblas_info = 10; RowMajorStrg = TRUE;  in F77_s2chke()
688       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
691       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
694       cblas_info = 6; RowMajorStrg = TRUE;  in F77_s2chke()
697       cblas_info = 8; RowMajorStrg = TRUE;  in F77_s2chke()
700       cblas_info = 10; RowMajorStrg = TRUE;  in F77_s2chke()
720       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
723       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
726       cblas_info = 6; RowMajorStrg = TRUE;  in F77_s2chke()
729       cblas_info = 8; RowMajorStrg = TRUE;  in F77_s2chke()
749       cblas_info = 2; RowMajorStrg = TRUE;  in F77_s2chke()
752       cblas_info = 3; RowMajorStrg = TRUE;  in F77_s2chke()
755       cblas_info = 6; RowMajorStrg = TRUE;  in F77_s2chke()
758       cblas_info = 8; RowMajorStrg = TRUE;  in F77_s2chke()
785    if (cblas_ok == TRUE)  in F77_s2chke()