85       LOGICAL            FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,  variable
270      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
278      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
302             FATAL = .FALSE.
308      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
314      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
321      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
326      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
332      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
338      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
342   200       IF( FATAL.AND.SFATAL )
399      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
420       LOGICAL            FATAL, REWI, TRACE  local
609                                  FATAL = .TRUE.
662                                  FATAL = .TRUE.
673      $                                       FATAL, NOUT, .TRUE. )
677                                  IF( FATAL )
744      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
765       LOGICAL            FATAL, REWI, TRACE  local
945                               FATAL = .TRUE.
1007                               FATAL = .TRUE.
1017      $                                    YY, EPS, ERR, FATAL, NOUT,
1022                               IF( FATAL )
1092      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1112       LOGICAL            FATAL, REWI, TRACE  local
1307                            FATAL = .TRUE.
1359                            FATAL = .TRUE.
1370      $                                    XX, EPS, ERR, FATAL, NOUT,
1384      $                                    XX, EPS, ERR, FATAL, NOUT,
1389                            IF( FATAL )
1453      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1474       LOGICAL            FATAL, REWI, TRACE  local
1613                         FATAL = .TRUE.
1643                         FATAL = .TRUE.
1671      $                                 ERR, FATAL, NOUT, .TRUE. )
1674                            IF( FATAL )
1730      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1751       LOGICAL            FATAL, REWI, TRACE  local
1882                      FATAL = .TRUE.
1912                      FATAL = .TRUE.
1941      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
1954                         IF( FATAL )
2014      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2035       LOGICAL            FATAL, REWI, TRACE  local
2187                         FATAL = .TRUE.
2219                         FATAL = .TRUE.
2258      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2271                            IF( FATAL )
2871      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2890       LOGICAL            FATAL, MV  local
2979    60 FATAL = .TRUE.