*--------1---------2---------3---------4---------5---------6---------7--

* The main module for everything
*----------------------------------
      program DSTMAIN

* initialize BCS
*----------------------------------
      include './Include/bcs.inc'

* initialize BOSMDL
*----------------------------------
      include './Include/bosmdl.inc'

* initialize BOS
*----------------------------------
      call BNAMES(5000)
      call BOS(IW, NBOSIW)

* read steering banks
*----------------------------------
      call FPARMR(5)
      call BREADC

* open database
*----------------------------------
      JOBNR = MDB('/JOB')

* check input file
*----------------------------------
      if (IFRST('BOSINPUT', 0).eq.0) goto 1000

      call DSTDATA  ! NT steering
      call NTINIT   ! open Ntuple

* event processing loop
*----------------------------------
 100  call BFSEQR('BOSINPUT', IRET)
      if (IRET.lt.0) goto 1000
      if (.not.REVENT) goto 100

* user subroutines
*----------------------------------
      call RUNDATA  ! RUN info
      call TELDATA  ! CT L1 TEs
      call VTXDATA  ! Z-vertex data
      call SPLDATA  ! ELM cluster
      call STRDATA  ! BST strip
      call PADDATA  ! BST pads

      call NTFILL
      goto 100

* final bookkeeping
*----------------------------------
 1000 continue

      call NTCLOSE
      call FPARM('CLOSE ALL')

      IND = MDB('/END')

      stop
      end