CTITLEARMPAS -- MULTIPLY COMPLEX ARRAY BY A REAL ARRAY                  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                                       00050000
CA    WRITTEN        03-25-86                                           00060000
C     REVISED        07-11-86 ESN. FOR USE ON THE IBM.                  00070000
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARMPAS (Z, W, A, N)                                          00100000
CA          INPUT   Z = COMPLEX ARRAY                               C4  00110000
CA          OUTPUT  W = COMPLEX ARRAY                               C4  00120000
CA          INPUT   A = REAL ARRAY                                  R4  00130000
CA          INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY Z, W,      I4  00140000
CA                      AND A                                           00150000
CA                                                                      00160000
CA                                                                      00170000
CA       ARMPAS MULTIPLIES THE COMPLEX ARRAY Z BY THE REAL ARRAY A      00180000
CA       AND STORES THE RESULT IN THE COMPLEX ARRAY W.                  00190000
CA       IE. IF Z(J) = (X+IY) AND AA = A(J)                             00200000
CA       THEN W(J) = (AA*X + AA*IY).                                    00210000
CA       Z AND W MAY BE THE SAME ARRAY.                                 00220000
CA                                                                      00230000
CA       ARRAY A IS NORMALLY AN AMPLITUDE SPECTRUM.                     00240000
CAEND                                                                   00250000
      SUBROUTINE ARMPAS (Z, W, A, N)                                    00260000
C                                                                       00270000
      REAL    A(N)                                                      00280000
C                                                                       00290000
      COMPLEX W(N)                                                      00300000
      COMPLEX Z(N)                                                      00310000
C                                                                       00320000
      DO 10 I = 1, N                                                    00330000
   10 W(I) = Z(I) * A(I)                                                00340000
C                                                                       00350000
      RETURN                                                            00360000
C                                                                       00370000
      END                                                               00380000