CTITLEARMPF  -- MULTIPLY TWO REAL ARRAYS                                00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                 L.B. LIN                                   00020000
CA    DESIGNER               L.B. LIN                                   00030000
CA    LANGUAGE               FORTRAN                                    00040000
CA    SYSTEM                 IBM AND CRAY                               00050001
CA    WRITTEN                02-14-85                                   00060000
C     REVISED                07-11-86 ESN. FOR USE ON THE IBM.          00070001
CA                                                                      00080000
CA       CALL ARMPF (A, B, C, N)                                        00090000
CA         INPUT   A = REAL ARRAY.                                  R4  00100000
CA         INPUT   B = REAL ARRAY.                                  R4  00110001
CA         OUTPUT  C = REAL ARRAY, PRODUCT OF A ND B.               R4  00120001
CA         INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A, B, C.    I4  00130001
CA                                                                      00140000
CA                                                                      00150000
CA       THIS SUBROUTINE PERFORMS C(I) = A(I) * B(I) FOR N REAL         00160000
CA       ELEMENTS.                                                      00170000
CA                                                                      00180000
CAEND                                                                   00190002
      SUBROUTINE ARMPF (A, B, C, N)                                     00200000
C                                                                       00210001
      DIMENSION A(1)                                                    00220000
      DIMENSION B(1)                                                    00230001
      DIMENSION C(1)                                                    00240001
C                                                                       00250000
      DO 100 I = 1, N                                                   00260001
      C(I) = A(I) * B(I)                                                00270001
 100  CONTINUE                                                          00280001
C                                                                       00290001
      RETURN                                                            00300001
C                                                                       00310001
      END                                                               00320001