7 int link_xerbla=TRUE;
45    cblas_ok = TRUE ;  in F77_c2chke()
79       cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;  in F77_c2chke()
83       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
87       cblas_info = 4; RowMajorStrg = TRUE;  in F77_c2chke()
91       cblas_info = 7; RowMajorStrg = TRUE;  in F77_c2chke()
95       cblas_info = 9; RowMajorStrg = TRUE;  in F77_c2chke()
99       cblas_info = 12; RowMajorStrg = TRUE;  in F77_c2chke()
141       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
145       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
149       cblas_info = 4; RowMajorStrg = TRUE;  in F77_c2chke()
153       cblas_info = 5; RowMajorStrg = TRUE;  in F77_c2chke()
157       cblas_info = 6; RowMajorStrg = TRUE;  in F77_c2chke()
161       cblas_info = 9; RowMajorStrg = TRUE;  in F77_c2chke()
165       cblas_info = 11; RowMajorStrg = TRUE;  in F77_c2chke()
169       cblas_info = 14; RowMajorStrg = TRUE;  in F77_c2chke()
199       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
203       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
207       cblas_info = 6; RowMajorStrg = TRUE;  in F77_c2chke()
211       cblas_info = 8; RowMajorStrg = TRUE;  in F77_c2chke()
215       cblas_info = 11; RowMajorStrg = TRUE;  in F77_c2chke()
249       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
253       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
257       cblas_info = 4; RowMajorStrg = TRUE;  in F77_c2chke()
261       cblas_info = 7; RowMajorStrg = TRUE;  in F77_c2chke()
265       cblas_info = 9; RowMajorStrg = TRUE;  in F77_c2chke()
269       cblas_info = 12; RowMajorStrg = TRUE;  in F77_c2chke()
295       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
299       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
303       cblas_info = 7; RowMajorStrg = TRUE;  in F77_c2chke()
307       cblas_info = 10; RowMajorStrg = TRUE;  in F77_c2chke()
341       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
345       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
349       cblas_info = 4; RowMajorStrg = TRUE;  in F77_c2chke()
353       cblas_info = 5; RowMajorStrg = TRUE;  in F77_c2chke()
357       cblas_info = 7; RowMajorStrg = TRUE;  in F77_c2chke()
361       cblas_info = 9; RowMajorStrg = TRUE;  in F77_c2chke()
399       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
403       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
407       cblas_info = 4; RowMajorStrg = TRUE;  in F77_c2chke()
411       cblas_info = 5; RowMajorStrg = TRUE;  in F77_c2chke()
415       cblas_info = 6; RowMajorStrg = TRUE;  in F77_c2chke()
419       cblas_info = 8; RowMajorStrg = TRUE;  in F77_c2chke()
423       cblas_info = 10; RowMajorStrg = TRUE;  in F77_c2chke()
453       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
457       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
461       cblas_info = 4; RowMajorStrg = TRUE;  in F77_c2chke()
465       cblas_info = 5; RowMajorStrg = TRUE;  in F77_c2chke()
469       cblas_info = 8; RowMajorStrg = TRUE;  in F77_c2chke()
503       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
507       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
511       cblas_info = 4; RowMajorStrg = TRUE;  in F77_c2chke()
515       cblas_info = 5; RowMajorStrg = TRUE;  in F77_c2chke()
519       cblas_info = 7; RowMajorStrg = TRUE;  in F77_c2chke()
523       cblas_info = 9; RowMajorStrg = TRUE;  in F77_c2chke()
561       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
565       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
569       cblas_info = 4; RowMajorStrg = TRUE;  in F77_c2chke()
573       cblas_info = 5; RowMajorStrg = TRUE;  in F77_c2chke()
577       cblas_info = 6; RowMajorStrg = TRUE;  in F77_c2chke()
581       cblas_info = 8; RowMajorStrg = TRUE;  in F77_c2chke()
585       cblas_info = 10; RowMajorStrg = TRUE;  in F77_c2chke()
615       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
619       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
623       cblas_info = 4; RowMajorStrg = TRUE;  in F77_c2chke()
627       cblas_info = 5; RowMajorStrg = TRUE;  in F77_c2chke()
631       cblas_info = 8; RowMajorStrg = TRUE;  in F77_c2chke()
655       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
658       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
661       cblas_info = 6; RowMajorStrg = TRUE;  in F77_c2chke()
664       cblas_info = 8; RowMajorStrg = TRUE;  in F77_c2chke()
667       cblas_info = 10; RowMajorStrg = TRUE;  in F77_c2chke()
690       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
693       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
696       cblas_info = 6; RowMajorStrg = TRUE;  in F77_c2chke()
699       cblas_info = 8; RowMajorStrg = TRUE;  in F77_c2chke()
702       cblas_info = 10; RowMajorStrg = TRUE;  in F77_c2chke()
725       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
728       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
731       cblas_info = 6; RowMajorStrg = TRUE;  in F77_c2chke()
734       cblas_info = 8; RowMajorStrg = TRUE;  in F77_c2chke()
737       cblas_info = 10; RowMajorStrg = TRUE;  in F77_c2chke()
757       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
760       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
763       cblas_info = 6; RowMajorStrg = TRUE;  in F77_c2chke()
766       cblas_info = 8; RowMajorStrg = TRUE;  in F77_c2chke()
786       cblas_info = 2; RowMajorStrg = TRUE;  in F77_c2chke()
789       cblas_info = 3; RowMajorStrg = TRUE;  in F77_c2chke()
792       cblas_info = 6; RowMajorStrg = TRUE;  in F77_c2chke()
795       cblas_info = 8; RowMajorStrg = TRUE;  in F77_c2chke()
822    if (cblas_ok == TRUE)  in F77_c2chke()