66       INTEGER            NIN, NOUT  variable
67       PARAMETER          ( NIN = 5, NOUT = 6 )
121       NOUTC = NOUT
148          WRITE( NOUT, FMT = 9997 )'N', NIDMAX
154             WRITE( NOUT, FMT = 9996 )NMAX
161          WRITE( NOUT, FMT = 9997 )'K', NKBMAX
167             WRITE( NOUT, FMT = 9995 )
174          WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
180             WRITE( NOUT, FMT = 9994 )INCMAX
187          WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
194          WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
201       WRITE( NOUT, FMT = 9993 )
202       WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
203       WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
204       WRITE( NOUT, FMT = 9990 )( INC( I ), I = 1, NINC )
205       WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
206       WRITE( NOUT, FMT = 9988 )( BET( I ), I = 1, NBET )
208          WRITE( NOUT, FMT = * )
209          WRITE( NOUT, FMT = 9980 )
211       WRITE( NOUT, FMT = * )
212       WRITE( NOUT, FMT = 9999 )THRESH
213       WRITE( NOUT, FMT = * )
241       WRITE( NOUT, FMT = 9986 )SNAMET
259       WRITE( NOUT, FMT = 9998 )EPS
278      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
281          WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
286      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
289          WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
296          WRITE( NOUT, FMT = * )
299             WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
305                WRITE( NOUT, FMT = * )
316             CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322             CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330             CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336             CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
345             CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351             CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359             CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365             CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
373             CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
379             CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
387             CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
393             CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
403       WRITE( NOUT, FMT = 9982 )
407       WRITE( NOUT, FMT = 9981 )
411       WRITE( NOUT, FMT = 9987 )
416       CLOSE ( NOUT )
456       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
475      $                   NOUT, NTRA, IORDER  local
671                                  WRITE( NOUT, FMT = 9993 )
722      $                              WRITE( NOUT, FMT = 9998 )I
736      $                                       FATAL, NOUT, .TRUE. )
767          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
768          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
770          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
771          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
776       WRITE( NOUT, FMT = 9996 )SNAME
778          WRITE( NOUT, FMT = 9994 )NC, SNAME, CTRANS, M, N, ALPHA, LDA,
781          WRITE( NOUT, FMT = 9995 )NC, SNAME, CTRANS, M, N, KL, KU,
816       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
835      $                   NOUT, NTRA, IORDER  local
1021                               WRITE( NOUT, FMT = 9992 )
1081      $                           WRITE( NOUT, FMT = 9998 )I
1094      $                                    YY, EPS, ERR, FATAL, NOUT,
1123          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1124          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1126          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1127          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1132       WRITE( NOUT, FMT = 9996 )SNAME
1134          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, LDA, INCX,
1137          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, K, ALPHA, LDA,
1140          WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, N, ALPHA, INCX,
1176       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1193       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA,  local
1406                            WRITE( NOUT, FMT = 9992 )
1456      $                        WRITE( NOUT, FMT = 9998 )I
1470      $                                    XX, EPS, ERR, FATAL, NOUT,
1484      $                                    XX, EPS, ERR, FATAL, NOUT,
1511          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1512          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1514          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1515          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1520       WRITE( NOUT, FMT = 9996 )SNAME
1522          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1525          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, CTRANS, CDIAG, N, K,
1528          WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1563       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1581       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1711                         WRITE( NOUT, FMT = 9993 )
1739      $                     WRITE( NOUT, FMT = 9998 )I
1768      $                                 ERR, FATAL, NOUT, .TRUE. )
1792          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1793          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1795          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1796          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1801       WRITE( NOUT, FMT = 9995 )J
1804       WRITE( NOUT, FMT = 9996 )SNAME
1805       WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1835       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1853       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
1989                      WRITE( NOUT, FMT = 9992 )
2017      $                  WRITE( NOUT, FMT = 9998 )I
2049      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2082          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2083          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2085          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2086          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2091       WRITE( NOUT, FMT = 9995 )J
2094       WRITE( NOUT, FMT = 9996 )SNAME
2096          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX, LDA
2098          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX
2131       SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2149       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,  local
2306                         WRITE( NOUT, FMT = 9992 )
2336      $                     WRITE( NOUT, FMT = 9998 )I
2379      $                                 NOUT, .TRUE. )
2413          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2414          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2416          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2417          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2422       WRITE( NOUT, FMT = 9995 )J
2425       WRITE( NOUT, FMT = 9996 )SNAME
2427          WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX,
2430          WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX, INCY
2640      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2655       INTEGER            INCX, INCY, M, N, NMAX, NOUT  local
2734       WRITE( NOUT, FMT = 9999 )
2737             WRITE( NOUT, FMT = 9998 )I, YT( I ),
2740             WRITE( NOUT, FMT = 9998 )I,