CTITLEARSET  -- SET ARRAY EQUAL TO A CONSTANT                           00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        FRANCIS COLLINS                                     00020000
CA    DESIGNER      FRANCIS COLLINS                                     00030000
CA    LANGUAGE      FORTRAN                                             00040002
CA    SYSTEM        IBM AND CRAY                                        00050002
CA    WRITTEN                                                           00060000
C     REVISED       07-11-86 ESN. FOR USE ON THE IBM.                   00070002
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARSET (A, N, C)                                              00100000
CA          OUTPUT  A = REAL OR INTEGER ARRAY                   I OR R  00110000
CA          INPUT   N = NUMBER OF ELEMENTS IN A                      I  00120000
CA          INPUT   C = REAL OR INTEGER CONSTANT                I OR R  00130000
CA                                                                      00140000
CA                                                                      00150000
CA       ARSET SETS N SINGLE-WORD ELEMENTS OF A TO THE CONSTANT C,      00160000
CA       REGARDLESS OF TYPE.  TO SET A COMPLEX ARRAY TO A CONSTANT      00170000
CA       (MUST BE SAME FOR BOTH REAL AND IMAGINARY PARTS) SET N AS      00180000
CA       TWICE THE DESIRED NUMBER OF ELEMENTS.                          00190000
CAEND                                                                   00200000
      SUBROUTINE ARSET  (A, N, C)                                       00210000
C                                                                       00220000
      REAL  A  (1)                                                      00230000
C                                                                       00240000
          DO 10  I = 1,N                                                00250000
          A(I) = C                                                      00260000
   10     CONTINUE                                                      00270000
C                                                                       00280000
      RETURN                                                            00290000
C                                                                       00300002
      END                                                               00310000