CTITLEARDVIC -- DIVIDE AN INTEGER ARRAY BY AN INTEGER CONSTANT          00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR         STU NELAN                                          00020000
CA    DESIGNER       STU NELAN                                          00030000
CA    LANGUAGE       FORTRAN                                            00040001
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 ARDVIC (IA, IB, IC, N)                                       00100000
CA         INPUT   IA = INTEGER ARRAY                               I4  00110000
CA         OUTPUT  IB = INTEGER ARRAY                               I4  00120000
CA         INPUT   IC = INTEGER CONSTANT                            I4  00130000
CA         INPUT    N = NUMBER OF ELEMENTS IN EACH ARRAY A AND B    I4  00140000
CA                                                                      00150000
CA                                                                      00160000
CA       ARDVIC PERFORMS IB(I) = IA(I) / IC FOR N INTEGER ELEMENTS. ZERO00170000
CA       DIVISION IS NOT CHECKED.  IA AND IB MAY BE THE SAME ARRAY.     00180000
CAEND                                                                   00190000
      SUBROUTINE ARDVIC (IA, IB, IC, N)                                 00200000
C                                                                       00210000
      INTEGER      IA      (1)                                          00220000
      INTEGER      IB      (1)                                          00230000
C                                                                       00240000
          DO 10 I = 1, N                                                00250000
          IB(I) = IA(I) / IC                                            00260000
   10     CONTINUE                                                      00270000
C                                                                       00280000
      RETURN                                                            00290000
      END                                                               00300000