64       INTEGER            I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA,  variable
109       READ( NIN, FMT = * )NTRA
110       TRACE = NTRA.GE.0
112          OPEN( NTRA, FILE = SNAPS, STATUS = 'NEW' )
302             CALL ZCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308             CALL ZCHK1(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
316             CALL ZCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322             CALL ZCHK2(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330             CALL ZCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336             CALL ZCHK3(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
344             CALL ZCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
350             CALL ZCHK4(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
358             CALL ZCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
364             CALL ZCHK5(SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
387      $   CLOSE ( NTRA )
426       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
448       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
598      $                        CALL ZPRCN1(NTRA, NC, SNAME, IORDER,
602      $                        REWIND NTRA
756       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
778       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
914      $                      CALL ZPRCN2(NTRA, NC, SNAME, IORDER, 
918      $                     REWIND NTRA
1078       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1099       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1228      $                           CALL ZPRCN3( NTRA, NC, SNAME, IORDER,
1232      $                           REWIND NTRA
1238      $                           CALL ZPRCN3( NTRA, NC, SNAME, IORDER,
1242      $                           REWIND NTRA
1369       CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1441       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1463       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1605      $                        CALL ZPRCN6( NTRA, NC, SNAME, IORDER,
1609      $                        REWIND NTRA
1615      $                        CALL ZPRCN4( NTRA, NC, SNAME, IORDER,
1618      $                        REWIND NTRA
1851       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1873       INTEGER           NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
2028      $                        CALL ZPRCN7( NTRA, NC, SNAME, IORDER,
2032      $                        REWIND NTRA
2038      $                        CALL ZPRCN5( NTRA, NC, SNAME, IORDER,
2042      $                        REWIND NTRA