CTITLEARADC  -- ADD TWO COMPLEX 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          05-30-86                                         00060000
C     REVISED          07-11-86 ESN. FOR USE ON THE IBM.                00070001
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARADC (A, B, C, N)                                           00100001
CA          INPUT   A = COMPLEX ARRAY                               C4  00110000
CA          INPUT   B = COMPLEX ARRAY                               C4  00120000
CA          OUTPUT  C = COMPLEX ARRAY                               C4  00130000
CA          INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A, B,      I4  00140000
CA                      AND C                                           00150000
CA                                                                      00160000
CA                                                                      00170000
CA       ARADC PERFORMS C(I) = A(I) + B(I) FOR N COMPLEX ELEMENTS.      00180001
CA       A, B, AND/OR C MAY BE THE SAME ARRAY.                          00190001
CAEND                                                                   00200000
      SUBROUTINE ARADC (A, B, C, N)                                     00210000
C                                                                       00220000
      COMPLEX A(N)                                                      00230000
      COMPLEX B(N)                                                      00240000
      COMPLEX C(N)                                                      00250000
C                                                                       00260000
      DO 10 I = 1, N                                                    00270000
   10 C(I) = A(I) + B(I)                                                00280000
C                                                                       00290000
      RETURN                                                            00300000
C                                                                       00310000
      END                                                               00320000