CTITLEDRATIO -- CALCULATE REJECT RATIO AND STORE ON DISD
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
C
C
CA      AUTHOR -  TRAVIS AVEN
CA      DESIGNER -  TRAVIS AVEN
CA      LANGUAGE -  FORTRAN
CA      SYSTEM -  IBM
CA      WRITTEN -  10-03-84
CA
C         REVISED FOR VS FORTRAN                          TRA   10-03-8400004400
C
C         RELEASED PRODUCTION SPARC                       TRA   01-21-8500004400
C       REVISED   03-10-87 JMP.   MAKE BUFFER LENGTH AN INPUT ARGUMENT.
C       REVISED   03-19-87 JMP.   REMOVE DEBUG PRINT.
C
C
CA
CA
CA   CALLING SEQUENCE
CA
CA   CALL DRATIO(AYNDX, AY, NAY, KPWKD2, TOTALT)
CA
CA   IN    AYNDX   R4   ARRAYS FOR TAKING RATIO
C    IN    AY      R4   DISK BUFFER
CA   IN    NAY     I4   LENGTH OF AY BUFFER IN WORDS
CA   IN    KPWKD2  I4   DCB ADDRESS FOR WORK FILE 2
CA   IN    TOTALT  I4   NUMBER OF ELEMENTS TO RATIO
CA
CA
CA
CA
CA    THIS SUBROUTINE IS USED TO RATIO TWO ARRAYS AND STORE THE
CA   RATIO ON DISK FOR LATER USE AND STORAGE INTO THE TRACE HEADER        .
CA
CA
CA
CA
CA
CA    SUBROUTINES CALLED    FORDSD
CA                          ARDVF
CA
CA
C
C
      SUBROUTINE DRATIO(AYNDX, AY, NAY, KPWKD2, TOTALT)
C
      DIMENSION AYNDX(1), AY(1)
      INTEGER DA2
      INTEGER TOTALT
C
      DA2 = 1
      NSAMP = NAY
      NUM = TOTALT/NAY + 1
      IDX = 1
C
C
C
      DO 10 I=1,NUM
      IF(I.EQ.NUM) NSAMP = TOTALT-(TOTALT/NAY)*NAY
      CALL ARDVF(AYNDX(IDX), AYNDX(IDX+TOTALT), AY, NSAMP)
      CALL FOWDSD(KPWKD2, DA2, AY)
      IDX = IDX + NAY
   10 CONTINUE
C
C
      RETURN
      END