CTITLESAZM2DG -- RETRIEVE OUTPUT TRACES FROM WORKFILE.
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA
CA   DESIGNER     JAMES SUN
CA   AUTHOR       JAMES SUN
CA   LANGUAGE     FORTRAN
CA   SYSTEM       IBM AND CRAY
CA   WRITTEN      02/08/89
CA
C    REVISED      03/31/89  JCS - REAPPLY MUTE TO THE DEPTH SECTION
C    REVISED      01/20/90  JJC - MODIFIED TO MEET EDP STANDARDS.
C    REVISED      04/19/94  ESN - MOVED TO THE CRAY.
C
CA
CA CALLING PROCEDURE:
CA     SUBROUTINE SAZM2DG(IXOUT,NTRGET,INDEX4,IZDX,ISEQDX,A,B,
CA   +                    NX,NZM,NZBF,IF4)
CA
C   CALLING ARGUMENTS
CA
CA     INPUT     IXOUT   =   OUTPUT TRACE INDEX                      I4
CA     INPUT     NTRGET  =   NUMBER OF TRACES TO RETRIEVE            I4
CA     INPUT     INDEX4  =   WORKFILE INDEX                          I4
CA     INPUT     IZDX    =   BLOCK INDEX                             I4
CA     INPUT     ISEQDX  =   WORD LOCATION                           I4
CA     OUTPUT    A       =   OUTPUT TRACES BUFFER                    R4
CA     OUTPUT    B       =   WORK ARRAY                              R4
CA     INPUT     NX      =   NUMBER OF CDP'SR                        I4
CA     INPUT     NZM     =   NUMBER OF DEPTH STEPS FOR MIGRATION     I4
CA     INPUT     NZBF    =   NUMBER OF DEPTH BLOCKS                  I4
CA     INPUT     IF4     =   WORD INDEX IN WORK FILE                 I4
C                                                                    I4
C
      SUBROUTINE SAZM2DG(IXOUT,NTRGET,INDEX4,IZDX,ISEQDX,A,B,
     +               NX,NZM,NZBF,IF4)
C
      IMPLICIT   INTEGER(A-Z)
C
      REAL     A
      REAL     B
C
      DIMENSION  IZDX(1),ISEQDX(1),A(NZM,1),B(NX,1)
C
C
      DO 120 IZBF=1,NZBF
      IZ1=IZDX(IZBF)
      IF(IZBF.NE.NZBF) THEN
        IZ2=IZDX(IZBF+1)-1
        NGET=ISEQDX(IZBF+1)-ISEQDX(IZBF)
      ELSE
        IZ2=NZM
        NGET=IF4-ISEQDX(IZBF)+1
      ENDIF
C
C
      CALL READWA(INDEX4,B,ISEQDX(IZBF),NGET,1)
      CALL WUNIT(INDEX4)
C
C
      JZ=1
      DO 100 IZ=IZ1,IZ2
        CALL SCOPY(NTRGET,B(IXOUT,JZ),1,A(IZ,1),NZM)
  100 JZ=JZ+1
C
C
  120 CONTINUE
C
C
      RETURN
      END