Lines Matching defs:SNAME
425 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
449 CHARACTER*12 SNAME
597 $ CALL CPRCN1(NTRA, NC, SNAME, IORDER,
681 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
682 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
684 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
685 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
690 WRITE( NOUT, FMT = 9996 )SNAME
691 CALL CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB,
720 SUBROUTINE CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,
725 CHARACTER*12 SNAME
747 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
755 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
779 CHARACTER*12 SNAME
814 CONJ = SNAME( 8: 9 ).EQ.'he'
872 CALL CMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX,
913 $ CALL CPRCN2(NTRA, NC, SNAME, IORDER,
1007 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1008 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1010 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1011 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1016 WRITE( NOUT, FMT = 9996 )SNAME
1017 CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1046 SUBROUTINE CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,
1051 CHARACTER*12 SNAME
1069 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1077 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1100 CHARACTER*12 SNAME
1225 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1227 $ CALL CPRCN3( NTRA, NC, SNAME, IORDER,
1235 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1237 $ CALL CPRCN3( NTRA, NC, SNAME, IORDER,
1289 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1306 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1358 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1359 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1361 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1362 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1367 WRITE( NOUT, FMT = 9996 )SNAME
1368 CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1397 SUBROUTINE CPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,
1402 CHARACTER*12 SNAME
1432 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1440 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1464 CHARACTER*12 SNAME
1499 CONJ = SNAME( 8: 9 ).EQ.'he'
1570 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
1604 $ CALL CPRCN6( NTRA, NC, SNAME, IORDER,
1614 $ CALL CPRCN4( NTRA, NC, SNAME, IORDER,
1651 ISAME( 9 ) = LCERES( SNAME( 8: 9 ), UPLO, N,
1731 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1732 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1734 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1735 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1744 WRITE( NOUT, FMT = 9996 )SNAME
1746 CALL CPRCN6( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, RALPHA,
1749 CALL CPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1783 SUBROUTINE CPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
1788 CHARACTER*12 SNAME
1808 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1817 SUBROUTINE CPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
1822 CHARACTER*12 SNAME
1842 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1850 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1874 CHARACTER*12 SNAME
1909 CONJ = SNAME( 8: 9 ).EQ.'he'
1993 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
2027 $ CALL CPRCN7( NTRA, NC, SNAME, IORDER,
2037 $ CALL CPRCN5( NTRA, NC, SNAME, IORDER,
2184 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2185 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2187 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2188 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2197 WRITE( NOUT, FMT = 9996 )SNAME
2199 CALL CPRCN7( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2202 CALL CPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2236 SUBROUTINE CPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
2241 CHARACTER*12 SNAME
2261 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2270 SUBROUTINE CPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
2276 CHARACTER*12 SNAME
2296 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
