* * Look at sos_id_histid.cmn and hms_id_histid.cmn for examples * *_______________________________________________________________________ * t20_id_histid.cmn * * This common block contains the HBOOK histogram id numbers * for all sos particle id histograms in which direct hfill * calls are made. * * It also contains the paramter flags to turn on and off histograming * of each of the hard coded blocks. * * Created 23 Jan 1997 Stephen A. Wood * * $Log: t20_test_histid.cmn,v $ * Revision 1.1 1998/12/01 21:05:10 saw * Initial revision * *%% include 't20_data_structures.cmn' * * CTPTYPE=parm integer*4 ttst_hid_straw_wletdc integer*4 ttst_hid_straw_letdc integer*4 ttst_hid_straw_width integer*4 ttst_hid_dmxchck integer*4 ttst_hid_wg integer*4 ttst_hid_strawmap integer*4 ttst_hid_numhitsonplanes integer*4 ttst_hid_driftdist integer*4 ttst_hid_driftdistv0 integer*4 ttst_hid_drifttime integer*4 ttst_hid_drifttimet0 integer*4 ttst_hid_xoryhits integer*4 ttst_hid_evtstrcked integer*4 ttst_hid_strawres integer*4 ttst_hid_strawhitgd integer*4 ttst_hid_strawhitbd integer*4 ttst_hid_strawhitms integer*4 ttst_hid_planeoffs(8) integer*4 ttst_hid_linoff(8) integer*4 ttst_hid_trackcode integer*4 ttst_hid_trackcodet integer*4 ttst_hid_oot_thvx integer*4 ttst_hid_oot_phvy integer*4 ttst_hid_oot_yvx common/ttst_straw_histids/ + ttst_hid_straw_wletdc, + ttst_hid_straw_letdc, + ttst_hid_straw_width, + ttst_hid_dmxchck, + ttst_hid_wg, + ttst_hid_strawmap, + ttst_hid_numhitsonplanes, + ttst_hid_driftdist, + ttst_hid_driftdistv0, + ttst_hid_drifttime, + ttst_hid_drifttimet0, + ttst_hid_xoryhits, + ttst_hid_evtstrcked, + ttst_hid_strawres, + ttst_hid_strawhitgd, + ttst_hid_strawhitbd, + ttst_hid_strawhitms, + ttst_hid_planeoffs, + ttst_hid_linoff, + ttst_hid_trackcode, + ttst_hid_trackcodet, + ttst_hid_oot_thvx, + ttst_hid_oot_phvy, + ttst_hid_oot_yvx