81      $                   NOUT, NTRA  variable
130       READ( NIN, FMT = * )NTRA
131       TRACE = NTRA.GE.0
133          OPEN( NTRA, FILE = SNAPS, STATUS = 'NEW' )
302   140       CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308   150       CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315   160       CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
320   170       CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326   180       CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
332   190       CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
353      $   CLOSE ( NTRA )
391       SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
410      $                   NOUT, NTRA  local
575      $                              WRITE( NTRA, FMT = 9994 )NC, SNAME,
579      $                              REWIND NTRA
585      $                              WRITE( NTRA, FMT = 9995 )NC, SNAME,
589      $                              REWIND NTRA
732       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
751      $                   NOUT, NTRA  local
902      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
905      $                           REWIND NTRA
910      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
914      $                           REWIND NTRA
919      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
922      $                           REWIND NTRA
1075       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1092       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA  local
1232      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1235      $                           REWIND NTRA
1240      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1243      $                           REWIND NTRA
1248      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1251      $                           REWIND NTRA
1258      $                           WRITE( NTRA, FMT = 9993 )NC, SNAME,
1261      $                           REWIND NTRA
1266      $                           WRITE( NTRA, FMT = 9994 )NC, SNAME,
1269      $                           REWIND NTRA
1274      $                           WRITE( NTRA, FMT = 9995 )NC, SNAME,
1277      $                           REWIND NTRA
1432       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1450       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1569      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1572      $                  REWIND NTRA
1693       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1711       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1822      $                  WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1825      $                  REWIND NTRA
1829      $                  WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1832      $                  REWIND NTRA
1971       SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1989       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
2120      $                     WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2123      $                     REWIND NTRA
2128      $                     WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2131      $                     REWIND NTRA