SUBROUTINE ZES_DST_FILL
      IMPLICIT NONE
#include "partap.inc"
#include "zescommon.inc"
#include "zdskey.inc"

      Call Fettab(ZDSKEY,ID,1)

      ZES_DSTW(1)=ZDSKEY_tstam11
      ZES_DSTW(2)=ZDSKEY_tstam12
      ZES_DSTW(3)=ZDSKEY_tstam21
      ZES_DSTW(4)=ZDSKEY_tstam22

C     fix GSLT passthrough bits for 1997 data
C     -- T. H. commented out since no longer 
C     Call ZES_FIX_DST97(ZES_DSTW)

      END