65       LOGICAL            FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,  variable
236      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
245      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
263      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
272      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
296             FATAL = .FALSE.
302      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
308      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
316      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
322      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
330      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
336      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
344      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
350      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
358      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
364      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
370   190       IF( FATAL.AND.SFATAL )
426      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
448       LOGICAL            FATAL, REWI, TRACE  local
610                               FATAL = .TRUE.
645                               FATAL = .TRUE.
656      $                                   ERR, FATAL, NOUT, .TRUE. )
660                               IF( FATAL )
756      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
778       LOGICAL            FATAL, REWI, TRACE  local
932                            FATAL = .TRUE.
966                            FATAL = .TRUE.
978      $                                    FATAL, NOUT, .TRUE. )
983      $                                    FATAL, NOUT, .TRUE. )
988                            IF( FATAL )
1078      $                  FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,  argument
1099       LOGICAL            FATAL, REWI, TRACE  local
1251                               FATAL = .TRUE.
1284                               FATAL = .TRUE.
1298      $                                          FATAL, NOUT, .TRUE. )
1304      $                                          FATAL, NOUT, .TRUE. )
1325      $                                          FATAL, NOUT, .FALSE. )
1331      $                                          FATAL, NOUT, .FALSE. )
1337                               IF( FATAL )
1441      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1463       LOGICAL            FATAL, REWI, TRACE  local
1626                            FATAL = .TRUE.
1666                            FATAL = .TRUE.
1694      $                                       FATAL, NOUT, .TRUE. )
1701      $                                       FATAL, NOUT, .TRUE. )
1711                               IF( FATAL )
1851      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1873       LOGICAL            FATAL, REWI, TRACE  local
2051                            FATAL = .TRUE.
2089                            FATAL = .TRUE.
2130      $                                       EPS, ERR, FATAL, NOUT,
2152      $                                       FATAL, NOUT, .TRUE. )
2164                               IF( FATAL )
2433      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2455       LOGICAL            FATAL, MV  local
2596   230 FATAL = .TRUE.