58       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA,  variable
101       READ( NIN, FMT = * )NTRA
102       TRACE = NTRA.GE.0
105           OPEN( NTRA, FILE = SNAPS )
294             CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
300             CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308             CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
314             CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322             CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
328             CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336             CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
342             CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
350             CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
356             CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
379      $   CLOSE ( NTRA )
416       SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
436       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
584      $                        CALL SPRCN1(NTRA, NC, SNAME, IORDER,
588      $                        REWIND NTRA
744       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
764       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
898      $                      CALL SPRCN2(NTRA, NC, SNAME, IORDER, 
902      $                     REWIND NTRA
1055       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1074       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1201      $                           CALL SPRCN3( NTRA, NC, SNAME, IORDER,
1205      $                           REWIND NTRA
1211      $                           CALL SPRCN3( NTRA, NC, SNAME, IORDER,
1215      $                           REWIND NTRA
1342       CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1413       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1433       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1551      $                     CALL SPRCN4( NTRA, NC, SNAME, IORDER, UPLO,
1554      $                     REWIND NTRA
1730       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1750       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1889      $                     CALL SPRCN5( NTRA, NC, SNAME, IORDER, UPLO,
1892      $                     REWIND NTRA