CTITLEARSMFA -- SUM THE ABS. VALUES OF A REAL ARRAY                     00010002
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        FRANCIS COLLINS                                     00020002
CA    DESIGNER      FRANCIS COLLINS                                     00030002
CA    LANGUAGE      FORTRAN                                             00040002
CA    SYSTEM        IBM AND CRAY                                        00050002
CA    WRITTEN       08-26-81                                            00060002
C     REVISED       07-11-86 ESN. FOR USE ON THE IBM.                   00070002
CA                                                                      00080002
CA                                                                      00090002
CA    CALL ARSMFA (A, N, S)                                             00100002
CA         INPUT   A = REAL ARRAY                                   R4  00110000
CA         INPUT   N = NUMBER OF ELEMENTS IN A                      I4  00120002
CA         OUTPUT  S = REAL SUM                                     R4  00130002
CA                                                                      00140002
CA                                                                      00150002
CA       ARSMFA RETURNS IN S THE SUM OF THE ABSOLUTE VALUES OF THE      00160002
CA       N REAL ELEMENTS IN A.                                          00170002
CAEND                                                                   00180002
      SUBROUTINE ARSMFA (A, N, S)                                       00190002
C                                                                       00200000
      REAL         A      (N)                                           00210000
C                                                                       00220000
      S = 0.0                                                           00230000
          DO 10  I = 1,N                                                00240000
          S = S + ABS (A(I))                                            00250000
   10     CONTINUE                                                      00260000
C                                                                       00270000
      RETURN                                                            00280000
C                                                                       00290002
      END                                                               00300000