CTITLEARDVI  -- DIVIDE TWO INTEGER 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 ARDVI (IA, IB, IC, N)                                        00100000
CA          INPUT   IA = INTEGER ARRAY                              I4  00110000
CA          INPUT   IB = INTEGER ARRAY                              I4  00120000
CA          OUTPUT  IC = INTEGER ARRAY                              I4  00130000
CA          INPUT    N = NUMBER OF ELEMENTS IN EACH ARRAY IA, IB,   I4  00140000
CA                       AND IC                                         00150000
CA                                                                      00160000
CA                                                                      00170000
CA       ARDVI PERFORMS IC(I) = IA(I) / IB(I) FOR N INTEGER ELEMENTS.   00180000
CA       ATTEMPT TO DIVIDE BY ZERO WILL PRODUCE A ZERO RESULT.          00190000
CA       REMAINDERS ARE DISCARDED.                                      00200000
CAEND                                                                   00210000
      SUBROUTINE ARDVI (IA, IB, IC, N)                                  00220000
C                                                                       00230000
      INTEGER     IA      (1)                                           00240000
      INTEGER     IB      (1)                                           00250000
      INTEGER     IC      (1)                                           00260000
C                                                                       00270000
          DO 10 I = 1, N                                                00280000
          IF (IB(I) .EQ. 0) IC(I) = 0                                   00290000
          IF (IB(I) .NE. 0) IC(I) = IA(I) / IB(I)                       00300000
   10     CONTINUE                                                      00310000
C                                                                       00320000
      RETURN                                                            00330000
      END                                                               00340000