81       LOGICAL            FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,  variable
127       TRACE = NTRA.GE.0
128       IF( TRACE )THEN
133       REWI = REWI.AND.TRACE
316             CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322             CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330             CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336             CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
345             CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351             CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359             CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365             CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
373             CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
379             CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
387             CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
393             CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
414       IF( TRACE )
456       SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
476       LOGICAL            FATAL, REWI, TRACE  local
647                                  IF( TRACE )
657                                  IF( TRACE )
816       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
836       LOGICAL            FATAL, REWI, TRACE  local
991                               IF( TRACE )
999                               IF( TRACE )
1009                               IF( TRACE )
1176       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1195       LOGICAL            FATAL, REWI, TRACE  local
1351                               IF( TRACE )
1359                               IF( TRACE )
1367                               IF( TRACE )
1377                               IF( TRACE )
1385                               IF( TRACE )
1393                               IF( TRACE )
1563       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1583       LOGICAL            FATAL, REWI, TRACE  local
1700                      IF( TRACE )
1835       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1855       LOGICAL            FATAL, REWI, TRACE  local
1970                      IF( TRACE )
1978                      IF( TRACE )
2131       SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2151       LOGICAL            FATAL, REWI, TRACE  local
2286                         IF( TRACE )
2294                         IF( TRACE )