CTITLEARDVFC -- DIVIDE A REAL ARRAY BY A REAL CONSTANT                  00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR         STU NELAN                                          00020000
CA    DESIGNER       STU NELAN                                          00030000
CA    LANGUAGE       FORTRAN                                            00040000
CA    SYSTEM         IBM AND CRAY                                       00050000
CA    WRITTEN        01-13-82                                           00060000
C     REVISED        07-11-86 ESN. FOR USE ON THE IBM.                  00070000
C     REVISED        02-04-87 ESN. CHECK FOR DIVISION BY 0.             00080000
CA                                                                      00090000
CA                                                                      00100000
CA    CALL ARDVFC (A, B, C, N)                                          00110000
CA         INPUT   A = REAL ARRAY                                   R8  00120000
CA         OUTPUT  B = REAL ARRAY                                   R8  00130000
CA         INPUT   C = REAL CONSTANT                                R8  00140000
CA         INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A AND B     I8  00150000
CA                                                                      00160000
CA                                                                      00170000
CA       ARDVFC PERFORMS B(I) = A(I) / C FOR N REAL ELEMENTS.  ZERO     00180000
CA       DIVISION IS CHECKED.  A AND B MAY BE THE SAME ARRAY.           00190000
CAEND                                                                   00200000
      SUBROUTINE ARDVFC (A, B, C, N)                                    00210000
C                                                                       00220000
      REAL         A      (1)                                           00230000
      REAL         B      (1)                                           00240000
C                                                                       00250000
      IF (C .EQ. 0.0) THEN                                              00260000
          CONST = 0.0                                                   00270000
      ELSE                                                              00280000
          CONST = 1.0 / C                                               00290000
      ENDIF                                                             00300000
C                                                                       00310000
      DO 10 I = 1, N                                                    00320000
          B(I) = A(I) * CONST                                           00330000
   10 CONTINUE                                                          00340000
C                                                                       00350000
      RETURN                                                            00360000
      END                                                               00370000