SUBROUTINE ZES_FSIG_FILL
      IMPLICIT NONE
#include "zescommon.inc"
#include "sidat95.inc"
C#include "ezhbook.inc"
#include "zisles.inc"
#include "zdrecgb.inc"
#include "ctrlcm.inc"

      INTEGER      IERR,IWANT
      LOGICAL      FIRST
      DATA         FIRST / .TRUE./
      IWANT    = 0               !!! Do not Write-Out Event

C --------------------------
C --- Init on first call ---
C --------------------------
      CALL MODIN ('ZES_FSIG', IERR)
      IF (FIRST) THEN

C --- HLIMIT has to be called before VCEAZE ---
C         CALL HLIMIT(-Nwds_HBOOK)

C --- SIRA95 init ---
         doHESCLU = .TRUE.
         doVCTDCA = .TRUE.
         DCA_eCUT = 20.0

C --- Init ZUFOs --- (unless someone else does that already)
         CALL z_ini_Isles
         CALL z_ini_RecGB

C --- Init EM ---
         CALL EMINIT

C --- Init VCTRAK for secondary vertex reconstruction ---
C         CALL VCEAZE(1,0,0,0,1,IERR)

C --- Init Cal Geom.
         CALL BASINIT

         FIRST = .FALSE.
      ENDIF

      CALL GENFIL
      CALL GTRUNP(CTRL_YEAR, CTRL_RUNPRD)
      IF (CTRL_RUNPRD.NE.-10) THEN    !!! do not process BOR
        CALL TRKFIL

C A.F.M. 8.6.99 changed calling order from
C        CALL CALCORR(Ierr)
C        CALL NOISESP(CTRL_YEAR,ZES_RunNr)
C to

        CALL NOISESP(CTRL_YEAR,ZES_RunNr)
        CALL CALCORR(Ierr)

        CALL ELEFIL(CTRL_YEAR)
        CALL DO_ZUFOS
        CALL CALFIL
        CALL MUOFIL
        CALL BPCFIL(ZES_RunNr)
        CALL BGDFIL(ZES_RunNr, ZES_EventNr,
     &              CTRL_YEAR,    REAL_DATA)
        CALL DO_KINE
      ENDIF


      CALL MODOUT('ZES_FSIG')

      END