464      $                   MA, MB, MS, N, NA, NARGS, NB, NC, NS  local
487       NC = 0
570                            NC = NC + 1
598      $                        CALL ZPRCN1(NTRA, NC, SNAME, IORDER,
682          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
683          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
685          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
686          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
692       CALL ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, 
721       SUBROUTINE ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,  argument
723       INTEGER          NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC  local
748       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
794      $                   NARGS, NC, NS  local
818       NC = 0
887                         NC = NC + 1
914      $                      CALL ZPRCN2(NTRA, NC, SNAME, IORDER, 
1008          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1009          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1011          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1012          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1018       CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1047       SUBROUTINE ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,  argument
1049       INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB, LDC  local
1070       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1113      $                   LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,  local
1139       NC = 0
1203                            NC = NC + 1
1228      $                           CALL ZPRCN3( NTRA, NC, SNAME, IORDER,
1238      $                           CALL ZPRCN3( NTRA, NC, SNAME, IORDER,
1359          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1360          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1362          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1363          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1369       CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1398       SUBROUTINE ZPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1400       INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB  local
1433       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1479      $                   NARGS, NC, NS  local
1503       NC = 0
1574                         NC = NC + 1
1605      $                        CALL ZPRCN6( NTRA, NC, SNAME, IORDER,
1615      $                        CALL ZPRCN4( NTRA, NC, SNAME, IORDER,
1732          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1733          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1735          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1736          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1747       CALL ZPRCN6( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, RALPHA,
1750       CALL ZPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1784       SUBROUTINE ZPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1786       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDC  local
1809       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1818       SUBROUTINE ZPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1820       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDC  local
1843       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1889      $                   LDC, LDCS, LJ, MA, N, NA, NARGS, NC, NS  local
1913       NC = 0
1997                         NC = NC + 1
2028      $                        CALL ZPRCN7( NTRA, NC, SNAME, IORDER,
2038      $                        CALL ZPRCN5( NTRA, NC, SNAME, IORDER,
2185          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2186          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2188          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2189          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2200          CALL ZPRCN7( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2203          CALL ZPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2237       SUBROUTINE ZPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2239       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDB, LDC  local
2262       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2271       SUBROUTINE ZPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2273       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDB, LDC  local
2297       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA