66       LOGICAL            FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,  variable
237      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
246      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
264      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
273      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
297             FATAL = .FALSE.
303      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
309      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
317      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
323      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
331      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
337      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
345      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
351      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
359      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
365      $                 REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
371   190       IF( FATAL.AND.SFATAL )
427      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
449       LOGICAL            FATAL, REWI, TRACE  local
611                               FATAL = .TRUE.
646                               FATAL = .TRUE.
657      $                                   ERR, FATAL, NOUT, .TRUE. )
661                               IF( FATAL )
757      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
779       LOGICAL            FATAL, REWI, TRACE  local
933                            FATAL = .TRUE.
967                            FATAL = .TRUE.
979      $                                    FATAL, NOUT, .TRUE. )
984      $                                    FATAL, NOUT, .TRUE. )
989                            IF( FATAL )
1079      $                  FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,  argument
1100       LOGICAL            FATAL, REWI, TRACE  local
1252                               FATAL = .TRUE.
1285                               FATAL = .TRUE.
1299      $                                         FATAL, NOUT, .TRUE. )
1305      $                                         FATAL, NOUT, .TRUE. )
1326      $                                          FATAL, NOUT, .FALSE. )
1332      $                                          FATAL, NOUT, .FALSE. )
1338                               IF( FATAL )
1442      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1464       LOGICAL            FATAL, REWI, TRACE  local
1627                            FATAL = .TRUE.
1667                            FATAL = .TRUE.
1695      $                                       FATAL, NOUT, .TRUE. )
1702      $                                       FATAL, NOUT, .TRUE. )
1712                               IF( FATAL )
1852      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,  argument
1874       LOGICAL           FATAL, REWI, TRACE  local
2052                            FATAL = .TRUE.
2090                            FATAL = .TRUE.
2131      $                                       EPS, ERR, FATAL, NOUT,
2153      $                                       FATAL, NOUT, .TRUE. )
2165                               IF( FATAL )
2435      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2457       LOGICAL            FATAL, MV  local
2600   230 FATAL = .TRUE.