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 brash 1.2         real*8 xofff,yofff,thofff,phofff,psofff
13                   real*8 xinit,yinit,thinit,phiinit

14 jones 1.1         character*8 ntuple_tags  ! 8 char. maximum
15                   character*80 ntuple_file  ! Ntuple file
16           C
17                   common / myinfo / n_2nd,nevent,n_react,n_escape
18                   common / myinfo / NTUPLE_ID,NTUPLE_LUNIT,icycle,is
19                   common / myinfo / NTUPLE_NVAR,NTUPLE_NWBUFF

20 brash 1.4         common / myinfo / ntuple_array(40)

21 jones 1.1         common / myinfo / xoff1,yoff1,thoff1,phoff1,psoff1

22 brash 1.4         common / myinfo / ntuple_tags(40),ntuple_file

23 jones 1.1 c