Corrected opening of the data file (using the same way as in Pythia6)
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sat, 26 Apr 2008 08:49:27 +0000 (08:49 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sat, 26 Apr 2008 08:49:27 +0000 (08:49 +0000)
DPMJET/dpmjet3.0-5.f
DPMJET/libdpmjet.pkg
DPMJET/openfile.f
build/module.dep

index 7c0a623..1467129 100644 (file)
@@ -20665,7 +20665,7 @@ C     REWIND NBERTP
  1000 FORMAT(/,1X,'BERTTP:',4X,'Initialization of evaporation module',
      &       /,12X,'------------------------------------',/)
       NBERNW = 23
-      OPEN (UNIT=NBERNW,FILE='dpmjet.dat',STATUS='UNKNOWN')
+CPH      OPEN (UNIT=NBERNW,FILE='dpmjet.dat',STATUS='UNKNOWN')
 
 **sr 17.5.
 *!!!! changed to be able to read the ASCII !!!!
index 9ca7c02..2556df5 100644 (file)
@@ -1,3 +1,5 @@
+#-*- Mode: Makefile -*-
+
 SRCS:=AliDpmJetRndm.cxx
 
 HDRS= $(SRCS:.cxx=.h) 
@@ -10,3 +12,8 @@ phojet1.12-35c3.f\
 pythia6115dpm3.f\
 user3.0-5.f\
 openfile.f
+
+ifeq (win32gcc,$(ALICE_TARGET))
+PACKSOFLAGS:= $(SOFLAGS) -L$(ALICE_ROOT)/lib/tgt_$(ALICE_TARGET) \
+                         -lmicrocern
+endif
index 2dbd952..c39c038 100644 (file)
 *----------------------------------------------------------------------*
 *
       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
index 0b20604..ea5e772 100644 (file)
@@ -67,6 +67,7 @@ $(LIBPATH)/libRAWDatarecOnline.$(SOEXT): $(LIBPATH)/libRAWDatarec.$(SOEXT)
 $(LIBPATH)/libSTEER.$(SOEXT): $(LIBPATH)/libSTEERBase.$(SOEXT) $(LIBPATH)/libRAWDatabase.$(SOEXT) $(LIBPATH)/libRAWDatarec.$(SOEXT) $(LIBPATH)/libCDB.$(SOEXT) $(LIBPATH)/libAOD.$(SOEXT) $(LIBPATH)/libESD.$(SOEXT)
 $(LIBPATH)/libEVGEN.$(SOEXT): $(LIBPATH)/libSTEERBase.$(SOEXT) $(LIBPATH)/libSTEER.$(SOEXT) $(LIBPATH)/libFASTSIM.$(SOEXT) $(LIBPATH)/libESD.$(SOEXT)
 $(LIBPATH)/libpythia6.$(SOEXT): $(LIBPATH)/libmicrocern.$(SOEXT) $(LIBPATH)/liblhapdf.$(SOEXT)
+$(LIBPATH)/libdpmjet.$(SOEXT): $(LIBPATH)/libmicrocern.$(SOEXT)
 $(LIBPATH)/libAliPythia6.$(SOEXT): $(LIBPATH)/libSTEERBase.$(SOEXT) $(LIBPATH)/libSTEER.$(SOEXT) $(LIBPATH)/libFASTSIM.$(SOEXT) $(LIBPATH)/libpythia6.$(SOEXT) $(LIBPATH)/libEVGEN.$(SOEXT) $(LIBPATH)/liblhapdf.$(SOEXT)
 $(LIBPATH)/libTHijing.$(SOEXT): $(LIBPATH)/libSTEERBase.$(SOEXT) $(LIBPATH)/libSTEER.$(SOEXT) $(LIBPATH)/libhijing.$(SOEXT) $(LIBPATH)/libEVGEN.$(SOEXT)
 $(LIBPATH)/libTHerwig.$(SOEXT): $(LIBPATH)/libSTEER.$(SOEXT) $(LIBPATH)/libherwig.$(SOEXT) $(LIBPATH)/libEVGEN.$(SOEXT)