CTITLEARSMI  -- SUM THE ELEMENTS OF AN INTEGER 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       02-13-86                                            00060000
C     REVISED       07-11-86 ESN. FOR USE ON THE IBM.                   00070001
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARMPFC (IA, N, IS)                                           00100000
CA         INPUT   IA = INTEGER ARRAY                                I4 00110000
CA         INPUT    N = NUMBER OF ELEMENTS IN A                      I4 00120000
CA         OUTPUT  IS = INTEGER SUM                                  I4 00130000
CA                                                                      00140000
CA                                                                      00150000
CA       ARSMI RETURNS IN IS THE ALGEBRAIC SUM OF THE N INTEGER ELEMENTS00160000
CA       IN I.                                                          00170000
CAEND                                                                   00180000
      SUBROUTINE ARSMI (IA, N, IS)                                      00190000
C                                                                       00200000
      INTEGER      IA      (1)                                          00210000
C                                                                       00220000
      IS = 0                                                            00230000
      DO 10 I = 1, N                                                    00240000
      IS = IS + IA(I)                                                   00250000
   10 CONTINUE                                                          00260000
C                                                                       00270000
      RETURN                                                            00280000
C                                                                       00290001
      END                                                               00300000