1 cdaq  1.1 * hms_scin_parms.cmn -  two common blocks:
  2           *
  3           *    hms_scin_parms - variables from the hms_positions.parm file
  4           *    hms_tof_parms  - tof correction parameters and position parameters
  5           *                     converted to arrays over plane,counter by h_init_scin.
  6           *
  7           *    NOTE:  Variables whose names start with hHODO are arrays over
  8           *           plane and counter.  hSCIN is used for parameters from the
  9           *           .parm files and for arrays over hits.
 10           *
 11           *       Modified 23 March 1994   DFG
 12           *           Add definition of hnum_scin_elements and set parameter value

 13 cdaq  1.2 * $Log: hms_scin_parms.cmn,v $

 14 cdaq  1.9 * Revision 1.8  1995/07/28  14:37:25  cdaq
 15           * (JRA) Add dimension to hmisc_dec_data
 16           *

 17 cdaq  1.8 * Revision 1.7  1995/05/22  19:11:18  cdaq
 18           * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts.
 19           * Make pedestal arrays real.  Add hms_scin_positions and hms_misc_parms commons
 20           *

 21 cdaq  1.7 * Revision 1.6  1995/03/13  19:08:45  cdaq
 22           * (JRA) Move hnum_scin_elements to gen_data_structures, remove
 23           *       hscin_num_counters.  Change hscin_??_top and _left to center and offset.
 24           *       Add hscin_??_spacing parms.  Change hhodo_center_coord to hhodo_center.
 25           *       Add hhodo_???_minph tables.
 26           *

 27 cdaq  1.6 * Revision 1.5  1994/09/13  21:01:55  cdaq
 28           * (JRA) Include arrays for scintillator pedestals
 29           *

 30 cdaq  1.5 * Revision 1.4  1994/09/13  19:24:18  cdaq
 31           * (JRA) Remove hhodo_zpos, add staggering of scintillators
 32           *

 33 cdaq  1.4 * Revision 1.3  1994/08/05  15:27:18  cdaq
 34           * (SAW) Add makereg directive with required include files
 35           *

 36 cdaq  1.3 * Revision 1.2  1994/08/04  17:55:08  cdaq
 37           * (SAW) Add "CTPTYPE=parm" directive for auto generation of CTP reg calls
 38           *

 39 cdaq  1.2 * Revision 1.1  1994/04/12  21:10:43  cdaq
 40           * Initial revision

 41 cdaq  1.3 *
 42           *     The following include statments must precede the inclusion of this
 43           *     file in each routine that uses it.  The *%% syntax is also a
 44           *     directive to makereg to tell it to include the code in the program
 45           *     that it generates.
 46           *

 47 cdaq  1.7 *%%   include 'hms_data_structures.cmn'

 48 cdaq  1.2 *
 49           *     CTPTYPE=parm
 50           *

 51 cdaq  1.1 * from parameter file
 52                 integer*4 hscin_1x_nr
 53                 integer*4 hscin_1y_nr
 54                 integer*4 hscin_2x_nr
 55                 integer*4 hscin_2y_nr
 56                 integer*4 hdebugprintscinraw
 57                 integer*4 hdebugprintscindec
 58                 integer*4 hdebugprinttoftracks
 59                 integer*4 hdebugprinttracktests
 60                 real*4 hscin_1x_zpos
 61                 real*4 hscin_1y_zpos
 62                 real*4 hscin_2x_zpos
 63                 real*4 hscin_2y_zpos

 64 cdaq  1.4       real*4 hscin_1x_dzpos
 65                 real*4 hscin_1y_dzpos
 66                 real*4 hscin_2x_dzpos
 67                 real*4 hscin_2y_dzpos

 68 cdaq  1.1       real*4 hscin_1x_left
 69                 real*4 hscin_1y_top
 70                 real*4 hscin_2x_left
 71                 real*4 hscin_2y_top
 72                 real*4 hscin_1x_right
 73                 real*4 hscin_1y_bot
 74                 real*4 hscin_2x_right
 75                 real*4 hscin_2y_bot

 76 cdaq  1.6       real*4 hscin_1x_center(hnum_scin_elements)
 77                 real*4 hscin_1y_center(hnum_scin_elements)
 78                 real*4 hscin_2x_center(hnum_scin_elements)
 79                 real*4 hscin_2y_center(hnum_scin_elements)
 80                 real*4 hscin_1x_offset
 81                 real*4 hscin_1y_offset
 82                 real*4 hscin_2x_offset
 83                 real*4 hscin_2y_offset

 84 cdaq  1.1       real*4 hscin_1x_size
 85                 real*4 hscin_1y_size
 86                 real*4 hscin_2x_size
 87                 real*4 hscin_2y_size

 88 cdaq  1.6       real*4 hscin_1x_spacing
 89                 real*4 hscin_1y_spacing
 90                 real*4 hscin_2x_spacing
 91                 real*4 hscin_2y_spacing

 92 cdaq  1.7       real*4 hscin_all_ped_pos(hnum_scin_planes,hnum_scin_elements)
 93                 real*4 hscin_all_ped_neg(hnum_scin_planes,hnum_scin_elements)

 94 cdaq  1.1 
 95                 common/hms_scin_parms/            !variables from h_positions.parm
 96                &     hscin_1x_nr, hscin_1y_nr,    !Elements per plane
 97                &     hscin_2x_nr, hscin_2y_nr,
 98                &     hscin_1x_zpos, hscin_1y_zpos, !z position of plane.
 99                &     hscin_2x_zpos, hscin_2y_zpos,

