|
version 1.2, 1994/07/25 18:02:18
|
version 1.3, 1996/01/17 15:58:04
|
|
|
|
| * used in files HACK_*.F | * used in files HACK_*.F |
| *-- The parameter hack_enable must be set to .ne. 0 to enable execution of | *-- The parameter hack_enable must be set to .ne. 0 to enable execution of |
| * hack_anal subroutine for each event. | * hack_anal subroutine for each event. |
| *-- provided for general use are the 1024 element long arrays: |
|
| *- hack_eventint, hack_eventreal: two arrays for storage of user-calculated |
|
| * values for each event which can be accessed from the "outside", e.g. |
|
| * in histogram definitions or in tests; one array for integer results, |
|
| * the other array for real results; |
|
| *- hack_parmreal: an array for input of real values, e.g. for calibration |
|
| * constants. |
|
| *-- any additional arrays or variables my be added by the user | *-- any additional arrays or variables my be added by the user |
| *--------------------------------------------------------------------------- | *--------------------------------------------------------------------------- |
| * $Log$ | * $Log$ |
| |
* Revision 1.3 1996/01/17 15:58:04 cdaq |
| |
* (JRA) Hacked it a bit |
| |
* |
| * Revision 1.2 1994/07/25 18:02:18 cdaq | * Revision 1.2 1994/07/25 18:02:18 cdaq |
| * (HB) New version | * (HB) New version |
| * | * |
|
|
|
| * | * |
| *--------------------------------------------------------------------------- | *--------------------------------------------------------------------------- |
| * | * |
| integer*4 max_user_par |
* CTPTYPE=parm |
| parameter (max_user_par=1024) |
|
| * | * |
| integer*4 hack_enable | integer*4 hack_enable |
| integer*4 hack_eventint(max_user_par) !User Development event output |
common /hack_c/ hack_enable |
| real*4 hack_eventreal(max_user_par) !User Development event output |
* |
| real*4 hack_parmreal(max_user_par) !User Development parameter input |
* |
| common /hack_c/ hack_enable, |
* CTPTYPE=event |
| & hack_parmreal,hack_eventreal,hack_eventint |
|
| * | * |
| integer hack_hmssc_au(16,4) !raw HMS-scintillator ADC up in fixed array | integer hack_hmssc_au(16,4) !raw HMS-scintillator ADC up in fixed array |
| integer hack_hmssc_ad(16,4) !raw HMS-scintillator ADC down in fixed array | integer hack_hmssc_ad(16,4) !raw HMS-scintillator ADC down in fixed array |
| integer hack_hmssc_tu(16,4) !raw HMS-scintillator TDC up in fixed array | integer hack_hmssc_tu(16,4) !raw HMS-scintillator TDC up in fixed array |
| integer hack_hmssc_td(16,4) !raw HMS-scintillator TDC down in fixed array | integer hack_hmssc_td(16,4) !raw HMS-scintillator TDC down in fixed array |
| integer hack_hmssc_go(16,4) !info about which ADC/TDC fired | integer hack_hmssc_go(16,4) !info about which ADC/TDC fired |
| |
* |
| common/hack_copyeve_c/ hack_hmssc_au,hack_hmssc_ad, | common/hack_copyeve_c/ hack_hmssc_au,hack_hmssc_ad, |
| & hack_hmssc_tu,hack_hmssc_td,hack_hmssc_go | & hack_hmssc_tu,hack_hmssc_td,hack_hmssc_go |
| * |
|
| *--------------------------------------------------------------------------- |
|
Return to
hack_.cmn
CVS log
Up to [HallC] / Analyzer / INCLUDE