CTITLEARSBIC -- SUBTRACT AN INTEGER CONSTANT FROM AN INTEGER ARRAY      00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        STU NELAN                                           00020000
CA    DESIGNER      STU NELAN                                           00030000
CA    LANGUAGE      FORTRAN                                             00040001
CA    LANGUAGE      IBM AND CRAY                                        00050001
CA    WRITTEN       02-13-86                                            00060000
C     REVISED       07-11-86 ESN. FOR USE ON THE IBM.                   00070001
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARSBIC (IA, IB, IC, N)                                       00100000
CA          INPUT   IA = INTEGER ARRAY                              I4  00110000
CA          OUTPUT  IB = INTEGER ARRAY                              I4  00120000
CA          INPUT   IC = INTEGER CONSTANT                           I4  00130000
CA          INPUT    N = NUMBER OF ELEMENTS IN EACH ARRAY A AND B   I4  00140000
CA                                                                      00150000
CA                                                                      00160000
CA       ARSBIC PERFORMS IB(I) = IA(I) - IC FOR N INTEGER ELEMENTS.     00170000
CA       IA AND IB MAY BE THE SAME ARRAY.                               00180000
C                                                                       00190000
C                                                                       00200000
      SUBROUTINE ARSBIC (IA, IB, IC, N)                                 00210000
C                                                                       00220000
      INTEGER IA(1)                                                     00230000
      INTEGER IB(1)                                                     00240000
C                                                                       00250000
      DO 10 I = 1, N                                                    00260000
   10 IB(I) = IA(I) - IC                                                00270000
C                                                                       00280000
      RETURN                                                            00290000
C                                                                       00300001
      END                                                               00310000