60       LOGICAL            FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,  variable
231      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
240      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
258      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
267      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
291             FATAL = .FALSE.
296      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
302      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
310      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
316      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
324      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
330      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
338      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
344      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
352      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
358      $                  REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
364   190       IF( FATAL.AND.SFATAL )
418      $                  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 )
742      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
761       LOGICAL            FATAL, REWI, TRACE  local
906                            FATAL = .TRUE.
940                            FATAL = .TRUE.
952      $                                    FATAL, NOUT, .TRUE. )
957      $                                    FATAL, NOUT, .TRUE. )
962                            IF( FATAL )
1052      $                  FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,  argument
1071       LOGICAL            FATAL, REWI, TRACE  local
1221                               FATAL = .TRUE.
1254                               FATAL = .TRUE.
1268      $                                          FATAL, NOUT, .TRUE. )
1274      $                                          FATAL, NOUT, .TRUE. )
1295      $                                          FATAL, NOUT, .FALSE. )
1301      $                                          FATAL, NOUT, .FALSE. )
1307                               IF( FATAL )
1410      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1429       LOGICAL            FATAL, REWI, TRACE  local
1557                            FATAL = .TRUE.
1589                            FATAL = .TRUE.
1612      $                                       FATAL, NOUT, .TRUE. )
1619      $                                       FATAL, NOUT, .TRUE. )
1629                               IF( FATAL )
1726      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1746       LOGICAL            FATAL, REWI, TRACE  local
1896                            FATAL = .TRUE.
1930                            FATAL = .TRUE.
1960      $                                       FATAL, NOUT, .TRUE. )
1972      $                                       EPS, ERR, FATAL, NOUT,
1985                               IF( FATAL )
2196      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2215       LOGICAL            FATAL, MV  local
2293   130 FATAL = .TRUE.