CTITLESAUFER -- UNDERFLOW ERROR INTERRUPT ROUTINE FOR MCGRDM            00000020
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                 D. REED                                    00000030
CA    DESIGNER               D. REED                                    00000040
CA    LANGUAGE               VS FORTRAN                                 00000050
CA    SYSTEM                 IBM OR CRAY                                00000051
CA    WRITTEN                01-06-78                                   00000060
C     REVISED                MM/DD/YR BY PROGRAMMER                     00000070
C     REVISED                04/29/86 JMP. DUAL IBM/CRAY VERSION.       00000071
CA                                                                      00000080
CA                                                                      00000090
CA    CALL SAUFER (NO PARAMETERS )                                      00000100
CA                                                                      00000180
CA    THIS SUBROUTINE IS ENTERED ON AN UNDERFLOW ERROR OCCURRING        00000190
CA    IN SUBROUTINE MCGRDM.                                             00000200
C                                                                       00000210
      SUBROUTINE SAUFER                                                 00000215
      COMMON /UFERR/ ERRORF                                             00000220
      LOGICAL     ERRORF                                                00000230
      ERRORF = .TRUE.                                                   00000240
      RETURN                                                            00000250
      END                                                               00000260