* hms_scin_parms.cmn - two common blocks: * * hms_scin_parms - variables from the hms_positions.parm file * hms_tof_parms - tof correction parameters and position parameters * converted to arrays over plane,counter by h_init_scin. * * NOTE: Variables whose names start with hHODO are arrays over * plane and counter. hSCIN is used for parameters from the * .parm files and for arrays over hits. * * Modified 23 March 1994 DFG * Add definition of hnum_scin_elements and set parameter value * $Log: hms_scin_parms.cmn,v $ * Revision 1.9 1995/08/11 16:32:51 cdaq * (JRA) Remove old dpos stuff * Add hscin_zero accumulators * * Revision 1.8 1995/07/28 14:37:25 cdaq * (JRA) Add dimension to hmisc_dec_data * * Revision 1.7 1995/05/22 19:11:18 cdaq * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts. * Make pedestal arrays real. Add hms_scin_positions and hms_misc_parms commons * * Revision 1.6 1995/03/13 19:08:45 cdaq * (JRA) Move hnum_scin_elements to gen_data_structures, remove * hscin_num_counters. Change hscin_??_top and _left to center and offset. * Add hscin_??_spacing parms. Change hhodo_center_coord to hhodo_center. * Add hhodo_???_minph tables. * * Revision 1.5 1994/09/13 21:01:55 cdaq * (JRA) Include arrays for scintillator pedestals * * Revision 1.4 1994/09/13 19:24:18 cdaq * (JRA) Remove hhodo_zpos, add staggering of scintillators * * Revision 1.3 1994/08/05 15:27:18 cdaq * (SAW) Add makereg directive with required include files * * Revision 1.2 1994/08/04 17:55:08 cdaq * (SAW) Add "CTPTYPE=parm" directive for auto generation of CTP reg calls * * Revision 1.1 1994/04/12 21:10:43 cdaq * Initial revision * * The following include statments must precede the inclusion of this * file in each routine that uses it. The *%% syntax is also a * directive to makereg to tell it to include the code in the program * that it generates. * *%% include 'hms_data_structures.cmn' * * CTPTYPE=parm * * from parameter file integer*4 hscin_1x_nr integer*4 hscin_1y_nr integer*4 hscin_2x_nr integer*4 hscin_2y_nr integer*4 hdebugprintscinraw integer*4 hdebugprintscindec integer*4 hdebugprinttoftracks integer*4 hdebugprinttracktests real*4 hscin_1x_zpos real*4 hscin_1y_zpos real*4 hscin_2x_zpos real*4 hscin_2y_zpos real*4 hscin_1x_dzpos real*4 hscin_1y_dzpos real*4 hscin_2x_dzpos real*4 hscin_2y_dzpos real*4 hscin_1x_left real*4 hscin_1y_top real*4 hscin_2x_left real*4 hscin_2y_top real*4 hscin_1x_right real*4 hscin_1y_bot real*4 hscin_2x_right real*4 hscin_2y_bot real*4 hscin_1x_center(hnum_scin_elements) real*4 hscin_1y_center(hnum_scin_elements) real*4 hscin_2x_center(hnum_scin_elements) real*4 hscin_2y_center(hnum_scin_elements) real*4 hscin_1x_offset real*4 hscin_1y_offset real*4 hscin_2x_offset real*4 hscin_2y_offset real*4 hscin_1x_size real*4 hscin_1y_size real*4 hscin_2x_size real*4 hscin_2y_size real*4 hscin_1x_spacing real*4 hscin_1y_spacing real*4 hscin_2x_spacing real*4 hscin_2y_spacing real*4 hscin_all_ped_pos(hnum_scin_planes,hnum_scin_elements) real*4 hscin_all_ped_neg(hnum_scin_planes,hnum_scin_elements) common/hms_scin_parms/ !variables from h_positions.parm & hscin_1x_nr, hscin_1y_nr, !Elements per plane & hscin_2x_nr, hscin_2y_nr, & hscin_1x_zpos, hscin_1y_zpos, !z position of plane. & hscin_2x_zpos, hscin_2y_zpos, & hscin_1x_dzpos, hscin_1y_dzpos, & hscin_2x_dzpos, hscin_2y_dzpos, & hscin_1x_left, hscin_1y_top, !position of 'negative'(??) end. & hscin_2x_left, hscin_2y_top, & hscin_1x_right, hscin_1y_bot, !position of 'positive'(??) end. & hscin_2x_right, hscin_2y_bot, & hscin_1x_center, hscin_1y_center, !center (transverse) of element. & hscin_2x_center, hscin_2y_center, & hscin_1x_size, hscin_1y_size, !width of elements. & hscin_2x_size, hscin_2y_size, & hscin_1x_spacing, hscin_1y_spacing, !separation of centers. & hscin_2x_spacing, hscin_2y_spacing, & hdebugprintscinraw, & hdebugprintscindec, & hdebugprinttoftracks, & hdebugprinttracktests, & hscin_all_ped_pos, & hscin_all_ped_neg, & hscin_1x_offset, hscin_1y_offset, !offset from nominal trans pos. & hscin_2x_offset, hscin_2y_offset * Physical paramteres of counters. Use hhodo_* for arrays that include * the entire hodoscope, hscin_* for arrays that loop over hits. real*4 hnum_scin_counters(hnum_scin_planes) real*4 hhodo_center(hnum_scin_planes,hnum_scin_elements) real*4 hhodo_width(hnum_scin_planes,hnum_scin_elements) real*4 hhodo_pos_coord(hnum_scin_planes,hnum_scin_elements) real*4 hhodo_neg_coord(hnum_scin_planes,hnum_scin_elements) * callibration type variables. real*4 hhodo_slop(hnum_scin_planes) real*4 hhodo_vel_light(hnum_scin_planes,hnum_scin_elements) real*4 hhodo_pos_sigma(hnum_scin_planes,hnum_scin_elements) real*4 hhodo_neg_sigma(hnum_scin_planes,hnum_scin_elements) real*4 hhodo_pos_phc_coeff(hnum_scin_planes,hnum_scin_elements) real*4 hhodo_neg_phc_coeff(hnum_scin_planes,hnum_scin_elements) real*4 hhodo_pos_time_offset(hnum_scin_planes,hnum_scin_elements) real*4 hhodo_neg_time_offset(hnum_scin_planes,hnum_scin_elements) real*4 hhodo_pos_minph(hnum_scin_planes,hnum_scin_elements) ! ADC offset for PH correction real*4 hhodo_neg_minph(hnum_scin_planes,hnum_scin_elements) ! ADC offset for PH correction * correction parameters and position information converted to arryas * over plane and counter common/hms_tof_parms/ & hnum_scin_counters, & hhodo_center, & hhodo_width, & hhodo_pos_coord, & hhodo_neg_coord, & hhodo_slop, & hhodo_vel_light, & hhodo_pos_sigma, & hhodo_neg_sigma, & hhodo_pos_phc_coeff, & hhodo_neg_phc_coeff, & hhodo_pos_time_offset, & hhodo_neg_time_offset, $ hhodo_pos_minph, $ hhodo_neg_minph * * * hms_misc_parms.cmn - misc tdc's filled as array over signal number * (tdc is sparsified, so the raw signals are array over hits) * * CTPTYPE=parm * integer*4 hnum_misc_planes parameter(hnum_misc_planes=2) * * CTPTYPE=event * integer*4 hmisc_dec_data(hmax_misc_hits,hnum_misc_planes) common/hms_misc_parms/ & hmisc_dec_data integer*4 hscin_zero_pos(hnum_scin_planes,hnum_scin_elements) integer*4 hscin_zero_neg(hnum_scin_planes,hnum_scin_elements) integer*4 hscin_zero_num(hnum_scin_planes,hnum_scin_elements) real*4 hscin_zero_pave(hnum_scin_planes,hnum_scin_elements) real*4 hscin_zero_nave(hnum_scin_planes,hnum_scin_elements) common /hms_scin_zero/ & hscin_zero_pos,hscin_zero_neg, & hscin_zero_num, & hscin_zero_pave,hscin_zero_nave