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