Lines Matching defs:SNAME
356 SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
377 CHARACTER*6 SNAME
523 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
606 WRITE( NOUT, FMT = 9999 )SNAME, NC
608 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
613 WRITE( NOUT, FMT = 9996 )SNAME
614 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
637 SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
658 CHARACTER*6 SNAME
790 $ WRITE( NTRA, FMT = 9995 )NC, SNAME, SIDE,
876 WRITE( NOUT, FMT = 9999 )SNAME, NC
878 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
883 WRITE( NOUT, FMT = 9996 )SNAME
884 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
907 SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
928 CHARACTER*6 SNAME
1051 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1053 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1060 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1062 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1113 IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1130 ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1182 WRITE( NOUT, FMT = 9999 )SNAME, NC
1184 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1189 WRITE( NOUT, FMT = 9996 )SNAME
1190 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1212 SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1233 CHARACTER*6 SNAME
1349 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1452 WRITE( NOUT, FMT = 9999 )SNAME, NC
1454 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1463 WRITE( NOUT, FMT = 9996 )SNAME
1464 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1487 SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1508 CHARACTER*6 SNAME
1645 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1765 WRITE( NOUT, FMT = 9999 )SNAME, NC
1767 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1776 WRITE( NOUT, FMT = 9996 )SNAME
1777 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,