X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=blobdiff_plain;f=DPMJET%2Fopenfile.f;h=c39c038ce5c9fb57c4556e30f60880fefead3a7f;hp=2dbd952824c1b4a56f0eb45449ecb5aeb12df6c5;hb=f87dab603dfbbc58716a501879bc8b7708f2880f;hpb=4bf5ea44340b4e8fd3c75af9cf94619fc03f5626

diff --git a/DPMJET/openfile.f b/DPMJET/openfile.f
index 2dbd952824c..c39c038ce5c 100644
--- a/DPMJET/openfile.f
+++ b/DPMJET/openfile.f
@@ -10,7 +10,31 @@
 *----------------------------------------------------------------------*
 *
       IMPLICIT NONE
+      LOGICAL EXISTS
+      INTEGER LNROOT
+      CHARACTER*1000 FILNAM
+      CHARACTER*1000 CHROOT
+      CHROOT=' '
+      CALL GETENVF('ALICE_ROOT',CHROOT)
+      LNROOT = LNBLNK(CHROOT)
+      IF(LNROOT.LE.0) THEN
+         FILNAM='dpmjet.dat'
+      ELSE
+         FILNAM=CHROOT(1:LNROOT)//'/DPMJET/dpmjet.dat'
+      ENDIF
+      INQUIRE(FILE=FILNAM,EXIST=EXISTS)
+      IF(.NOT.EXISTS) THEN
+         PRINT*,'***********************************'
+         PRINT*,'*           openfile              *'
+         PRINT*,'*        ---------------          *'
+         PRINT*,'*   File dpmjet.dat not found     *'
+         PRINT*,'*         Program STOP            *'
+         PRINT*,'*   Check ALICE_ROOT environment  *'
+         PRINT*,'*           variable              *'
+         PRINT*,'***********************************'
+         STOP
+      ENDIF
       OPEN (10, FILE="dpmjet.inp", STATUS="OLD")
-      OPEN (23, FILE="dpmjet.dat", STATUS="OLD")
+      OPEN (23, FILE=FILNAM, STATUS="OLD")
       RETURN
       END