dimension xspec(101,101)
dimension aux1(101), aux2(101)
save xkap2, xlkap2, xome, xlome, xspec, npkap, npome
+ character*1000 filnam
+ character*1000 chroot
DATA IFLAG/0/
c WE READ THE GRID ONLY THE FIRST TIME.
IF (IFLAG .EQ. 0) THEN
-c print*, 'reading qgrid'
- open(11,file=
- +'/ed22/dfs/work/ALICE/offline/AliRoot/trunk/PYTHIA6/qgrid',
- +status='old')
+ chroot=' '
+ call getenvf('ALICE_ROOT',chroot)
+ lnroot= lnblnk(chroot)
+ filnam=chroot(1:lnroot)//'/PYTHIA6/QPYTHIA/qgrid'
+ write(6,*) "Opening file ", filnam
+ open(11,file=filnam, status='old')
read(11,*) npkap
read(11,*) npome
npkap=npkap+1