CTITLERCSUM  -- RECURSIVE SUM OF A VECTOR
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR       J. M. PONTON
CA    DESIGNER     J. M. PONTON
CA    LANGUAGE     VSFORTRAN
CA    SYSTEM       IBM  (SEE CRAY LIBRARY BENCHLIB)
CA    WRITTEN      07-16-86
C     REVISED      MO-DA-YR BY PROGRAMMER FOR REASON
CA
CA    CALL RCSUM(N, A, B)
CA
CA    IN/OUT  ARGUMENT  TYPE  DESCRIPTION
CA    ------  --------  ----  -----------
CA     IN       N        I4   NUMBER OF ELEMENTS TO SUM.
CA
CA     IN       A        R4   ARRAY TO BE SUMMED.
CA
CA     OUT      B        R4   ARRAY OF SUMS. (B(I) = A(1) + A(2) + ... + A(I))
CA
CA
CA    SEE CRAY BENCHLIB DOCUMENTATION.
CA
C     EJECT
      SUBROUTINE RCSUM(N, A, B)
C
      IMPLICIT INTEGER (A-Z)
C
      REAL A(1), B(1)
C
      B(1) = A(1)
C
      DO 10 I = 2, N
         B(I) = B(I-1) + A(I)
   10 CONTINUE
C
      RETURN
      END