450      $                   MA, MB, MS, N, NA, NARGS, NB, NC, NS  local
473       NC = 0
556                            NC = NC + 1
584      $                        CALL DPRCN1(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 DPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, 
706       SUBROUTINE DPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,  argument
708       INTEGER          NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC  local
733       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
774      $                   NARGS, NC, NS  local
797       NC = 0
867                         NC = NC + 1
894      $                      CALL DPRCN2(NTRA, NC, SNAME, IORDER, 
981          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
982          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
984          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
985          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
991       CALL DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1020       SUBROUTINE DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,  argument
1022       INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB, LDC  local
1043       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1082      $                   LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,  local
1108       NC = 0
1172                            NC = NC + 1
1197      $                           CALL DPRCN3( NTRA, NC, SNAME, IORDER,
1207      $                           CALL DPRCN3( NTRA, NC, SNAME, IORDER,
1328          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1329          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1331          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1332          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1338       CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1366       SUBROUTINE DPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1368       INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB  local
1401       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1442      $                   NARGS, NC, NS  local
1466       NC = 0
1524                         NC = NC + 1
1546      $                     CALL DPRCN4( NTRA, NC, SNAME, IORDER, UPLO,
1649          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1650          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1652          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1653          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1663       CALL DPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1692       SUBROUTINE DPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1694       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDC  local
1717       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1759      $                   LDC, LDCS, LJ, MA, N, NA, NARGS, NC, NS  local
1783       NC = 0
1858                         NC = NC + 1
1884      $                     CALL DPRCN5( NTRA, NC, SNAME, IORDER, UPLO,
2005          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2006          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2008          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2009          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2019       CALL DPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
2049       SUBROUTINE DPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2051       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDB, LDC  local
2074       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA