1 jones 1.1 C This file is included in all of the GEANT user routines that make use
2 c of the common block /myinfo/. (E.J. Brash, Rutgers - August 17,1994)
3 c
4 integer*4 n_2nd,nevent,n_react,n_escape
5 integer*4 NTUPLE_ID
6 integer*4 NTUPLE_LUNIT
7 integer*4 icycle,is
8 integer*4 NTUPLE_NVAR ! Number of variables per event
9 integer*4 NTUPLE_NWBUFF ! Number of words Ntuple allocation
10 real ntuple_array
11 real*8 xoff1,yoff1,thoff1,phoff1,psoff1
12 character*8 ntuple_tags ! 8 char. maximum
13 character*80 ntuple_file ! Ntuple file
14 C
15 common / myinfo / n_2nd,nevent,n_react,n_escape
16 common / myinfo / NTUPLE_ID,NTUPLE_LUNIT,icycle,is
17 common / myinfo / NTUPLE_NVAR,NTUPLE_NWBUFF
18 common / myinfo / ntuple_array(20)
19 common / myinfo / xoff1,yoff1,thoff1,phoff1,psoff1
20 common / myinfo / ntuple_tags(20),ntuple_file
21 c
|