|
version 1.1, 1994/07/22 13:55:48
|
version 1.3, 1996/01/17 15:58:04
|
|
|
|
| * |
|
| *--------------------------------------------------------------------------- | *--------------------------------------------------------------------------- |
| *--- file: hacking.cmn |
*-- file: hack_.cmn |
| *--- include file for USER DEVOLOPMENT common blocks definitions; |
*-- include file for USER DEVOLOPMENT common block definitions; |
| *--- used in files HACKING*.F |
* used in files HACK_*.F |
| *--- the arrays hack_par (integer) and hack_output (real) are provided |
*-- The parameter hack_enable must be set to .ne. 0 to enable execution of |
| *--- for convenience and are registered for external input and output; |
* hack_anal subroutine for each event. |
| *--- any additional variables should be added (and registered) 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 |
| |
* (HB) New version |
| |
* |
| * Revision 1.1 1994/07/22 13:55:48 cdaq | * Revision 1.1 1994/07/22 13:55:48 cdaq |
| * Initial revision | * Initial revision |
| * | * |
| *--------------------------------------------------------------------------- | *--------------------------------------------------------------------------- |
| * | * |
| *** include 'gen_data_structures.cmn' ! Include files may not include |
* CTPTYPE=parm |
| *** other include files. |
|
| * | * |
| integer*4 max_user_par |
integer*4 hack_enable |
| parameter (max_user_par=1024) |
common /hack_c/ hack_enable |
| * | * |
| integer*4 hack_int(max_user_par) !User Development input parameters |
* |
| real*4 hack_real(max_user_par) !User Development output results |
* CTPTYPE=event |
| common /hacking_c/ hack_int,hack_real |
|
| * | * |
| 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