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.5 * Revision 1.4  1994/09/13  19:24:18  cdaq
 15           * (JRA) Remove hhodo_zpos, add staggering of scintillators
 16           *

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

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

 23 cdaq  1.2 * Revision 1.1  1994/04/12  21:10:43  cdaq
 24           * Initial revision

 25 cdaq  1.3 *
 26           *     The following include statments must precede the inclusion of this
 27           *     file in each routine that uses it.  The *%% syntax is also a
 28           *     directive to makereg to tell it to include the code in the program
 29           *     that it generates.
 30           *
 31           *%%   include 'gen_data_structures.cmn'

 32 cdaq  1.2 *
 33           *     CTPTYPE=parm
 34           *

 35 cdaq  1.1       integer*4 hnum_scin_elements

 36 cdaq  1.5       parameter (hnum_scin_elements=16)

 37 cdaq  1.1 *
 38           * from parameter file
 39                 integer*4 hscin_1x_nr
 40                 integer*4 hscin_1y_nr
 41                 integer*4 hscin_2x_nr
 42                 integer*4 hscin_2y_nr
 43                 integer*4 hscin_num_counters(HNUM_SCIN_PLANES)
 44                 integer*4 hdebugprintscinraw
 45                 integer*4 hdebugprintscindec
 46                 integer*4 hdebugprinttoftracks
 47                 integer*4 hdebugprinttracktests
 48                 real*4 hscin_1x_zpos
 49                 real*4 hscin_1y_zpos
 50                 real*4 hscin_2x_zpos
 51                 real*4 hscin_2y_zpos

 52 cdaq  1.4       real*4 hscin_1x_dzpos
 53                 real*4 hscin_1y_dzpos
 54                 real*4 hscin_2x_dzpos
 55                 real*4 hscin_2y_dzpos

 56 cdaq  1.1       real*4 hscin_1x_left
 57                 real*4 hscin_1y_top
 58                 real*4 hscin_2x_left
 59                 real*4 hscin_2y_top
 60                 real*4 hscin_1x_right
 61                 real*4 hscin_1y_bot
 62                 real*4 hscin_2x_right
 63                 real*4 hscin_2y_bot
 64                 real*4 hscin_1x_top(hnum_scin_elements)
 65                 real*4 hscin_1y_left(hnum_scin_elements)
 66                 real*4 hscin_2x_top(hnum_scin_elements)
 67                 real*4 hscin_2y_left(hnum_scin_elements)
 68                 real*4 hscin_1x_size
 69                 real*4 hscin_1y_size
 70                 real*4 hscin_2x_size
 71                 real*4 hscin_2y_size

 72 cdaq  1.5       integer*4 hscin_all_ped_pos(hnum_scin_planes,hnum_scin_elements)
 73                 integer*4 hscin_all_ped_neg(hnum_scin_planes,hnum_scin_elements)

 74 cdaq  1.1 
 75                 common/hms_scin_parms/            !variables from h_positions.parm
 76                &     hscin_1x_nr, hscin_1y_nr,    !Elements per plane
 77                &     hscin_2x_nr, hscin_2y_nr,
 78                &     hscin_1x_zpos, hscin_1y_zpos, !z position of plane.
 79                &     hscin_2x_zpos, hscin_2y_zpos,

 80 cdaq  1.4      &     hscin_1x_dzpos, hscin_1y_dzpos,
 81                &     hscin_2x_dzpos, hscin_2y_dzpos,

 82 cdaq  1.1      &     hscin_1x_left, hscin_1y_top, !position of 'negative'(??) end.
 83                &     hscin_2x_left, hscin_2y_top,
 84                &     hscin_1x_right, hscin_1y_bot, !position of 'positive'(??) end.
 85                &     hscin_2x_right, hscin_2y_bot,
 86                &     hscin_1x_top, hscin_1y_left, !position of edges of elements.
 87                &     hscin_2x_top, hscin_2y_left,
 88                &     hscin_1x_size, hscin_1y_size, !width of elements.
 89                &     hscin_2x_size, hscin_2y_size,
 90                &     hscin_num_counters,
 91                &     hdebugprintscinraw,
 92                &     hdebugprintscindec,
 93                &     hdebugprinttoftracks,

 94 cdaq  1.5      &     hdebugprinttracktests,
 95                &     hscin_all_ped_pos,
 96                &     hscin_all_ped_neg

 97 cdaq  1.1 
 98           *     Physical paramteres of counters.  Use hhodo_* for arrays that include
 99           *     the entire hodoscope,  hscin_* for arrays that loop over hits.
100                 real*4 hnum_scin_counters(hnum_scin_planes)
101                 real*4 hhodo_center_coord(hnum_scin_planes,hnum_scin_elements)
102                 real*4 hhodo_width(hnum_scin_planes,hnum_scin_elements)
103                 real*4 hhodo_pos_coord(hnum_scin_planes,hnum_scin_elements)
104                 real*4 hhodo_neg_coord(hnum_scin_planes,hnum_scin_elements)
105           
106           *     callibration type variables.
107                 real*4 hhodo_slop(hnum_scin_planes)
108                 real*4 hhodo_vel_light(hnum_scin_planes,hnum_scin_elements)
109                 real*4 hhodo_pos_sigma(hnum_scin_planes,hnum_scin_elements)
110                 real*4 hhodo_neg_sigma(hnum_scin_planes,hnum_scin_elements)
111                 real*4 hhodo_pos_phc_coeff(hnum_scin_planes,hnum_scin_elements)
112                 real*4 hhodo_neg_phc_coeff(hnum_scin_planes,hnum_scin_elements)
113                 real*4 hhodo_pos_time_offset(hnum_scin_planes,hnum_scin_elements)
114                 real*4 hhodo_neg_time_offset(hnum_scin_planes,hnum_scin_elements)
115           
116           
117           *     correction parameters and position information converted to arryas
118 cdaq  1.1 *     over plane and counter
119           
120                 common/hms_tof_parms/
121                &     hnum_scin_counters,
122                &     hhodo_center_coord,
123                &     hhodo_width,
124                &     hhodo_pos_coord,
125                &     hhodo_neg_coord,
126                &     hhodo_slop,
127                &     hhodo_vel_light,
128                &     hhodo_pos_sigma,
129                &     hhodo_neg_sigma,
130                &     hhodo_pos_phc_coeff,
131                &     hhodo_neg_phc_coeff,
132                &     hhodo_pos_time_offset,
133                &     hhodo_neg_time_offset