CTITLEARDVF  -- DIVIDE TWO REAL ARRAYS                                  00010001
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                                       00050001
CA    WRITTEN        02-13-86                                           00060000
C     REVISED        07-11-86 ESN. FOR USE ON THE IBM.                  00070001
CA                                                                      00080000
CA                                                                      00090000
CA    CALL ARDVF (A, B, C, N)                                           00100000
CA          INPUT   A = REAL ARRAY                                  R4  00110000
CA          INPUT   B = REAL ARRAY                                  R4  00120000
CA          OUTPUT  C = REAL ARRAY                                  R4  00130000
CA          INPUT   N = NUMBER OF ELEMENTS IN EACH ARRAY A, B, C    I4  00140000
CA                                                                      00150000
CA                                                                      00160000
CA       ARDVF PERFORMS C(I) = A(I) / B(I) FOR N REAL ELEMENTS. ATTEMPT 00170000
CA       TO DIVIDE BY ZERO PRODUCES A ZERO RESULT.                      00180000
CAEND                                                                   00190000
      SUBROUTINE ARDVF (A, B, C, N)                                     00200000
C                                                                       00210000
      REAL         A      (1)                                           00220000
      REAL         B      (1)                                           00230000
      REAL         C      (1)                                           00240000
C                                                                       00250000
          DO 10 I = 1, N                                                00260000
          IF (B(I) .EQ. 0.0) C(I) = 0.0                                 00270001
          IF (B(I) .NE. 0.0) C(I) = A(I) / B(I)                         00280001
   10     CONTINUE                                                      00290000
C                                                                       00300000
      RETURN                                                            00310000
      END                                                               00320000