Lines Matching refs:SNAME
416 SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
438 CHARACTER*12 SNAME local
584 $ CALL SPRCN1(NTRA, NC, SNAME, IORDER,
668 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
669 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
671 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
672 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
677 WRITE( NOUT, FMT = 9996 )SNAME
678 CALL SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB,
709 SUBROUTINE SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, argument
714 CHARACTER*12 SNAME local
736 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
744 SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
766 CHARACTER*12 SNAME local
898 $ CALL SPRCN2(NTRA, NC, SNAME, IORDER,
985 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
986 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
988 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
989 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
994 WRITE( NOUT, FMT = 9996 )SNAME
995 CALL SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1024 SUBROUTINE SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, argument
1029 CHARACTER*12 SNAME local
1047 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1055 SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1076 CHARACTER*12 SNAME local
1199 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1201 $ CALL SPRCN3( NTRA, NC, SNAME, IORDER,
1209 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1211 $ CALL SPRCN3( NTRA, NC, SNAME, IORDER,
1263 IF( SNAME( 10: 11 ).EQ.'mm' )THEN
1280 ELSE IF( SNAME( 10: 11 ).EQ.'sm' )THEN
1332 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1333 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1335 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1336 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1341 WRITE( NOUT, FMT = 9996 )SNAME
1342 CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1370 SUBROUTINE SPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, argument
1375 CHARACTER*12 SNAME local
1405 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1413 SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1435 CHARACTER*12 SNAME local
1551 $ CALL SPRCN4( NTRA, NC, SNAME, IORDER, UPLO,
1654 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1655 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1657 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1658 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1667 WRITE( NOUT, FMT = 9996 )SNAME
1668 CALL SPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1697 SUBROUTINE SPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, argument
1702 CHARACTER*12 SNAME local
1722 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1730 SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1752 CHARACTER*12 SNAME local
1889 $ CALL SPRCN5( NTRA, NC, SNAME, IORDER, UPLO,
2009 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2010 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2012 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2013 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2022 WRITE( NOUT, FMT = 9996 )SNAME
2023 CALL SPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
2053 SUBROUTINE SPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, argument
2058 CHARACTER*12 SNAME local
2078 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA