CTITLEARSQRT -- TAKE SQUARE ROOT 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       09-02-81                                            00060002
C     REVISED       07-11-86 ESN. FOR USE ON THE IBM.                   00070002
CA                                                                      00080002
CA                                                                      00090002
CA    CALL ARSQRT (A, B, N)                                             00100002
CA         INPUT   A = REAL ARRAY                                   R4  00110002
CA         OUTPUT  B = REAL ARRAY                                   R4  00120000
CA         INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A AND B     I4  00130002
CA                                                                      00140002
CA                                                                      00150002
CA       ARSQRT PERFORMS B(I) = SQRT A(I) FOR N REAL ELEMENTS.          00160002
CA       A AND B MAY BE THE SAME ARRAY.                                 00170002
CAEND                                                                   00180002
      SUBROUTINE ARSQRT (A, B, N)                                       00190002
C                                                                       00200002
      REAL         A      (N)                                           00210002
      REAL         B      (N)                                           00220000
C                                                                       00230002
          DO 10  I = 1,N                                                00240002
          B(I) = SQRT (A(I))                                            00250002
   10     CONTINUE                                                      00260002
C                                                                       00270002
      RETURN                                                            00280002
C                                                                       00290002
      END                                                               00300002