64       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA  variable
112       READ( NIN, FMT = * )NTRA
113       TRACE = NTRA.GE.0
115          OPEN( NTRA, FILE = SNAPS, STATUS = 'NEW' )
286   140       CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
292   150       CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
298   160       CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
303   170       CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
309   180       CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330      $   CLOSE ( NTRA )
366       SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
387       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
537      $                        WRITE( NTRA, FMT = 9995 )NC, SNAME,
541      $                        REWIND NTRA
651       SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
672       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
808      $                     WRITE( NTRA, FMT = 9995 )NC, SNAME, SIDE,
811      $                     REWIND NTRA
930       SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
951       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA  local
1080      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1084      $                           REWIND NTRA
1089      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1093      $                           REWIND NTRA
1240       SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1261       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
1403      $                        WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1406      $                        REWIND NTRA
1411      $                        WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1414      $                        REWIND NTRA
1572       SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1593       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA  local
1748      $                        WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1751      $                        REWIND NTRA
1756      $                        WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1759      $                        REWIND NTRA