|
version 1.3, 1995/05/22 19:39:13
|
version 1.4, 1998/12/17 22:02:39
|
|
|
|
| *- | *- |
| *- Created: 20 Mar 1994 Tsolak A. Amatuni | *- Created: 20 Mar 1994 Tsolak A. Amatuni |
| * $Log$ | * $Log$ |
| |
* Revision 1.4 1998/12/17 22:02:39 saw |
| |
* Support extra set of tubes on HMS shower counter |
| |
* |
| * Revision 1.3 1995/05/22 19:39:13 cdaq | * Revision 1.3 1995/05/22 19:39:13 cdaq |
| * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" | * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" |
| * | * |
|
|
|
| * | * |
| include 'hms_data_structures.cmn' | include 'hms_data_structures.cmn' |
| include 'hms_calorimeter.cmn' | include 'hms_calorimeter.cmn' |
| |
data hcal_num_neg_columns /0/ ! No extra tubes unless specified in parm files |
| * | * |
| *-----Initialize the positions | *-----Initialize the positions |
| do column=1,hmax_cal_columns | do column=1,hmax_cal_columns |
Return to
h_init_cal.f
CVS log
Up to [HallC] / Analyzer / HTRACKING