CTITLEARSMIA -- SUM THE ABS. VALUES OF A INTEGER ARRAY                  00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        STU NELAN                                           00020000
CA    DESIGNER      STU NELAN                                           00030000
CA    LANGUAGE      FORTRAN                                             00040003
CA    SYSTEM        IBM AND CRAY                                        00050003
CA    WRITTEN       02-13-86                                            00060000
C     REVISED       07-11-86 ESN. FOR USE ON THE IBM.                   00070003
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARSMIA (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       ARSMIA RETURNS IN IS THE SUM OF THE ABSOLUTE VALUES OF THE     00160000
CA       N INTEGER ELEMENTS IN IA.                                      00170000
CAEND                                                                   00180000
      SUBROUTINE ARSMIA (IA, N, IS)                                     00190000
C                                                                       00200000
      INTEGER     IA      (N)                                           00210001
C                                                                       00220000
      IS = 0                                                            00230002
          DO 10  I = 1,N                                                00240000
          IS = IS + IABS (IA(I))                                        00250000
   10     CONTINUE                                                      00260000
C                                                                       00270000
      RETURN                                                            00280000
C                                                                       00290003
      END                                                               00300000