CTITLEARSMFS -- SUM THE SQUARES OF ELEMENTS IN 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 ARSMFS (A, N, S)                                             00100002
CA         INPUT   A = REAL ARRAY                                   R4  00110002
CA         INPUT   N = NUMBER OF ELEMENTS IN A                      I4  00120002
CA         OUTPUT  S = REAL SUM                                     R4  00130002
CA                                                                      00140002
CA                                                                      00150000
CA       ARSMFS RETURNS IN S THE SUM OF SQUARES OF THE N REAL ELEMENTS  00160002
CA       IN A.                                                          00170002
CAEND                                                                   00180002
      SUBROUTINE ARSMFS (A, N, S)                                       00190002
C                                                                       00200002
      REAL         A      (N)                                           00210002
C                                                                       00220002
      S = 0.0                                                           00230002
          DO 10  I = 1,N                                                00240000
          S = S + A(I)*A(I)                                             00250000
   10     CONTINUE                                                      00260000
C                                                                       00270000
      RETURN                                                            00280000
C                                                                       00290002
      END                                                               00300000