CTITLEARADF  -- ADD TWO REAL ARRAYS                                     00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR       STU NELAN                                            00020000
CA    DESIGNER     STU NELAN                                            00030000
CA    LANGUAGE     FORTRAN                                              00040001
CA    SYSTEM       IBM AND CRAY                                         00050001
CA    WRITTEN      01-13-82                                             00060000
C     REVISED      07-11-86 BY ESN. FOR USE ON THE IBM.                 00070001
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARDVFC (A, B, C, N)                                          00100000
CA         INPUT   A = REAL ARRAY                                   R8  00110000
CA         INPUT   B = REAL ARRAY                                   R8  00120000
CA         OUTPUT  C = REAL CONSTANT                                R8  00130000
CA         INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A AND B     I8  00140000
CA                                                                      00150000
CA                                                                      00160000
CA       ARADF PERFORMS C(I) = A(I) + B(I) FOR N REAL ELEMENTS.         00170000
CAEND                                                                   00180000
C     ARADF                                                             00190000
      SUBROUTINE ARADF (A, B, C, N)                                     00200000
C                                                                       00210000
      REAL         A      (1)                                           00220000
      REAL         B      (1)                                           00230000
      REAL         C      (1)                                           00240000
C                                                                       00250000
          DO 10 I = 1, N                                                00260000
          C(I) = A(I) + B(I)                                            00270000
   10     CONTINUE                                                      00280000
C                                                                       00290000
      RETURN                                                            00300000
      END                                                               00310000