60       LOGICAL            FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,  variable
230      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
239      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
257      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
266      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
290             FATAL = .FALSE.
295      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
301      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
309      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
315      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
323      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
329      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
337      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
343      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
351      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
357      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
363   190       IF( FATAL.AND.SFATAL )
417      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
437       LOGICAL            FATAL, REWI, TRACE  local
597                               FATAL = .TRUE.
632                               FATAL = .TRUE.
643      $                                    ERR, FATAL, NOUT, .TRUE. )
647                               IF( FATAL )
745      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
765       LOGICAL            FATAL, REWI, TRACE  local
910                            FATAL = .TRUE.
944                            FATAL = .TRUE.
956      $                                    FATAL, NOUT, .TRUE. )
961      $                                    FATAL, NOUT, .TRUE. )
966                            IF( FATAL )
1056      $                  FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,  argument
1075       LOGICAL            FATAL, REWI, TRACE  local
1225                               FATAL = .TRUE.
1258                               FATAL = .TRUE.
1272      $                                          FATAL, NOUT, .TRUE. )
1278      $                                          FATAL, NOUT, .TRUE. )
1299      $                                          FATAL, NOUT, .FALSE. )
1305      $                                          FATAL, NOUT, .FALSE. )
1311                               IF( FATAL )
1414      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1434       LOGICAL            FATAL, REWI, TRACE  local
1562                            FATAL = .TRUE.
1594                            FATAL = .TRUE.
1617      $                                       FATAL, NOUT, .TRUE. )
1624      $                                       FATAL, NOUT, .TRUE. )
1634                               IF( FATAL )
1731      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1751       LOGICAL            FATAL, REWI, TRACE  local
1900                            FATAL = .TRUE.
1934                            FATAL = .TRUE.
1964      $                                       FATAL, NOUT, .TRUE. )
1976      $                                       EPS, ERR, FATAL, NOUT,
1989                               IF( FATAL )
2200      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2219       LOGICAL            FATAL, MV  local
2297   130 FATAL = .TRUE.