395       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
416       CHARACTER*6        SNAME  local
562      $                        WRITE( NTRA, FMT = 9995 )NC, SNAME,
645          WRITE( NOUT, FMT = 9999 )SNAME, NC
647          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
652       WRITE( NOUT, FMT = 9996 )SNAME
653       WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
676       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
697       CHARACTER*6        SNAME  local
829      $                     WRITE( NTRA, FMT = 9995 )NC, SNAME, SIDE,
915          WRITE( NOUT, FMT = 9999 )SNAME, NC
917          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
922       WRITE( NOUT, FMT = 9996 )SNAME
923       WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
946       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
967       CHARACTER*6        SNAME  local
1090                            IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1092      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1099                            ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1101      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1152                               IF( SNAME( 4: 5 ).EQ.'MM' )THEN
1169                               ELSE IF( SNAME( 4: 5 ).EQ.'SM' )THEN
1221          WRITE( NOUT, FMT = 9999 )SNAME, NC
1223          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1228       WRITE( NOUT, FMT = 9996 )SNAME
1229       WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1251       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1272       CHARACTER*6        SNAME  local
1388      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1491          WRITE( NOUT, FMT = 9999 )SNAME, NC
1493          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1502       WRITE( NOUT, FMT = 9996 )SNAME
1503       WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1526       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1547       CHARACTER*6        SNAME  local
1684      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1804          WRITE( NOUT, FMT = 9999 )SNAME, NC
1806          WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1815       WRITE( NOUT, FMT = 9996 )SNAME
1816       WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,