From 9cbe505972b2684f361582fe90f76e7481ef453c Mon Sep 17 00:00:00 2001
From: ralfulrich <ralf.ulrich@kit.edu>
Date: Thu, 16 Jul 2020 21:58:46 +0200
Subject: [PATCH] printout
---
Processes/QGSJetII/qgsjet-II-04.f | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/Processes/QGSJetII/qgsjet-II-04.f b/Processes/QGSJetII/qgsjet-II-04.f
index 5ccf607d2..b66cdfac2 100644
--- a/Processes/QGSJetII/qgsjet-II-04.f
+++ b/Processes/QGSJetII/qgsjet-II-04.f
@@ -417,7 +417,6 @@ c reading cross sections from the file
* ,exist=lcalc)
lcanRead=0
call CorDataCanDeCompress(lcanRead)
- write (*,*) 'lcanRead=', lcanRead
if (lcalc.and.lcanRead.ne.0) then
luseCompress=1
else
@@ -428,11 +427,12 @@ c reading cross sections from the file
luseCompress = (index(fnIIdat(1:nfnIIdat), ".bz2").eq.nfnIIdat-3)
inquire(file=fnIIdat(1:nfnIIdat), exist=lcalc) !used to link with nexus
endif
+
if(lcalc)then
if(ifIIdat.ne.1)then
if (luseCompress.ne.0) then
- call CorDataOpenFile(DATDIR(1:INDEX(DATDIR,' ')-1)
- * //'qgsdat-II-04.bz2')
+ call CorDataOpenFile(
+ * DATDIR(1:INDEX(DATDIR,' ')-1)//'qgsdat-II-04.bz2')
else
open(1,file=DATDIR(1:INDEX(DATDIR,' ')-1)//'qgsdat-II-04'
* ,status='old')
@@ -1978,8 +1978,8 @@ c nuclear cross sections
if (lcalc.and.lcanRead.ne.0) then
luseCompress=1
else
- inquire(file=DATDIR(1:INDEX(DATDIR,' ')-1)//'sectnu-II-04'
- * ,exist=lcalc)
+ inquire(file=DATDIR(1:INDEX(DATDIR,' ')-1)//'sectnu-II-04'
+ * ,exist=lcalc)
endif
else !ctp
luseCompress = (index(fnIIncs(1:nfnIIncs), ".bz2").eq.nfnIIncs-3)
@@ -1987,12 +1987,13 @@ c nuclear cross sections
endif
if(lcalc)then
- if(debug.ge.0)write (moniou,207)
if(ifIIncs.ne.2)then
if (luseCompress.ne.0) then
+ if(debug.ge.0)write (moniou,207) 'sectnu-II-04.bz2'
call CorDataOpenFile(
* DATDIR(1:INDEX(DATDIR,' ')-1)//'sectnu-II-04.bz2')
else
+ if(debug.ge.0)write (moniou,207) 'sectnu-II-04'
open(2,file=DATDIR(1:INDEX(DATDIR,' ')-1)//'sectnu-II-04'
* ,status='old')
endif
@@ -2057,8 +2058,8 @@ c nuclear cross sections
205 format(2x,'qgaini: pretabulation of the interaction eikonals')
206 format(2x,'qgaini: initial particle energy:',e10.3,2x
*,'its type:',a7,2x,'target mass number:',i2)
-207 format(2x,'qgaini: nuclear cross sections readout from the file'
- *,' sectnu-II-04')
+ 207 format(2x,'qgaini: nuclear cross sections readout from the file:'
+ * ,A,2x)
208 format(2x,'qgaini: initial nucleus energy:',e10.3,2x
*,'projectile mass:',i2,2x,'target mass:',i2)
209 format(2x,'gtot',d10.3,' gprod',d10.3,' gabs',d10.3
@@ -2067,7 +2068,6 @@ c nuclear cross sections
212 format(2x,'qgaini: integrated Pomeron leg eikonals')
213 format(2x,'qgaini: integrated fan contributions')
214 format(2x,'qgaini: cross sections readout from the file: ', A,2x)
-c *,' qgsdat-II-04')
215 format(2x,'qgaini: integrated cut fan contributions')
c216 format(2x,'qgaini: integrated cut Pomeron eikonals')
218 format(2x,'qgaini - end')
--
GitLab