463      $                   MA, MB, MS, N, NA, NARGS, NB, NC, NS  local
486       NC = 0
569                            NC = NC + 1
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
691       CALL CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, 
720       SUBROUTINE CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,  argument
722       INTEGER          NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC  local
747       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
793      $                   NARGS, NC, NS  local
817       NC = 0
886                         NC = NC + 1
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
1017       CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1046       SUBROUTINE CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,  argument
1048       INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB, LDC  local
1069       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1112      $                   LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,  local
1138       NC = 0
1202                            NC = NC + 1
1227      $                           CALL CPRCN3( NTRA, NC, SNAME, IORDER,
1237      $                           CALL CPRCN3( NTRA, NC, SNAME, IORDER,
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
1368       CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1397       SUBROUTINE CPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1399       INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB  local
1432       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1478      $                   NARGS, NC, NS  local
1502       NC = 0
1573                         NC = NC + 1
1604      $                        CALL CPRCN6( NTRA, NC, SNAME, IORDER,
1614      $                        CALL CPRCN4( NTRA, NC, SNAME, IORDER,
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
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,  argument
1785       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDC  local
1808       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1817       SUBROUTINE CPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1819       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDC  local
1842       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1888      $                   LDC, LDCS, LJ, MA, N, NA, NARGS, NC, NS  local
1912       NC = 0
1996                         NC = NC + 1
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
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,  argument
2238       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDB, LDC  local
2261       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2270       SUBROUTINE CPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2272       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDB, LDC  local
2296       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA