Additional SAVE statements comented out in case of blank SAVE

diff --git a/DPMJET/dpmjet3.0-5.f b/DPMJET/dpmjet3.0-5.f
index 9087a7f029dc94916019d0766de9e30ea110f1b1..97e0f73a35eb7a3c1319976b0e5f0d716ffc32b8 100644 (file)
--- 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 d49487c0d4ecc76be25b699c7b109aef1b7b0ee6..625663beb2ccb1bc1e880b6e8b9f22c6c7745c0d 100644 (file)
--- 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)