58       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA,  variable
103       READ( NIN, FMT = * )NTRA
104       TRACE = NTRA.GE.0
106          OPEN( NTRA, FILE = SNAPS, STATUS = 'NEW' )
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,
380      $   CLOSE ( NTRA )
417       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
436       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
584      $                        CALL DPRCN1(NTRA, NC, SNAME, IORDER,
588      $                        REWIND NTRA
741       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
760       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
894      $                      CALL DPRCN2(NTRA, NC, SNAME, IORDER, 
898      $                     REWIND NTRA
1051       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1070       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1197      $                           CALL DPRCN3( NTRA, NC, SNAME, IORDER,
1201      $                           REWIND NTRA
1207      $                           CALL DPRCN3( NTRA, NC, SNAME, IORDER,
1211      $                           REWIND NTRA
1338       CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1409       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1428       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1546      $                     CALL DPRCN4( NTRA, NC, SNAME, IORDER, UPLO,
1549      $                     REWIND NTRA
1725       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1745       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1884      $                     CALL DPRCN5( NTRA, NC, SNAME, IORDER, UPLO,
1887      $                     REWIND NTRA