CTITLEARMPIC -- MULTIPLY AN INTEGER ARRAY BY AN INTEGER CONSTANT        00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        STU NELAN                                           00020000
CA    DESIGNER      STU NELAN                                           00030000
CA    LANGUAGE      FORTRAN                                             00040001
CA    SYSTEM        IBM AND CRAY                                        00050001
CA    WRITTEN       10-22-85                                            00060000
C     REVISED       07-11-86 ESN. FOR USE ON THE IBM.                   00070001
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARMPIC (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 IA AND IB I4  00140000
CA                                                                      00150000
CA                                                                      00160000
CA       ARMPIC PERFORMS IB(I) = IA(I) * IC FOR N INTEGER ELEMENTS.     00170000
CA       IA AND IB MAY BE THE SAME ARRAY.                               00180000
CAEND                                                                   00190000
      SUBROUTINE ARMPIC (IA, IB, IC, N)                                 00200000
C                                                                       00210000
      INTEGER IA  (1)                                                   00220000
      INTEGER IB  (1)                                                   00230000
C                                                                       00240000
      IF (N .LE. 0) GO TO                                           50  00250000
C                                                                       00260000
          DO 10  I = 1, N                                               00270000
   10     IB(I) = IA(I) * IC                                            00280000
C                                                                       00290000
   50 RETURN                                                            00300000
C                                                                       00310001
      END                                                               00320000