* 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.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 'gen_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 integer*4 hscin_all_ped_pos(hnum_scin_planes,hnum_scin_elements) integer*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