Lines Matching refs:SNAME
426 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
450 CHARACTER*12 SNAME
598 $ CALL ZPRCN1(NTRA, NC, SNAME, IORDER,
682 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
683 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
685 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
686 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
691 WRITE( NOUT, FMT = 9996 )SNAME
692 CALL ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB,
721 SUBROUTINE ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,
726 CHARACTER*12 SNAME
748 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
756 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
780 CHARACTER*12 SNAME
815 CONJ = SNAME( 8: 9 ).EQ.'he'
873 CALL ZMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX,
914 $ CALL ZPRCN2(NTRA, NC, SNAME, IORDER,
1008 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1009 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1011 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1012 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1017 WRITE( NOUT, FMT = 9996 )SNAME
1018 CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1047 SUBROUTINE ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,
1052 CHARACTER*12 SNAME
1070 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1078 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1101 CHARACTER*12 SNAME
1226 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1228 $ CALL ZPRCN3( NTRA, NC, SNAME, IORDER,
1236 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1238 $ CALL ZPRCN3( NTRA, NC, SNAME, IORDER,
1290 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1307 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1359 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1360 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1362 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1363 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1368 WRITE( NOUT, FMT = 9996 )SNAME
1369 CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1398 SUBROUTINE ZPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,
1403 CHARACTER*12 SNAME
1433 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1441 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1465 CHARACTER*12 SNAME
1500 CONJ = SNAME( 8: 9 ).EQ.'he'
1571 CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
1605 $ CALL ZPRCN6( NTRA, NC, SNAME, IORDER,
1615 $ CALL ZPRCN4( NTRA, NC, SNAME, IORDER,
1652 ISAME( 9 ) = LZERES( SNAME( 8: 9 ), UPLO, N,
1732 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1733 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1735 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1736 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1745 WRITE( NOUT, FMT = 9996 )SNAME
1747 CALL ZPRCN6( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, RALPHA,
1750 CALL ZPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1784 SUBROUTINE ZPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
1789 CHARACTER*12 SNAME
1809 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1818 SUBROUTINE ZPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
1823 CHARACTER*12 SNAME
1843 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1851 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1875 CHARACTER*12 SNAME
1910 CONJ = SNAME( 8: 9 ).EQ.'he'
1994 CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
2028 $ CALL ZPRCN7( NTRA, NC, SNAME, IORDER,
2038 $ CALL ZPRCN5( NTRA, NC, SNAME, IORDER,
2185 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2186 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2188 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2189 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2198 WRITE( NOUT, FMT = 9996 )SNAME
2200 CALL ZPRCN7( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2203 CALL ZPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2237 SUBROUTINE ZPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
2242 CHARACTER*12 SNAME
2262 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2271 SUBROUTINE ZPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
2277 CHARACTER*12 SNAME
2297 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA