C
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CTITLESADM3DB -- PREPARING TABLE FOR VARIABLE VELOCITY CASE
CA
CA   DESIGNER     JAMES SUN
CA   AUTHOR       JAMES SUN
CA   LANGUAGE     FORTRAN 77
CA   SYSTEM       CRAY/IBM
CA   WRITTEN      04/19/90
C    REVISED      12/17/91  JJC - MODIFIED TO MEET SPARC STANDARDS.
CA
CA
CA CALLING PROCEDURE:
CA     SUBROUTINE SADM3DB(GAMMA,WORK,STRCH,NT)
CA
C   CALLING ARGUMENTS
CA
CA     IN         GAMMA     1-D TIME VARYING SCALING 1-D ARRAY
CA     OUTPUT     WORK      2-D ARRAY
CA     IN         STRCH     1-D ARRAY FOR DMO STRETCH FUNCTION
CA     IN         NT        NUMBER OF TIME SAMPLES
C
C
C
      SUBROUTINE SADM3DB(GAMMA,WORK,STRCH,NT)
C                                                                       09370003
C                                                                       09370003
      DIMENSION GAMMA(1)
      DIMENSION STRCH(1)
      DIMENSION WORK(NT,1)
C                                                                       09370003
C                                                                       09370003
      DO 140 IKK=1,1001
C                                                                       09370003
C
        IF(IKK.EQ.1) THEN
          DO 100 IT=1,NT
  100     WORK(IT,IKK)=IT
C                                                                       09370003
C
        ELSE
          CALL ARSET(WORK(1,IKK),NT,FLOAT(NT+1))
          DO 120 ITN=1,NT                                               19010006
            JKK=NINT(FLOAT(IKK-1)/GAMMA(ITN))+1                         18930006
            JKK=MIN0(JKK,1001)
            AIT0=FLOAT(ITN-1)/STRCH(JKK)
            IT0=AIT0+1
            WORK(IT0,IKK)=AIT0*FLOAT(ITN-1)/AMAX1(1.,FLOAT(IT0-1))+1.
  120     CONTINUE                                                      19080006
C
C
        ENDIF
C
C
  140 CONTINUE
C
C
      RETURN
      END