1 cdaq  1.1 *---------------------------------------------------------------------------

 2 cdaq  1.2 *-- file: hack_.cmn
 3           *-- include file for USER DEVOLOPMENT common block definitions;
 4           *     used in files HACK_*.F
 5           *-- The parameter hack_enable must be set to .ne. 0 to enable execution of
 6           *     hack_anal subroutine for each event.
 7           *-- any additional arrays or variables my be added by the user

 8 cdaq  1.1 *---------------------------------------------------------------------------

 9 cdaq  1.2 * $Log: hack_.cmn,v $

10 cdaq  1.3 * Revision 1.2  1994/07/25 18:02:18  cdaq
11           * (HB) New version
12           *

13 cdaq  1.2 * Revision 1.1  1994/07/22  13:55:48  cdaq
14           * Initial revision

15 cdaq  1.1 *

16 cdaq  1.2 *---------------------------------------------------------------------------

17 cdaq  1.1 *

18 cdaq  1.3 *     CTPTYPE=parm

19 cdaq  1.1 *

20 cdaq  1.2       integer*4 hack_enable

21 cdaq  1.3       common /hack_c/ hack_enable
22           *
23           *
24           *     CTPTYPE=event

25 cdaq  1.1 *
26                 integer hack_hmssc_au(16,4) !raw HMS-scintillator ADC up in fixed array
27                 integer hack_hmssc_ad(16,4) !raw HMS-scintillator ADC down in fixed array
28                 integer hack_hmssc_tu(16,4) !raw HMS-scintillator TDC up in fixed array
29                 integer hack_hmssc_td(16,4) !raw HMS-scintillator TDC down in fixed array
30                 integer hack_hmssc_go(16,4) !info about which ADC/TDC fired

31 cdaq  1.3 *

32 cdaq  1.1       common/hack_copyeve_c/ hack_hmssc_au,hack_hmssc_ad,
33                & hack_hmssc_tu,hack_hmssc_td,hack_hmssc_go