46       INTEGER            NIN, NOUT  variable
47       PARAMETER          ( NIN = 5, NOUT = 6 )
99       NOUTC = NOUT
125          WRITE( NOUT, FMT = 9997 )'N', NIDMAX
131             WRITE( NOUT, FMT = 9996 )NMAX
138          WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
145          WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
152       WRITE( NOUT, FMT = 9995 )
153       WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
154       WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
155       WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
157          WRITE( NOUT, FMT = * )
158          WRITE( NOUT, FMT = 9984 )
160       WRITE( NOUT, FMT = * )
161       WRITE( NOUT, FMT = 9999 )THRESH
162       WRITE( NOUT, FMT = * )
191       WRITE( NOUT, FMT = 9990 )SNAMET
209       WRITE( NOUT, FMT = 9998 )EPS
231      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
234          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
240      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
243          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
258      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
261          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
267      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
270          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
277          WRITE( NOUT, FMT = * )
280             WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
286                WRITE( NOUT, FMT = * )
295             CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
301             CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
309             CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315             CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
323             CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
329             CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
337             CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
343             CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351             CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
357             CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
368       WRITE( NOUT, FMT = 9986 )
372       WRITE( NOUT, FMT = 9985 )
376       WRITE( NOUT, FMT = 9991 )
381       CLOSE ( NOUT )
417       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
436       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
596                               WRITE( NOUT, FMT = 9994 )
629      $                           WRITE( NOUT, FMT = 9998 )I
643      $                                    ERR, FATAL, NOUT, .TRUE. )
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
677       WRITE( NOUT, FMT = 9996 )SNAME
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
734       WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
741       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
760       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
905                            WRITE( NOUT, FMT = 9994 )
937      $                        WRITE( NOUT, FMT = 9998 )I
952      $                                    FATAL, NOUT, .TRUE. )
957      $                                    FATAL, NOUT, .TRUE. )
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
990       WRITE( NOUT, FMT = 9996 )SNAME
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
1044       WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1051       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1070       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1220                               WRITE( NOUT, FMT = 9994 )
1251      $                           WRITE( NOUT, FMT = 9998 )I
1268      $                                          FATAL, NOUT, .TRUE. )
1274      $                                          FATAL, NOUT, .TRUE. )
1295      $                                          FATAL, NOUT, .FALSE. )
1301      $                                          FATAL, NOUT, .FALSE. )
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
1337       WRITE( NOUT, FMT = 9996 )SNAME
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
1402       WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1409       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1428       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1556                            WRITE( NOUT, FMT = 9993 )
1586      $                        WRITE( NOUT, FMT = 9998 )I
1612      $                                       FATAL, NOUT, .TRUE. )
1619      $                                       FATAL, NOUT, .TRUE. )
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
1659      $   WRITE( NOUT, FMT = 9995 )J
1662       WRITE( NOUT, FMT = 9996 )SNAME
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
1718       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1725       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1745       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1895                            WRITE( NOUT, FMT = 9993 )
1927      $                        WRITE( NOUT, FMT = 9998 )I
1960      $                                       FATAL, NOUT, .TRUE. )
1972      $                                       EPS, ERR, FATAL, NOUT,
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
2015      $   WRITE( NOUT, FMT = 9995 )J
2018       WRITE( NOUT, FMT = 9996 )SNAME
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
2075       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2197      $                  NOUT, MV )  argument
2214       INTEGER            KK, LDA, LDB, LDC, LDCC, M, N, NOUT  local
2294       WRITE( NOUT, FMT = 9999 )
2297             WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2299             WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2303      $   WRITE( NOUT, FMT = 9997 )J