Lines Matching defs:SNAME
405 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
428 CHARACTER*6 SNAME
576 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
659 WRITE( NOUT, FMT = 9999 )SNAME, NC
661 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
666 WRITE( NOUT, FMT = 9996 )SNAME
667 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
690 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
713 CHARACTER*6 SNAME
748 CONJ = SNAME( 2: 3 ).EQ.'HE'
806 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
847 $ WRITE( NTRA, FMT = 9995 )NC, SNAME, SIDE,
938 WRITE( NOUT, FMT = 9999 )SNAME, NC
940 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
945 WRITE( NOUT, FMT = 9996 )SNAME
946 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
969 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
992 CHARACTER*6 SNAME
1117 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1119 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1126 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1128 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1179 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1196 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1248 WRITE( NOUT, FMT = 9999 )SNAME, NC
1250 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1255 WRITE( NOUT, FMT = 9996 )SNAME
1256 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1279 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1302 CHARACTER*6 SNAME
1337 CONJ = SNAME( 2: 3 ).EQ.'HE'
1408 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1442 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1450 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1487 ISAME( 9 ) = LCERES( SNAME( 2: 3 ), UPLO, N,
1567 WRITE( NOUT, FMT = 9999 )SNAME, NC
1569 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1578 WRITE( NOUT, FMT = 9996 )SNAME
1580 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA,
1583 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1611 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1634 CHARACTER*6 SNAME
1669 CONJ = SNAME( 2: 3 ).EQ.'HE'
1753 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1787 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1795 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1940 WRITE( NOUT, FMT = 9999 )SNAME, NC
1942 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1951 WRITE( NOUT, FMT = 9996 )SNAME
1953 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1956 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,