hec_beam_pass.f    [#]

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

    ( is called by:   hec_beam.f  )
 

    includes the following commons:

    hec_par.inc
    hec_datacard.inc
    hec_evth.inc
    hec_trig.inc

    This routine calculates the MWPC alignment constants

     First do the initialization of data I/O for the pass by calling:
    hec_io_pass_ini.f

    Then start the loop over all events:

                hec_nextevt()
                 is a function that reads in the next event and fills the
                 common blocks
 
                hec_trig_evt.f
                 this defines all the available triggers

                hec_beam_survey(1).f
                 if beam_survey is called with the argument (1), an initialization is performed
                 and histograms are booked.

                hec_io_pass_evt
                 this calls mzwipe if we are reading Zebra files.

    end of event loop.

    the actual computation of the alignment constants is done with
    a call to:
    hec_beam_survey(2).f
    beam survey is called with argument (2) and the alignment constants are calculated.

    and the the end of data  I/O  is dealt with by calling:
    hec_io_pass_ter.f