Lines Matching refs:SNAME
462 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
485 CHARACTER*12 SNAME
522 FULL = SNAME( 9: 9 ).EQ.'e'
523 BANDED = SNAME( 9: 9 ).EQ.'b'
575 CALL CMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX, AA,
657 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
667 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
778 WRITE( NOUT, FMT = 9999 )SNAME, NC
780 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
785 WRITE( NOUT, FMT = 9996 )SNAME
787 WRITE( NOUT, FMT = 9994 )NC, SNAME, CTRANS, M, N, ALPHA, LDA,
790 WRITE( NOUT, FMT = 9995 )NC, SNAME, CTRANS, M, N, KL, KU,
817 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
840 CHARACTER*12 SNAME
876 FULL = SNAME( 9: 9 ).EQ.'e'
877 BANDED = SNAME( 9: 9 ).EQ.'b'
878 PACKED = SNAME( 9: 9 ).EQ.'p'
935 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
996 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1005 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1015 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1128 WRITE( NOUT, FMT = 9999 )SNAME, NC
1130 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1135 WRITE( NOUT, FMT = 9996 )SNAME
1137 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, LDA, INCX,
1140 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, K, ALPHA, LDA,
1143 WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, N, ALPHA, INCX,
1173 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1196 CHARACTER*12 SNAME
1231 FULL = SNAME( 9: 9 ).EQ.'r'
1232 BANDED = SNAME( 9: 9 ).EQ.'b'
1233 PACKED = SNAME( 9: 9 ).EQ.'p'
1312 CALL CMAKE( SNAME( 8: 9 ), UPLO, DIAG, N, N, A,
1350 IF( SNAME( 10: 11 ).EQ.'mv' )THEN
1353 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1361 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1369 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1376 ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
1379 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1387 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1395 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1465 IF( SNAME( 10: 11 ).EQ.'mv' )THEN
1473 ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
1512 WRITE( NOUT, FMT = 9999 )SNAME, NC
1514 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1519 WRITE( NOUT, FMT = 9996 )SNAME
1521 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1524 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, CTRANS, CDIAG, N, K,
1527 WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1554 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1578 CHARACTER*12 SNAME
1610 CONJ = SNAME( 11: 11 ).EQ.'c'
1672 CALL CMAKE(SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX,
1698 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1798 WRITE( NOUT, FMT = 9999 )SNAME, NC
1800 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1808 WRITE( NOUT, FMT = 9996 )SNAME
1809 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1831 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1855 CHARACTER*12 SNAME
1891 FULL = SNAME( 9: 9 ).EQ.'e'
1892 PACKED = SNAME( 9: 9 ).EQ.'p'
1950 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX,
1973 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
1981 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2007 ISAME( 6 ) = LCERES( SNAME( 8: 9 ), UPLO, N, N, AS,
2085 WRITE( NOUT, FMT = 9999 )SNAME, NC
2087 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2095 WRITE( NOUT, FMT = 9996 )SNAME
2097 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, RALPHA, INCX, LDA
2099 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, RALPHA, INCX
2124 SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
2148 CHARACTER*12 SNAME
2185 FULL = SNAME( 9: 9 ).EQ.'e'
2186 PACKED = SNAME( 9: 9 ).EQ.'p'
2257 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A,
2285 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
2293 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2321 ISAME( 8 ) = LCERES( SNAME( 8: 9 ), UPLO, N, N,
2411 WRITE( NOUT, FMT = 9999 )SNAME, NC
2413 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2421 WRITE( NOUT, FMT = 9996 )SNAME
2423 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX,
2426 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX, INCY