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 DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322             CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330             CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336             CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
345             CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351             CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359             CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365             CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
373             CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
379             CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
387             CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
393             CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
414       IF( TRACE )
456       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
476       LOGICAL            FATAL, REWI, TRACE  local
647                                  IF( TRACE )
657                                  IF( TRACE )
816       SUBROUTINE DCHK2( 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 DCHK3( 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 DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1583       LOGICAL            FATAL, REWI, TRACE  local
1700                      IF( TRACE )
1835       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1855       LOGICAL            FATAL, REWI, TRACE  local
1970                      IF( TRACE )
1978                      IF( TRACE )
2131       SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
2151       LOGICAL            FATAL, REWI, TRACE  local
2286                         IF( TRACE )
2294                         IF( TRACE )