From 454792a968d0fe6b6593461795d885db1b4f9a16 Mon Sep 17 00:00:00 2001 From: hristov Date: Thu, 20 Mar 2008 09:29:00 +0000 Subject: [PATCH] Additional SAVE statements comented out in case of blank SAVE --- DPMJET/dpmjet3.0-5.f | 12 ++++++------ DPMJET/phojet1.12-35c3.f | 4 ++-- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/DPMJET/dpmjet3.0-5.f b/DPMJET/dpmjet3.0-5.f index 9087a7f029d..97e0f73a35e 100644 --- a/DPMJET/dpmjet3.0-5.f +++ b/DPMJET/dpmjet3.0-5.f @@ -7478,8 +7478,8 @@ C DATA AMLOM,AMLOB /0.001D0,0.001D0/ DIMENSION SGTCOE (5,33), IHLP (NALLWP) DIMENSION SGTCO1(5,10),SGTCO2(5,8),SGTCO3(5,15) - SAVE SGTCOE, IHLP - SAVE IQFSC1, IQFSC2, IQBSC1, IQBSC2 +CPH SAVE SGTCOE, IHLP +CPH SAVE IQFSC1, IQFSC2, IQBSC1, IQBSC2 EQUIVALENCE (SGTCO1(1,1),SGTCOE(1,1)) EQUIVALENCE (SGTCO2(1,1),SGTCOE(1,11)) EQUIVALENCE (SGTCO3(1,1),SGTCOE(1,19)) @@ -10500,7 +10500,7 @@ C STOP PARAMETER ( LINP = 10 , & LOUT = 6 , & LDAT = 9 ) - SAVE +CPH SAVE PARAMETER (ZERO=0.0D0,ONE=1.0D0,TWO=2.0D0,THREE=3.0D0) @@ -12224,7 +12224,7 @@ c write(*,*) 'glbset called for ',IDPROJ,NA,NB,ELAB,MODE & LOUT = 6 , & LDAT = 9 ) PARAMETER (TINY10=1.0D-10,ZERO=0.0D0,OHALF=0.5D0,ONE=1.0D0) - SAVE +CPH SAVE PARAMETER ( * lower cuts for (valence-sea/sea-valence) chain masses @@ -19658,7 +19658,7 @@ C INCLUDE '(IOUNIT)' & JPTISM (NISMMX), IZWISM (NISMMX), & INWISM (0:NAMSMX) * - SAVE KA0, KZ0, IZ0 +CPH SAVE KA0, KZ0, IZ0 DATA KA0, KZ0, IZ0 / -1, -1, -1 / * IFLAG = 1 @@ -19987,7 +19987,7 @@ C INCLUDE '(IOUNIT)' * T (4,7), RMASS (297), ALPH (297), BET (297), * APRIME (250), IA (6), IZ (6) LOGICAL LFIRST - SAVE LFIRST, EXHYDR, EXNEUT +CPH SAVE LFIRST, EXHYDR, EXNEUT DATA LFIRST / .TRUE. / * IF ( LFIRST ) THEN diff --git a/DPMJET/phojet1.12-35c3.f b/DPMJET/phojet1.12-35c3.f index d49487c0d4e..625663beb2c 100644 --- a/DPMJET/phojet1.12-35c3.f +++ b/DPMJET/phojet1.12-35c3.f @@ -39134,7 +39134,7 @@ CDECK ID>, PHO_grscalc dimension u1(40),ds1(40),g1(40) dimension ud2(20),s2(20),g2(20) dimension up0(20),dsp0(20),gp0(20) - save u1,ds1,g1,ud2,s2,g2,up0,dsp0,gp0 +CPH save u1,ds1,g1,ud2,s2,g2,up0,dsp0,gp0 c data u1/-0.139d0,0.783d0,0.132d0,0.087d0,0.003d0,-0.0134d0, & 0.009d0,-0.017d0,0.092d0,-0.516d0,-0.085d0,0.439d0, @@ -40521,7 +40521,7 @@ C input/output channels COMMON/SASCOM/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), &XPDIR(-6:6) COMMON/SASVAL/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6) - SAVE /SASCOM/,/SASVAL/ +CPH SAVE /SASCOM/,/SASVAL/ C...Temporary array. DIMENSION XPGA(-6:6), VXPGA(-6:6) -- 2.39.3