60       LOGICAL            FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,  variable
215      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
224      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
242      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
251      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
275             FATAL = .FALSE.
279      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
285      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
291      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
296      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
302      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
306   190       IF( FATAL.AND.SFATAL )
357      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
376       LOGICAL            FATAL, REWI, TRACE  local
535                               FATAL = .TRUE.
570                               FATAL = .TRUE.
581      $                                    ERR, FATAL, NOUT, .TRUE. )
585                               IF( FATAL )
638      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
657       LOGICAL            FATAL, REWI, TRACE  local
801                            FATAL = .TRUE.
835                            FATAL = .TRUE.
847      $                                    FATAL, NOUT, .TRUE. )
852      $                                    FATAL, NOUT, .TRUE. )
857                            IF( FATAL )
908      $                  FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,  argument
927       LOGICAL            FATAL, REWI, TRACE  local
1075                               FATAL = .TRUE.
1108                               FATAL = .TRUE.
1122      $                                          FATAL, NOUT, .TRUE. )
1128      $                                          FATAL, NOUT, .TRUE. )
1149      $                                          FATAL, NOUT, .FALSE. )
1155      $                                          FATAL, NOUT, .FALSE. )
1161                               IF( FATAL )
1213      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1232       LOGICAL            FATAL, REWI, TRACE  local
1360                            FATAL = .TRUE.
1392                            FATAL = .TRUE.
1415      $                                       FATAL, NOUT, .TRUE. )
1422      $                                       FATAL, NOUT, .TRUE. )
1432                               IF( FATAL )
1488      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1507       LOGICAL            FATAL, REWI, TRACE  local
1656                            FATAL = .TRUE.
1690                            FATAL = .TRUE.
1720      $                                       FATAL, NOUT, .TRUE. )
1732      $                                       EPS, ERR, FATAL, NOUT,
1745                               IF( FATAL )
2458      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2477       LOGICAL            FATAL, MV  local
2555   130 FATAL = .TRUE.