]> git.uio.no Git - u/mrichter/AliRoot.git/commitdiff
Private path removed.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 30 Apr 2009 16:38:10 +0000 (16:38 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 30 Apr 2009 16:38:10 +0000 (16:38 +0000)
PYTHIA6/QPYTHIA/q-pyshow.1.0.F

index e545b7fc8119a659e5b72b02e60c00a0aa759769..b4e766f262d5af72cc57be15fbb88cf0a483ba68 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