Corrected opening of the data file (using the same way as in Pythia6)

[u/mrichter/AliRoot.git] / DPMJET / openfile.f

diff --git a/DPMJET/openfile.f b/DPMJET/openfile.f
index 2dbd952824c1b4a56f0eb45449ecb5aeb12df6c5..c39c038ce5c9fb57c4556e30f60880fefead3a7f 100644 (file)
--- 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