SUBROUTINE ZES_FLT_FILL
      IMPLICIT NONE
#include "zescommon.inc"
#include "partap.inc"
#include "o1subt.inc"
#include "o1evnt.inc"

      Call Fettab(O1SUBT,ID,1)
      Call Fettab(O1EVNT,ID,1)

      ZES_FLTw(1)=O1SUBT_Subtrg(1)
      ZES_FLTw(2)=O1SUBT_Subtrg(2)
      ZES_FLTpsW(1)=O1EVNT_Subtrg(1)
      ZES_FLTpsW(2)=O1EVNT_Subtrg(2)

c     ?? GFLT event flags: contain Fast Clear bits
c     ZES_FLTfl = O1EVNT_FLTfl

      END