*--------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

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

* user subroutines
*----------------------------------
      call PADSIM

      goto 100

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

      call FPARM('CLOSE ALL')

      IND = MDB('/END')

      stop
      end