450      $                   MA, MB, MS, N, NA, NARGS, NB, NC, NS  local
473       NC = 0
556                            NC = NC + 1
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
678       CALL SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, 
709       SUBROUTINE SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,  argument
711       INTEGER          NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC  local
736       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
778      $                   NARGS, NC, NS  local
801       NC = 0
871                         NC = NC + 1
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
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
1026       INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB, LDC  local
1047       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1086      $                   LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,  local
1112       NC = 0
1176                            NC = NC + 1
1201      $                           CALL SPRCN3( NTRA, NC, SNAME, IORDER,
1211      $                           CALL SPRCN3( NTRA, NC, SNAME, IORDER,
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
1342       CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1370       SUBROUTINE SPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1372       INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB  local
1405       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1447      $                   NARGS, NC, NS  local
1471       NC = 0
1529                         NC = NC + 1
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
1668       CALL SPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1697       SUBROUTINE SPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1699       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDC  local
1722       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1764      $                   LDC, LDCS, LJ, MA, N, NA, NARGS, NC, NS  local
1788       NC = 0
1863                         NC = NC + 1
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
2023       CALL SPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
2053       SUBROUTINE SPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2055       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDB, LDC  local
2078       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA