CTITLES2ANMB -- PRINT MESSAGE FOR NMOC AND ABEND                        00000010
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR          H. HOOGSTRAAT                                     00000020
CA    DESIGNER        H. HOOGSTRAAT                                     00000030
CA    LANGUAGE        S/370 FORTRAN H                                   00000040
CA    WRITTEN                                                           00000050
C     REVISED         5- 6-75 BY R. MCMILLAN TO ADD IPR AS AN INPUT     00000060
C                                PARAMETER INSTEAD OF HAVING IT IN A    00000070
C                                COMMON AREA.  CHANGED NAME FRAM        00000080
C                                S1ANMB TO S2ANMB.                      00000090
CA                                                                      00000100
CA                                                                      00000110
CA    CALL S2ANMB (IPR)                                                 00000120
CA         INPUT   IPR = PRINT UNIT                                 I4  00000130
CA                                                                      00000140
CA                                                                      00000150
CA    PRINT A MESSAGE THAT AN IMPOSSIBLE VELOCITY WAS DETECTED BY       00000160
CA    S2ANMO AND ABEND.                                                 00000170
C                                                                       00000180
C ALL FFORTRAN                                                          00000190
C            CHANGED FROM S1ANMB TO MAKE IPR AN INPUT PARAMETER         00000200
C            INSTEAD OF HAVING IT IN A COMMON AREA  5/6/75              00000210
      SUBROUTINE S2ANMB(IPR)                                            00000220
      WRITE (IPR,9001)                                                  00000230
      CALL S1EXIT                                                       00000240
      RETURN                                                            00000250
9001  FORMAT (/' *** INTEGER OVERFLOW'/                                 00000260
     *         ' *** S2ANMO, DETECTED AN IMPOSSIBLE VELOCITY'/          00000270
     *         ' *** CORRECT VELOCITY INFORMATION AND RESUBMIT RUN')    00000280
      END                                                               00000290