456       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
477       CHARACTER*12       SNAME  local
513       FULL = SNAME( 9: 9 ).EQ.'e'
514       BANDED = SNAME( 9: 9 ).EQ.'b'
566                CALL DMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX, AA,
648      $                              WRITE( NTRA, FMT = 9994 )NC, SNAME,
658      $                              WRITE( NTRA, FMT = 9995 )NC, SNAME,
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
837       CHARACTER*12       SNAME  local
872       FULL = SNAME( 9: 9 ).EQ.'y'
873       BANDED = SNAME( 9: 9 ).EQ.'b'
874       PACKED = SNAME( 9: 9 ).EQ.'p'
931                CALL DMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
992      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1000      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1010      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
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
1196       CHARACTER*12       SNAME  local
1230       FULL = SNAME( 9: 9 ).EQ.'r'
1231       BANDED = SNAME( 9: 9 ).EQ.'b'
1232       PACKED = SNAME( 9: 9 ).EQ.'p'
1311                      CALL DMAKE( SNAME( 8: 9 ), UPLO, DIAG, N, N, A,
1349                         IF( SNAME( 10: 11 ).EQ.'mv' )THEN
1352      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1360      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1368      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1375                         ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
1378      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1386      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1394      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1464                            IF( SNAME( 10: 11 ).EQ.'mv' )THEN
1472                            ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
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
1584       CHARACTER*12       SNAME  local
1675                      CALL DMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX,
1701      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
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
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
1856       CHARACTER*12       SNAME  local
1890       FULL = SNAME( 9: 9 ).EQ.'y'
1891       PACKED = SNAME( 9: 9 ).EQ.'p'
1948                   CALL DMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX,
1971      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
1979      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2004                      ISAME( 6 ) = LDERES( SNAME( 8: 9 ), UPLO, N, N, AS,
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
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
2152       CHARACTER*12       SNAME  local
2187       FULL = SNAME( 9: 9 ).EQ.'y'
2188       PACKED = SNAME( 9: 9 ).EQ.'p'
2259                      CALL DMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A,
2287      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
2295      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2323                         ISAME( 8 ) = LDERES( SNAME( 8: 9 ), UPLO, N, N,
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
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