CTITLEARMPI  -- MULTIPLY TWO INTEGER ARRAYS                             00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                 STU NELAN                                  00020000
CA    DESIGNER               STU NELAN                                  00030000
CA    LANGUAGE               FORTRAN                                    00040000
CA    SYSTEM                 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       CALL ARMPI (IA, IB, IC, N)                                     00090000
CA         INPUT   IA = INTEGER ARRAY.                              I4  00100000
CA         INPUT   IB = INTEGER ARRAY.                              I4  00110000
CA         OUTPUT  IC = INTEGER ARRAY, PRODUCT OF A ND B.           I4  00120000
CA         INPUT    N = NUMBER OF ELEMENTS IN EACH ARRAY A, B, C.   I4  00130000
CA                                                                      00140000
CA                                                                      00150000
CA       THIS SUBROUTINE PERFORMS C(I) = A(I) * B(I) FOR N INTEGER      00160000
CA       ELEMENTS.                                                      00170000
CA                                                                      00180000
CA                                                                      00190000
      SUBROUTINE ARMPI (IA, IB, IC, N)                                  00200000
C                                                                       00210001
      DIMENSION IA(1)                                                   00220000
      DIMENSION IB(1)                                                   00230000
      DIMENSION IC(1)                                                   00240000
C                                                                       00250000
      DO 100 I = 1, N                                                   00260000
      IC(I) = IA(I) * IB(I)                                             00270000
 100  CONTINUE                                                          00280000
C                                                                       00290000
      RETURN                                                            00300000
C                                                                       00310001
      END                                                               00320000