Private path removed.
[u/mrichter/AliRoot.git] / PYTHIA6 / QPYTHIA / q-pyshow.1.0.F
index e545b7f..b4e766f 100644 (file)
@@ -247,13 +247,17 @@ c     alphas=1, cr=1.
       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