CTITLEARMPFC -- MULTIPLY A REAL ARRAY BY A REAL CONSTANT                00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        FRANCIS COLLINS                                     00020001
CA    DESIGNER      FRANCIS COLLINS                                     00030000
CA    LANGUAGE      FORTRAN                                             00040004
CA    SYSTEM        IBM AND CRAY                                        00050004
CA    WRITTEN       08-26-81                                            00060001
C     REVISED       07-11-86 ESN. FOR USE ON THE IBM.                   00070004
CA                                                                      00080001
CA                                                                      00090001
CA    CALL ARMPFC (A, B, C, N)                                          00100001
CA         INPUT   A = REAL ARRAY                                   R4  00110001
CA         OUTPUT  B = REAL ARRAY                                   R4  00120001
CA         INPUT   C = REAL CONSTANT                                R4  00130001
CA         INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A AND B     I4  00140000
CA                                                                      00150001
CA                                                                      00160001
CA       ARMPFC PERFORMS B(I) = A(I) * C FOR N REAL ELEMENTS.           00170001
CA       A AND B MAY BE THE SAME ARRAY.                                 00180001
CAEND                                                                   00190001
      SUBROUTINE ARMPFC (A, B, C, N)                                    00200001
C                                                                       00210001
      REAL         A      (1)                                           00220001
      REAL         B      (1)                                           00230000
C                                                                       00240000
          DO 10  I = 1, N                                               00250003
          B(I) = C * A(I)                                               00260003
   10     CONTINUE                                                      00270000
C                                                                       00280000
      RETURN                                                            00290000
C                                                                       00300003
      END                                                               00310000