86       LOGICAL            FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,  variable
271      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
279      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
303             FATAL = .FALSE.
309      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
315      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
322      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
327      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
333      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
339      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
343   200       IF( FATAL.AND.SFATAL )
400      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
422       LOGICAL            FATAL, REWI, TRACE  local
611                                  FATAL = .TRUE.
664                                  FATAL = .TRUE.
675      $                                       FATAL, NOUT, .TRUE. )
679                                  IF( FATAL )
746      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
768       LOGICAL            FATAL, REWI, TRACE  local
948                               FATAL = .TRUE.
1010                               FATAL = .TRUE.
1020      $                                    YY, EPS, ERR, FATAL, NOUT,
1025                               IF( FATAL )
1095      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1116       LOGICAL            FATAL, REWI, TRACE  local
1311                            FATAL = .TRUE.
1363                            FATAL = .TRUE.
1374      $                                    XX, EPS, ERR, FATAL, NOUT,
1388      $                                    XX, EPS, ERR, FATAL, NOUT,
1393                            IF( FATAL )
1457      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1479       LOGICAL            FATAL, REWI, TRACE  local
1618                         FATAL = .TRUE.
1648                         FATAL = .TRUE.
1676      $                                 ERR, FATAL, NOUT, .TRUE. )
1679                            IF( FATAL )
1735      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1757       LOGICAL            FATAL, REWI, TRACE  local
1888                      FATAL = .TRUE.
1918                      FATAL = .TRUE.
1947      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
1960                         IF( FATAL )
2020      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2042       LOGICAL            FATAL, REWI, TRACE  local
2194                         FATAL = .TRUE.
2226                         FATAL = .TRUE.
2265      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2278                            IF( FATAL )
2879      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2898       LOGICAL            FATAL, MV  local
2987    60 FATAL = .TRUE.