Additional SAVE statements comented out in case of blank SAVE
[u/mrichter/AliRoot.git] / DPMJET / phojet1.12-35c3.f
index d49487c..625663b 100644 (file)
@@ -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)