100 cdaq  1.4      &     hscin_1x_dzpos, hscin_1y_dzpos,
101                &     hscin_2x_dzpos, hscin_2y_dzpos,

102 cdaq  1.1      &     hscin_1x_left, hscin_1y_top, !position of 'negative'(??) end.
103                &     hscin_2x_left, hscin_2y_top,
104                &     hscin_1x_right, hscin_1y_bot, !position of 'positive'(??) end.
105                &     hscin_2x_right, hscin_2y_bot,

106 cdaq  1.6      &     hscin_1x_center, hscin_1y_center, !center (transverse) of element.
107                &     hscin_2x_center, hscin_2y_center,

108 cdaq  1.1      &     hscin_1x_size, hscin_1y_size, !width of elements.
109                &     hscin_2x_size, hscin_2y_size,

110 cdaq  1.6      &     hscin_1x_spacing, hscin_1y_spacing, !separation of centers.
111                &     hscin_2x_spacing, hscin_2y_spacing,

112 cdaq  1.1      &     hdebugprintscinraw,
113                &     hdebugprintscindec,
114                &     hdebugprinttoftracks,

115 cdaq  1.5      &     hdebugprinttracktests,
116                &     hscin_all_ped_pos,

117 cdaq  1.6      &     hscin_all_ped_neg,
118                &     hscin_1x_offset, hscin_1y_offset, !offset from nominal trans pos.
119                &     hscin_2x_offset, hscin_2y_offset
120            

121 cdaq  1.1 *     Physical paramteres of counters.  Use hhodo_* for arrays that include
122           *     the entire hodoscope,  hscin_* for arrays that loop over hits.
123                 real*4 hnum_scin_counters(hnum_scin_planes)

124 cdaq  1.6       real*4 hhodo_center(hnum_scin_planes,hnum_scin_elements)

125 cdaq  1.1       real*4 hhodo_width(hnum_scin_planes,hnum_scin_elements)
126                 real*4 hhodo_pos_coord(hnum_scin_planes,hnum_scin_elements)
127                 real*4 hhodo_neg_coord(hnum_scin_planes,hnum_scin_elements)
128           
129           *     callibration type variables.
130                 real*4 hhodo_slop(hnum_scin_planes)
131                 real*4 hhodo_vel_light(hnum_scin_planes,hnum_scin_elements)
132                 real*4 hhodo_pos_sigma(hnum_scin_planes,hnum_scin_elements)
133                 real*4 hhodo_neg_sigma(hnum_scin_planes,hnum_scin_elements)
134                 real*4 hhodo_pos_phc_coeff(hnum_scin_planes,hnum_scin_elements)
135                 real*4 hhodo_neg_phc_coeff(hnum_scin_planes,hnum_scin_elements)
136                 real*4 hhodo_pos_time_offset(hnum_scin_planes,hnum_scin_elements)
137                 real*4 hhodo_neg_time_offset(hnum_scin_planes,hnum_scin_elements)

138 cdaq  1.6       real*4 hhodo_pos_minph(hnum_scin_planes,hnum_scin_elements) ! ADC offset for PH correction
139                 real*4 hhodo_neg_minph(hnum_scin_planes,hnum_scin_elements) ! ADC offset for PH correction

140 cdaq  1.1 
141           *     correction parameters and position information converted to arryas
142           *     over plane and counter
143           
144                 common/hms_tof_parms/
145                &     hnum_scin_counters,

146 cdaq  1.6      &     hhodo_center,

147 cdaq  1.1      &     hhodo_width,
148                &     hhodo_pos_coord,
149                &     hhodo_neg_coord,
150                &     hhodo_slop,
151                &     hhodo_vel_light,
152                &     hhodo_pos_sigma,
153                &     hhodo_neg_sigma,
154                &     hhodo_pos_phc_coeff,
155                &     hhodo_neg_phc_coeff,
156                &     hhodo_pos_time_offset,

157 cdaq  1.6      &     hhodo_neg_time_offset,
158                $     hhodo_pos_minph,
159                $     hhodo_neg_minph

160 cdaq  1.7 *
161           *
162           * hms_misc_parms.cmn -  misc tdc's filled as array over signal number
163           *         (tdc is sparsified, so the raw signals are array over hits)
164           *

165 cdaq  1.8 *     CTPTYPE=parm
166           *
167                 integer*4 hnum_misc_planes
168                 parameter(hnum_misc_planes=2)

169 cdaq  1.7 *
170           *     CTPTYPE=event
171           *

172 cdaq  1.8       integer*4 hmisc_dec_data(hmax_misc_hits,hnum_misc_planes)

173 cdaq  1.7 
174                 common/hms_misc_parms/
175                &   hmisc_dec_data

176 cdaq  1.9 
177           
178                 integer*4 hscin_zero_pos(hnum_scin_planes,hnum_scin_elements)
179                 integer*4 hscin_zero_neg(hnum_scin_planes,hnum_scin_elements)
180                 integer*4 hscin_zero_num(hnum_scin_planes,hnum_scin_elements)
181                 real*4 hscin_zero_pave(hnum_scin_planes,hnum_scin_elements)
182                 real*4 hscin_zero_nave(hnum_scin_planes,hnum_scin_elements)
183           
184                 common /hms_scin_zero/
185                &    hscin_zero_pos,hscin_zero_neg,
186                &    hscin_zero_num,
187                &    hscin_zero_pave,hscin_zero_nave
188