C This file is included in all of the GEANT user routines that make use
c of the common block /myinfo/. (E.J. Brash, Rutgers - August 17,1994)
c
        integer*4 n_2nd,nevent,n_react,n_escape
        integer*4 NTUPLE_ID
        integer*4 NTUPLE_LUNIT
        integer*4 icycle,is
        integer*4 NTUPLE_NVAR         ! Number of variables per event
        integer*4 NTUPLE_NWBUFF       ! Number of words Ntuple allocation
        real ntuple_array
        real*8 xoff1,yoff1,thoff1,phoff1,psoff1
        character*8 ntuple_tags  ! 8 char. maximum
        character*80 ntuple_file  ! Ntuple file
C
        common / myinfo / n_2nd,nevent,n_react,n_escape
        common / myinfo / NTUPLE_ID,NTUPLE_LUNIT,icycle,is
        common / myinfo / NTUPLE_NVAR,NTUPLE_NWBUFF
        common / myinfo / ntuple_array(20)
        common / myinfo / xoff1,yoff1,thoff1,phoff1,psoff1
        common / myinfo / ntuple_tags(20),ntuple_file
c