82       LOGICAL            FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,  variable
265      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
273      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
297             FATAL = .FALSE.
303      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
309      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
316      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
321      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
327      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
333      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
337   200       IF( FATAL.AND.SFATAL )
392      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
411       LOGICAL            FATAL, REWI, TRACE  local
599                                  FATAL = .TRUE.
652                                  FATAL = .TRUE.
663      $                                       FATAL, NOUT, .TRUE. )
667                                  IF( FATAL )
733      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
752       LOGICAL            FATAL, REWI, TRACE  local
931                               FATAL = .TRUE.
993                               FATAL = .TRUE.
1003      $                                    YY, EPS, ERR, FATAL, NOUT,
1008                               IF( FATAL )
1076      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1093       LOGICAL            FATAL, REWI, TRACE  local
1287                            FATAL = .TRUE.
1339                            FATAL = .TRUE.
1350      $                                    XX, EPS, ERR, FATAL, NOUT,
1364      $                                    XX, EPS, ERR, FATAL, NOUT,
1369                            IF( FATAL )
1433      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1451       LOGICAL            FATAL, REWI, TRACE  local
1580                         FATAL = .TRUE.
1610                         FATAL = .TRUE.
1636      $                                 ERR, FATAL, NOUT, .TRUE. )
1639                            IF( FATAL )
1694      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1712       LOGICAL            FATAL, REWI, TRACE  local
1840                      FATAL = .TRUE.
1870                      FATAL = .TRUE.
1899      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
1912                         IF( FATAL )
1972      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1990       LOGICAL            FATAL, REWI, TRACE  local
2140                         FATAL = .TRUE.
2172                         FATAL = .TRUE.
2211      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2224                            IF( FATAL )
2789      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2805       LOGICAL            FATAL, MV  local
2882    50 FATAL = .TRUE.