46 lines
1.8 KiB
PHP
46 lines
1.8 KiB
PHP
c
|
|
c cwn.inc
|
|
c
|
|
c include variable declaration for cwn Ntuples
|
|
c
|
|
c TP, 15-Sep-2000, PSI
|
|
c
|
|
c-----------------------------------------------------------------------------
|
|
c
|
|
c CWN variables
|
|
c
|
|
real*4 nt_x0, nt_y0, nt_z0, nt_px0, nt_py0, nt_pz0, nt_p0
|
|
integer*4 nt_ipart
|
|
real*4 nt_xe, nt_ye, nt_ze, nt_eposend
|
|
real*4 nt_tmcp, nt_tsci ! times are integer, use 1ns bins
|
|
real*4 nt_xsci, nt_ysci, nt_zsci
|
|
real*4 nt_desci, nt_descipos, nt_descigam, nt_desciele
|
|
real*4 nt_xsco, nt_ysco, nt_zsco
|
|
real*4 nt_desco, nt_descopos, nt_descogam, nt_descoele
|
|
integer*4 nt_volno, nt_partcode
|
|
integer*4 nt_mcpnhits, nt_scinhits, nt_sconhits
|
|
real*4 nt_pxpos, nt_pypos, nt_pzpos
|
|
real*4 nt_demcp
|
|
real*4 nt_descil, nt_descit, nt_descir, nt_descib,
|
|
1 nt_descol, nt_descot, nt_descor, nt_descob
|
|
c
|
|
c the common blocks
|
|
c
|
|
common /de_ltrb/ nt_descil, nt_descit, nt_descir, nt_descib,
|
|
1 nt_descol, nt_descot, nt_descor, nt_descob
|
|
common /init_par/ nt_x0, nt_y0, nt_z0, nt_px0, nt_py0, nt_pz0,
|
|
1 nt_p0
|
|
common /partcode/ nt_ipart
|
|
common /end_pos/ nt_xe, nt_ye, nt_ze, nt_eposend
|
|
common /times/ nt_tmcp, nt_tsci
|
|
common /sci_pos/ nt_xsci, nt_ysci, nt_zsci
|
|
common /sci_elos/ nt_desci, nt_descipos, nt_descigam, nt_desciele
|
|
common /sco_pos/ nt_xsco, nt_ysco, nt_zsco
|
|
common /sco_elos/ nt_desco , nt_descopos, nt_descogam, nt_descoele
|
|
common /flags/ nt_volno, nt_partcode
|
|
common /nhits/ nt_mcpnhits, nt_scinhits, nt_sconhits
|
|
common /pos_mom/ nt_pxpos, nt_pypos, nt_pzpos
|
|
common /de_mcp/ nt_demcp
|
|
c
|
|
c-----------------------------------------------------------------------------
|