CTITLEARSMF  -- SUM THE ELEMENTS OF 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                                             00040001
CA    SYSTEM        IBM AND CRAY                                        00050001
CA    WRITTEN       01-13-82                                            00060000
C     REVISED       07-11-86 ESN. FOR USE ON THE IBM.                   00070001
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARSMF  (A, N, S)                                             00100001
CA         INPUT   A = REAL ARRAY                                   R8  00110000
CA         INPUT   N = NUMBER OF ELEMENTS IN A                      I8  00120000
CA         OUTPUT  S = REAL SUM                                     R8  00130000
CA                                                                      00140000
CA                                                                      00150000
CA       ARSMF RETURNS IN S THE ALGEBRAIC SUM OF THE N REAL ELEMENTS    00160000
CA       IN A.                                                          00170000
CAEND                                                                   00180000
      SUBROUTINE ARSMF (A, N, S)                                        00190000
C                                                                       00200000
      REAL         A      (1)                                           00210000
C                                                                       00220000
      S = 0.0                                                           00230001
      DO 10 I = 1, N                                                    00240001
      S = S + A(I)                                                      00250001
   10 CONTINUE                                                          00260001
C                                                                       00270000
      RETURN                                                            00280000
C                                                                       00290001
      END                                                               00300000