49       INTEGER            NIN, NOUT  variable
50       PARAMETER          ( NIN = 5, NOUT = 6 )
104       NOUTC = NOUT
131          WRITE( NOUT, FMT = 9997 )'N', NIDMAX
137             WRITE( NOUT, FMT = 9996 )NMAX
144          WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
151          WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
158       WRITE( NOUT, FMT = 9995 )
159       WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
160       WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
161       WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
163          WRITE( NOUT, FMT = * )
164          WRITE( NOUT, FMT = 9984 )
166       WRITE( NOUT, FMT = * )
167       WRITE( NOUT, FMT = 9999 )THRESH
168       WRITE( NOUT, FMT = * )
197       WRITE( NOUT, FMT = 9990 )SNAMET
215       WRITE( NOUT, FMT = 9998 )EPS
237      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
240          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
246      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
249          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
264      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
267          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
273      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
276          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
283          WRITE( NOUT, FMT = * )
286             WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
292                WRITE( NOUT, FMT = * )
302             CALL ZCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308             CALL ZCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
316             CALL ZCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322             CALL ZCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330             CALL ZCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336             CALL ZCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
344             CALL ZCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
350             CALL ZCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
358             CALL ZCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
364             CALL ZCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
375       WRITE( NOUT, FMT = 9986 )
379       WRITE( NOUT, FMT = 9985 )
383       WRITE( NOUT, FMT = 9991 )
388       CLOSE ( NOUT )
426       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
448       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
610                               WRITE( NOUT, FMT = 9994 )
643      $                           WRITE( NOUT, FMT = 9998 )I
657      $                                   ERR, FATAL, NOUT, .TRUE. )
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
691       WRITE( NOUT, FMT = 9996 )SNAME
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
749       WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
756       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
778       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
932                            WRITE( NOUT, FMT = 9994 )
964      $                        WRITE( NOUT, FMT = 9998 )I
979      $                                    FATAL, NOUT, .TRUE. )
984      $                                    FATAL, NOUT, .TRUE. )
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
1017       WRITE( NOUT, FMT = 9996 )SNAME
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
1071       WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1078       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1099       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1251                               WRITE( NOUT, FMT = 9994 )
1282      $                           WRITE( NOUT, FMT = 9998 )I
1299      $                                         FATAL, NOUT, .TRUE. )
1305      $                                         FATAL, NOUT, .TRUE. )
1326      $                                          FATAL, NOUT, .FALSE. )
1332      $                                          FATAL, NOUT, .FALSE. )
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
1368       WRITE( NOUT, FMT = 9996 )SNAME
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
1434       WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1441       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1463       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1626                            WRITE( NOUT, FMT = 9992 )
1664      $                        WRITE( NOUT, FMT = 9998 )I
1695      $                                       FATAL, NOUT, .TRUE. )
1702      $                                       FATAL, NOUT, .TRUE. )
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
1742      $   WRITE( NOUT, FMT = 9995 )J
1745       WRITE( NOUT, FMT = 9996 )SNAME
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
1810       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
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
1844       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1851       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1873       INTEGER           NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
2051                            WRITE( NOUT, FMT = 9992 )
2087      $                        WRITE( NOUT, FMT = 9998 )I
2131      $                                       EPS, ERR, FATAL, NOUT,
2153      $                                       FATAL, NOUT, .TRUE. )
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
2195      $   WRITE( NOUT, FMT = 9995 )J
2198       WRITE( NOUT, FMT = 9996 )SNAME
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
2263       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
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
2298       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2436      $                  NOUT, MV )  argument
2456       INTEGER            KK, LDA, LDB, LDC, LDCC, M, N, NOUT  local
2601       WRITE( NOUT, FMT = 9999 )
2604             WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2606             WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2610      $   WRITE( NOUT, FMT = 9997 )J