Lines Matching defs:SNAME
437 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
460 CHARACTER*6 SNAME
496 FULL = SNAME( 3: 3 ).EQ.'E'
497 BANDED = SNAME( 3: 3 ).EQ.'B'
549 CALL CMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
624 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
634 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
743 WRITE( NOUT, FMT = 9999 )SNAME, NC
745 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
750 WRITE( NOUT, FMT = 9996 )SNAME
752 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
755 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
782 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
805 CHARACTER*6 SNAME
840 FULL = SNAME( 3: 3 ).EQ.'E'
841 BANDED = SNAME( 3: 3 ).EQ.'B'
842 PACKED = SNAME( 3: 3 ).EQ.'P'
894 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
955 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
963 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
972 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1085 WRITE( NOUT, FMT = 9999 )SNAME, NC
1087 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1092 WRITE( NOUT, FMT = 9996 )SNAME
1094 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1097 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1100 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1130 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1152 CHARACTER*6 SNAME
1186 FULL = SNAME( 3: 3 ).EQ.'R'
1187 BANDED = SNAME( 3: 3 ).EQ.'B'
1188 PACKED = SNAME( 3: 3 ).EQ.'P'
1250 CALL CMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1288 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1291 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1299 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1307 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1314 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1317 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1325 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1333 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1403 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1411 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1450 WRITE( NOUT, FMT = 9999 )SNAME, NC
1452 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1457 WRITE( NOUT, FMT = 9996 )SNAME
1459 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1462 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1465 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1491 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1514 CHARACTER*6 SNAME
1546 CONJ = SNAME( 5: 5 ).EQ.'C'
1608 CALL CMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1634 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1734 WRITE( NOUT, FMT = 9999 )SNAME, NC
1736 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1744 WRITE( NOUT, FMT = 9996 )SNAME
1745 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1768 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1791 CHARACTER*6 SNAME
1826 FULL = SNAME( 3: 3 ).EQ.'E'
1827 PACKED = SNAME( 3: 3 ).EQ.'P'
1880 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1903 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1910 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1935 ISAME( 6 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N, AS,
2013 WRITE( NOUT, FMT = 9999 )SNAME, NC
2015 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2023 WRITE( NOUT, FMT = 9996 )SNAME
2025 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
2027 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2052 SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
2075 CHARACTER*6 SNAME
2111 FULL = SNAME( 3: 3 ).EQ.'E'
2112 PACKED = SNAME( 3: 3 ).EQ.'P'
2178 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2206 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2214 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2242 ISAME( 8 ) = LCERES( SNAME( 2: 3 ), UPLO, N, N,
2332 WRITE( NOUT, FMT = 9999 )SNAME, NC
2334 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2342 WRITE( NOUT, FMT = 9996 )SNAME
2344 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2347 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY