( is called by: hec_beam_survey.f
, hec_beam_fit.f )
includes the following commons:
hec_beam_sys_clusters.inc
hec_beam_sys_shifts.inc
hec_dwpc.inc
hec_runh.inc
This routine is called with an argument: `mode'
mode=0 takes all mwpc clusters and fills the cluster common blocks.
mode=1 takes only the clusters from the beam region; takes into
account the cryostat and movable table positions
Somewhere
along the line the subroutine:
hec_beam_xymwpc.f
is called,
which decodes the mwpc data word idata
and returns
: n_cha = chamber number (1 .. 5)
i_xy = 1 if x-coordinate plane
=-1 if y-coordiante plane
coor = cluster coordinate in cm
ch_width = cluster half width