CTITLEARADFC -- ADD A REAL CONSTANT TO A REAL ARRAY                     00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR         C. HANEY                                           00020000
CA    DESIGNER       C. HANEY                                           00030000
CA    LANGUAGE       FORTRAN                                            00040002
CA    SYSTEM         IBM AND CRAY                                       00050002
CA    WRITTEN        02-28-85                                           00060000
C     REVISED        07-11-86 BY ESN. FOR USE ON THE IBM.               00070002
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARADFC (A, B, C, N)                                          00100000
CA         INPUT   A = REAL ARRAY                                   R8  00110000
CA         OUTPUT  B = REAL ARRAY                                   R8  00120000
CA         INPUT   C = REAL CONSTANT                                R8  00130000
CA         INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A AND B     I8  00140000
CA                                                                      00150000
CA                                                                      00160000
CA       ARADFC PERFORMS B(I) = A(I) + C FOR N REAL ELEMENTS.           00170000
CA       A AND B MAY BE THE SAME ARRAY.                                 00180000
CAEND                                                                   00190000
      SUBROUTINE ARADFC (A, B, C, N)                                    00200000
C                                                                       00210000
      REAL         A      (1)                                           00220000
      REAL         B      (1)                                           00230000
C                                                                       00240000
          DO 10 I = 1, N                                                00250000
          B(I) = A(I) + C                                               00260000
   10     CONTINUE                                                      00270000
C                                                                       00280000
      RETURN                                                            00290000
      END                                                               00300000