Lines Matching defs:SNAME
407 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
430 CHARACTER*6 SNAME
578 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
661 WRITE( NOUT, FMT = 9999 )SNAME, NC
663 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
668 WRITE( NOUT, FMT = 9996 )SNAME
669 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
692 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
715 CHARACTER*6 SNAME
750 CONJ = SNAME( 2: 3 ).EQ.'HE'
808 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
849 $ WRITE( NTRA, FMT = 9995 )NC, SNAME, SIDE,
940 WRITE( NOUT, FMT = 9999 )SNAME, NC
942 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
947 WRITE( NOUT, FMT = 9996 )SNAME
948 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
971 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
995 CHARACTER*6 SNAME
1120 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1122 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1129 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1131 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1182 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1199 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1251 WRITE( NOUT, FMT = 9999 )SNAME, NC
1253 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1258 WRITE( NOUT, FMT = 9996 )SNAME
1259 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1282 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1305 CHARACTER*6 SNAME
1340 CONJ = SNAME( 2: 3 ).EQ.'HE'
1411 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1445 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1453 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1490 ISAME( 9 ) = LZERES( SNAME( 2: 3 ), UPLO, N,
1570 WRITE( NOUT, FMT = 9999 )SNAME, NC
1572 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1581 WRITE( NOUT, FMT = 9996 )SNAME
1583 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA,
1586 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1614 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1638 CHARACTER*6 SNAME
1673 CONJ = SNAME( 2: 3 ).EQ.'HE'
1757 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1791 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1799 SNAME, UPLO,
1944 WRITE( NOUT, FMT = 9999 )SNAME, NC
1946 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1955 WRITE( NOUT, FMT = 9996 )SNAME
1957 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1960 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
