Lines Matching defs:SNAME
391 SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
412 CHARACTER*6 SNAME
447 FULL = SNAME( 3: 3 ).EQ.'E'
448 BANDED = SNAME( 3: 3 ).EQ.'B'
500 CALL DMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
575 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
585 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
694 WRITE( NOUT, FMT = 9999 )SNAME, NC
696 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
701 WRITE( NOUT, FMT = 9996 )SNAME
703 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
706 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
732 SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
753 CHARACTER*6 SNAME
787 FULL = SNAME( 3: 3 ).EQ.'Y'
788 BANDED = SNAME( 3: 3 ).EQ.'B'
789 PACKED = SNAME( 3: 3 ).EQ.'P'
841 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
902 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
910 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
919 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1032 WRITE( NOUT, FMT = 9999 )SNAME, NC
1034 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1039 WRITE( NOUT, FMT = 9996 )SNAME
1041 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1044 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1047 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1075 SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1094 CHARACTER*6 SNAME
1127 FULL = SNAME( 3: 3 ).EQ.'R'
1128 BANDED = SNAME( 3: 3 ).EQ.'B'
1129 PACKED = SNAME( 3: 3 ).EQ.'P'
1191 CALL DMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1229 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1232 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1240 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1248 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1255 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1258 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1266 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1274 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1344 IF( SNAME( 4: 5 ).EQ.'MV' )THEN
1352 ELSE IF( SNAME( 4: 5 ).EQ.'SV' )THEN
1391 WRITE( NOUT, FMT = 9999 )SNAME, NC
1393 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1398 WRITE( NOUT, FMT = 9996 )SNAME
1400 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1403 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1406 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1432 SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1452 CHARACTER*6 SNAME
1543 CALL DMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1569 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1660 WRITE( NOUT, FMT = 9999 )SNAME, NC
1662 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1670 WRITE( NOUT, FMT = 9996 )SNAME
1671 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1693 SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1713 CHARACTER*6 SNAME
1746 FULL = SNAME( 3: 3 ).EQ.'Y'
1747 PACKED = SNAME( 3: 3 ).EQ.'P'
1799 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1822 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1829 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1854 ISAME( 6 ) = LDERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1932 WRITE( NOUT, FMT = 9999 )SNAME, NC
1934 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1942 WRITE( NOUT, FMT = 9996 )SNAME
1944 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX, LDA
1946 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX
1971 SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1991 CHARACTER*6 SNAME
2025 FULL = SNAME( 3: 3 ).EQ.'Y'
2026 PACKED = SNAME( 3: 3 ).EQ.'P'
2092 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2120 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2128 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2156 ISAME( 8 ) = LDERES( SNAME( 2: 3 ), UPLO, N, N,
2246 WRITE( NOUT, FMT = 9999 )SNAME, NC
2248 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2256 WRITE( NOUT, FMT = 9996 )SNAME
2258 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2261 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY