81       LOGICAL            FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,  variable
278      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
286      $            YY, EPS, ERR, FATAL, NOUT, .TRUE. )
310             FATAL = .FALSE.
317      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
323      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
331      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
337      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
346      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
352      $                  REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
360      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
366      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
374      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
380      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
388      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
394      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC,
399   200       IF( FATAL.AND.SFATAL )
457      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
476       LOGICAL            FATAL, REWI, TRACE  local
672                                  FATAL = .TRUE.
725                                  FATAL = .TRUE.
736      $                                       FATAL, NOUT, .TRUE. )
740                                  IF( FATAL )
817      $                  FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET,  argument
836       LOGICAL            FATAL, REWI, TRACE  local
1022                               FATAL = .TRUE.
1084                               FATAL = .TRUE.
1094      $                                    YY, EPS, ERR, FATAL, NOUT,
1099                               IF( FATAL )
1177      $                  FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,  argument
1195       LOGICAL            FATAL, REWI, TRACE  local
1407                            FATAL = .TRUE.
1459                            FATAL = .TRUE.
1470      $                                    XX, EPS, ERR, FATAL, NOUT,
1484      $                                    XX, EPS, ERR, FATAL, NOUT,
1489                            IF( FATAL )
1564      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1583       LOGICAL            FATAL, REWI, TRACE  local
1712                         FATAL = .TRUE.
1742                         FATAL = .TRUE.
1768      $                                 ERR, FATAL, NOUT, .TRUE. )
1771                            IF( FATAL )
1836      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
1855       LOGICAL            FATAL, REWI, TRACE  local
1990                      FATAL = .TRUE.
2020                      FATAL = .TRUE.
2049      $                              AA( JA ), EPS, ERR, FATAL, NOUT,
2062                         IF( FATAL )
2132      $                  FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,  argument
2151       LOGICAL            FATAL, REWI, TRACE  local
2307                         FATAL = .TRUE.
2339                         FATAL = .TRUE.
2378      $                                 YT, G, AA( JA ), EPS, ERR, FATAL,
2391                            IF( FATAL )
2640      $                  INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )  argument
2656       LOGICAL            FATAL, MV  local
2733    50 FATAL = .TRUE.