* initialize DST branches
*----------------------------------
      integer RUNFIL, TELFIL, VTXFIL, SPLFIL, STRFIL, PADFIL

      common /BRANCH/ RUNFIL, TELFIL, VTXFIL, SPLFIL, STRFIL, PADFIL

* initialize CUT variables
*----------------------------------
      real ZVCUT, ECLCUT
      integer NCLCUT, NTCUT

      common /CUT/ ZVCUT, NCLCUT, ECLCUT, NTCUT