Avoid duplicated SAVE statements for G95
authoralibrary <alibrary@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 29 Apr 2005 01:47:59 +0000 (01:47 +0000)
committeralibrary <alibrary@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 29 Apr 2005 01:47:59 +0000 (01:47 +0000)
57 files changed:
HIJING/hijing/bveg1_hijing.inc
HIJING/hijing/bveg2_hijing.inc
HIJING/hijing/bveg3_hijing.inc
HIJING/hijing/dpmcom1.inc
HIJING/hijing/dpmcom2.inc
HIJING/hijing/hijcrdn.inc
HIJING/hijing/hijdat.inc
HIJING/hijing/hijhb.inc
HIJING/hijing/hijjet1.inc
HIJING/hijing/hijjet2.inc
HIJING/hijing/hijjet4.inc
HIJING/hijing/himain1.inc
HIJING/hijing/himain2.inc
HIJING/hijing/hiparnt.inc
HIJING/hijing/hipyint.inc
HIJING/hijing/histrng.inc
HIJING/hijing/ludat1_hijing.inc
HIJING/hijing/ludat3_hijing.inc
HIJING/hijing/lujets_hijing.inc
HIJING/hijing/njet_hijing.inc
HIJING/hijing/pact_hijing.inc
HIJING/hijing/pyint1_hijing.inc
HIJING/hijing/pyint2_hijing.inc
HIJING/hijing/pyint5_hijing.inc
HIJING/hijing/pypars_hijing.inc
HIJING/hijing/pysubs_hijing.inc
HIJING/hijing/wood_hijing.inc
HIJING/hijing1_36/ar3jet.F
HIJING/hijing1_36/arorie.F
HIJING/hijing1_36/atrobo.F
HIJING/hijing1_36/attrad.F
HIJING/hijing1_36/crsjet.F
HIJING/hijing1_36/fjet.F
HIJING/hijing1_36/fjetrig.F
HIJING/hijing1_36/g.F
HIJING/hijing1_36/ghvq.F
HIJING/hijing1_36/gphoton.F
HIJING/hijing1_36/hiboost.F
HIJING/hijing1_36/hijcrs.F
HIJING/hijing1_36/hijcsc.F
HIJING/hijing1_36/hijels.F
HIJING/hijing1_36/hijfrg.F
HIJING/hijing1_36/hijhrd.F
HIJING/hijing1_36/hijing.F
HIJING/hijing1_36/hijini.F
HIJING/hijing1_36/hijset.F
HIJING/hijing1_36/hijsft.F
HIJING/hijing1_36/hijsrt.F
HIJING/hijing1_36/hijwds.F
HIJING/hijing1_36/hiptdi.F
HIJING/hijing1_36/hirnd.F
HIJING/hijing1_36/hirnd2.F
HIJING/hijing1_36/jetini.F
HIJING/hijing1_36/parton.F
HIJING/hijing1_36/profile.F
HIJING/hijing1_36/quench.F
HIJING/hijing1_36/vegas.F

index 6eb37a6f759ba8d352000651d23a3e51895031ef..09344e3c21d943b51d0debb1416c84cc7853cd5f 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
        DOUBLE PRECISION XL(10),XU(10),ACC
        COMMON/BVEG1_HIJING/XL,XU,ACC,NDIM,NCALL,ITMX,NPRN
+#ifndef BLANKET_SAVE
        SAVE  /BVEG1_HIJING/
+#endif
index 094ae41a35921396ba3c538fd014f6a666ce40e8..9cf9392881875c5e93f319faf9f8f62d0cdcf43a 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       DOUBLE PRECISION XI, SI, SI2, SWGT, SCHI
       COMMON/BVEG2_HIJING/XI(50,10),SI,SI2,SWGT,SCHI,NDO,IT
+#ifndef BLANKET_SAVE
       SAVE  /BVEG2_HIJING/
+#endif
index 2c386b39d289d0fac084fc173fb51634e849516d..e14e1325c72b4f29d3f06b829ae0a4785fc8ad86 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       DOUBLE PRECISION F, TI, TSI
       COMMON/BVEG3_HIJING/F,TI,TSI   
+#ifndef BLANKET_SAVE
       SAVE  /BVEG3_HIJING/
+#endif
index eaa60ffb1cd5769417dfb8fed7d3d2c9d3893f84..0284a8da1130fda90b415bd0b7c2eba5ff1c4cf8 100644 (file)
@@ -4,4 +4,6 @@
       COMMON/DPMCOM1/JJP,JJT,AMP,AMT,APX0,ATX0,AMPN,AMTN,AMP0,AMT0,
      &         NFDP,NFDT,WP,WM,SW,XREMP,XREMT,DPKC1,DPKC2,PP11,PP12,
      &         PT11,PT12,PTP2,PTT2
+#ifndef BLANKET_SAVE
       SAVE  /DPMCOM1/
+#endif
index d3b33454fa783034f238a62f840b9738b59feffd..c2c5b5d253d855c58b12e640a3fc97a9b431db07 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       REAL PDPM1,PDPM2
       COMMON/DPMCOM2/NDPM,KDPM(20,2),PDPM1(20,5),PDPM2(20,5)
+#ifndef BLANKET_SAVE
       SAVE  /DPMCOM2/
+#endif
index a77ef2a2d6e5d2b9896114396424c98ef230c690..d02b9037ff9b14e730058dca607ca3438a27112a 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
         REAL YP, YT
        COMMON/HIJCRDN/YP(3,300),YT(3,300)
+#ifndef BLANKET_SAVE
        SAVE  /HIJCRDN/
+#endif
index 3fc510d695fae44664eb516e8cbc58b3927dce81..96811cf8f6d95abfaa53bbeeef9692ad2cabb880 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
         REAL HIDAT0, HIDAT
         COMMON/HIJDAT/HIDAT0(10,10),HIDAT(10)
+#ifndef BLANKET_SAVE
        SAVE  /HIJDAT/
+#endif
index 26b6a8b2f902a9ca47459ff8c22b355e26fc0b91..e9b0162a84d3e006b1302be122961691280293e2 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
        REAL RR, XX
        COMMON/HIJHB/RR(10,201),XX(10,201)
+#ifndef BLANKET_SAVE
        SAVE  /HIJHB/
+#endif
index cd0ed87a2d90241893bdb6474bcb324c310114a3..aa0aca12fabd233323f5d0620e55e1856e92f2b9 100644 (file)
@@ -5,4 +5,6 @@
      &                PJPM(300,500),NTJ(300),KFTJ(300,500),
      &                PJTX(300,500),PJTY(300,500),PJTZ(300,500),
      &                PJTE(300,500),PJTM(300,500)
+#ifndef BLANKET_SAVE
       SAVE  /HIJJET1/
+#endif
index 86feda56d332064756b956f0789a1318d146838b..b309415c0ca71ebab360dc4ea0d92a5a6ee7d0db 100644 (file)
@@ -3,4 +3,6 @@
       COMMON/HIJJET2/NSG,NJSG(900),IASG(900,3),K1SG(900,100),
      &         K2SG(900,100),PXSG(900,100),PYSG(900,100),
      &         PZSG(900,100),PESG(900,100),PMSG(900,100)
+#ifndef BLANKET_SAVE
       SAVE  /HIJJET2/
+#endif
index 9525076264dcfb07e3a38b35f701d5c8bc59e283..b26fdb2af6d4659e5a2274dfc1f8d2701ec33e58 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
        REAL PDR
        COMMON/HIJJET4/NDR,IADR(900,2),KFDR(900),PDR(900,5)
+#ifndef BLANKET_SAVE
        SAVE  /HIJJET4/
+#endif
index 9d4bebab254ed8b377021701c6cc59776f5a457c..4ff6f131847a1710e95ad198ba93b0eed943cfff 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
         REAL EATT, BB
        COMMON/HIMAIN1/NATT,EATT,JATT,NT,NP,N0,N01,N10,N11,BB
+#ifndef BLANKET_SAVE
        SAVE  /HIMAIN1/
+#endif
index a75af80508ea69630269aa5df0e0e302438e7797..66462cdd97f8888098f8a5fd735c76f4e187e276 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
         REAL PATT
        COMMON/HIMAIN2/KATT(200000,4),PATT(200000,4), VATT(200000,4)
+#ifndef BLANKET_SAVE
        SAVE  /HIMAIN2/
+#endif
index e3b2167e72ab320a5799e2ccca7fda075e815c89..83a0ffeaa469c8015c97448e7a99448269f2530c 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       REAL HIPR1, HINT1
       COMMON/HIPARNT/HIPR1(100),IHPR2(50),HINT1(100),IHNT2(50)
+#ifndef BLANKET_SAVE
       SAVE  /HIPARNT/
+#endif
index 8eac46388441b70049f407c62a1d3a926841df42..ff2b76a16aaf673cd15f5e007c40855793ff43f3 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
         REAL ATCO, ATXS
         COMMON/HIPYINT/MINT4,MINT5,ATCO(200,20),ATXS(0:200)
+#ifndef BLANKET_SAVE
        SAVE  /HIPYINT/
+#endif
index fecf17db5e2ea8d00ac1186afe2479a55eb8951d..7d707739bd32a08edac0bd78f0ffbdb1336c92c2 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
         REAL PP, PT
        COMMON/HISTRNG/NFP(300,15),PP(300,15),NFT(300,15),PT(300,15)
+#ifndef BLANKET_SAVE
        SAVE  /HISTRNG/
+#endif
index a6306dbe83d93686c9cc04ca4e880ade4dcc4866..5e1e694d2b132ba0e2ae98a6f6a0e205c5daeb36 100644 (file)
@@ -5,4 +5,6 @@
 * $Id$
       REAL PARU, PARJ
       COMMON/LUDAT1_HIJING/MSTU(200),PARU(200),MSTJ(200),PARJ(200) 
+#ifndef BLANKET_SAVE
       SAVE /LUDAT1_HIJING/ 
+#endif
index 61710480667ac61fc613ed280da72139079e79b6..d9bbf96591ae4a8107161bf451de242574d6b8f9 100644 (file)
@@ -2,4 +2,7 @@
       REAL BRAT
       COMMON/LUDAT3_HIJING/MDCY(500,3),MDME(2000,2),BRAT(2000),KFDP(2000
      $     ,5)    
+#ifndef BLANKET_SAVE
       SAVE /LUDAT3_HIJING/ 
+#endif
+
index cf14f1a5c2f831989d0d3fc00edf28a7007c382e..dd25aa64260369c0c2893b566510e0fc1e708edd 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       REAL P, V
       COMMON/LUJETS_HIJING/N,K(9000,5),P(9000,5),V(9000,5)
+#ifndef BLANKET_SAVE
       SAVE /LUJETS_HIJING/ 
+#endif
index d390291c65d1ca474bc8fdee1b051235241a95aa..ea18d89f62e5b8e91ec057b86e565f5b507e2d0b 100644 (file)
@@ -1,3 +1,5 @@
 * $Id$
         COMMON/NJET_HIJING/N,IP_CRS
+#ifndef BLANKET_SAVE
        SAVE  /NJET_HIJING/
+#endif
index 4b1f85f6b6f7880c4aa3b560cf67a68c7a3c0891..2c88a622e10645bdcb8ca6e0c3fc9eb81ea1807b 100644 (file)
@@ -1,4 +1,7 @@
 * $Id$
         REAL BB, B1, PHI, Z1
         COMMON/PACT_HIJING/BB,B1,PHI,Z1
+#ifndef BLANKET_SAVE
         SAVE  /PACT_HIJING/
+#endif
+
index 27caf6e8b0e4ce55f3d20ecf0b670caf6f3397e9..c453208ffcafc88623a53246441252ddf6662b17 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       REAL VINT
       COMMON/PYINT1_HIJING/MINT(400),VINT(400) 
+#ifndef BLANKET_SAVE
       SAVE /PYINT1_HIJING/ 
+#endif
index bb9333f821fd7c2ca4e1d2c2aecffc4504de92e1..fc0d3a232733d337c3e8ee1dd1ca396e2da96d90 100644 (file)
@@ -2,4 +2,6 @@
       REAL COEF
       COMMON/PYINT2_HIJING/ISET(200),KFPR(200,2),COEF(200,20),ICOL(40,4
      $     ,2) 
+#ifndef BLANKET_SAVE
       SAVE /PYINT2_HIJING/ 
+#endif
index c35dfcf9952dff409e2543a806103df5c52084ff..5897dc87cd37fe32f727d2bd1745779d7ccf4244 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       REAL XSEC
       COMMON/PYINT5_HIJING/NGEN(0:200,3),XSEC(0:200,3) 
+#ifndef BLANKET_SAVE
       SAVE /PYINT5_HIJING/ 
+#endif
index 5e4c60cb075024d7372208be08e8292534cc67bb..f9331c31088fa43ac22623d8b13b1e9ff21dadd3 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       REAL PARP, PARI
       COMMON/PYPARS_HIJING/MSTP(200),PARP(200),MSTI(200),PARI(200) 
+#ifndef BLANKET_SAVE
       SAVE /PYPARS_HIJING/ 
+#endif
index cff094e08a134db147f4feb7611ac8851b81cadc..e02ae907302dc618570ad7fa7b27f0ef5652af4e 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       REAL CKIN
       COMMON/PYSUBS_HIJING/MSEL,MSUB(200),KFIN(2,-40:40),CKIN(200) 
+#ifndef BLANKET_SAVE
       SAVE /PYSUBS_HIJING/ 
+#endif
index 0e4664d24320baa7e941c1d074cf0b47469bbd53..bdcd0ef6e32b7dc983437634099be30fa90cc011 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       REAL R, D, FNORM, W
       COMMON/WOOD_HIJING/R,D,FNORM,W
+#ifndef BLANKET_SAVE
       SAVE  /WOOD_HIJING/
+#endif
index 191e1ba4aa2d5ade97f900796a8b347b49e72dd1..192d66b69922acbc6d48eeb94c83cd7038afb3fb 100644 (file)
@@ -3,6 +3,7 @@
 
        SUBROUTINE AR3JET(S,X1,X3,JL)
 C     
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "lujets_hijing.inc"
        SAVE
index 86b0121b3f3185765314d2b16a2e99ad03afb016..34cfa69e507cd1956d47ad4f62e695f24a33fa5c 100644 (file)
@@ -4,6 +4,7 @@ C*************************************************************
 
        SUBROUTINE ARORIE(S,X1,X3,JL)
 C     
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "lujets_hijing.inc"
        SAVE
index 076ed77fec327ad3cf4bac2dd27e28ff569f31ee..0501f8acb9a4879767ec1ddb00f5190d722ded48 100644 (file)
@@ -6,6 +6,7 @@ C*******************************************************************
 C      make  boost and rotation to entries from IMIN to IMAX
 C*******************************************************************
        SUBROUTINE ATROBO(THE,PHI,BEX,BEY,BEZ,IMIN,IMAX,IERROR)
+#define BLANKET_SAVE
 #include "lujets_hijing.inc"
        DIMENSION ROT(3,3),PV(3)
        DOUBLE PRECISION DP(4),DBEX,DBEY,DBEZ,DGA,DGA2,DBEP,DGABEP
index 4a188b1529953476edceaa56e2ea0535f6dda0b6..d1120e8e373eeae68a7da3009db272f96d4d3463 100644 (file)
@@ -8,6 +8,7 @@ C       conduct soft radiation according to dipole approxiamtion
 C****************************************************************
        SUBROUTINE ATTRAD(IERROR)
 C
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "hijdat.inc"
 #include "lujets_hijing.inc"
index d491395f09c174499371eded7616482cab430847..adb1775168861964cabbc03d65643018b09790e0 100644 (file)
@@ -6,6 +6,7 @@ C       THE INTEGRATION IS DONE BY USING VEGAS
 C
        SUBROUTINE CRSJET
        IMPLICIT REAL*8(A-H,O-Z)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "njet_hijing.inc"
 #include "bveg1_hijing.inc"
index 5e5d516f1a6a908c737e83d844d8a1aeb3ace4c6..3cc16cf447de030af53a5e42c97d953078a8ad26 100644 (file)
@@ -4,6 +4,7 @@ C
 C
        FUNCTION FJET(X,WGT)
        IMPLICIT REAL*8(A-H,O-Z)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
        DIMENSION X(10)
        SAVE
index a5b8ad871f26257bb58ad6681b5007f7a422a0f1..001217c38a25f954c346ba63124a1ce080a3cad6 100644 (file)
@@ -4,6 +4,7 @@ C
 C
        FUNCTION FJETRIG(X,WGT)
        IMPLICIT REAL*8(A-H,O-Z)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
        DIMENSION X(10)
        SAVE
index ce26aca9f5f95be2a8617e9f16c093af9bf52a76..67c05ca6766553b2d3bad88ab506afeb8ef8a3b1 100644 (file)
@@ -5,6 +5,7 @@ C
 C
        FUNCTION G(Y1,Y2,PT2)
        IMPLICIT REAL*8 (A-H,O-Z)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
        DIMENSION F(2,7)
        SAVE
index 41f2c85f4da4e2ac8a021139d556f37bfa1f28db..f97ca2bede52d113b4c8b64b082505e4631cbe5e 100644 (file)
@@ -4,6 +4,7 @@ C
 C
        FUNCTION GHVQ(Y1,Y2,AMT2)
        IMPLICIT REAL*8 (A-H,O-Z)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
        DIMENSION F(2,7)
        SAVE
index fc81bc5c586ce46688daebc392030d9c5818bfa3..410e6e003a10d4b516dfd31196befc83b3830a8d 100644 (file)
@@ -4,6 +4,7 @@ C
 C
        FUNCTION GPHOTON(Y1,Y2,PT2)
        IMPLICIT REAL*8 (A-H,O-Z)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
        DIMENSION F(2,7)
        SAVE
index 831325cb7ea307d44dd061ed3e68fd2a78df4212..c6dd96a68a432d7c3038c9ce292cc5dd862f8bff 100644 (file)
@@ -5,6 +5,7 @@ C
 C
        SUBROUTINE HIBOOST
        IMPLICIT DOUBLE PRECISION(D)  
+#define BLANKET_SAVE
 #include "lujets_hijing.inc"
 #include "ludat1_hijing.inc"
 #include "hiparnt.inc"
index 5b3a5eefa299c4a57a4a946e2572ef61b9ac4f0c..228f60557a6f28a7b471cb1170f2d19e7b922725 100644 (file)
@@ -6,6 +6,7 @@ C
        SUBROUTINE HIJCRS
 C      THIS IS TO CALCULATE THE CROSS SECTIONS OF JET PRODUCTION AND
 C      THE TOTAL INELASTIC CROSS SECTIONS.
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "njet_hijing.inc"
        EXTERNAL FHIN,FTOT,FNJET,FTOTJET,FTOTRIG
index 5671b5431ba50d77137e41315b1851156bda5b69..4cdc7fb5d5fc540687a0d203b4e96d3004e8cb1c 100644 (file)
@@ -6,6 +6,7 @@ C       elastic cascading within their own nuclei
 c*******************************************************************
        SUBROUTINE HIJCSC(JP,JT)
        DIMENSION PSC1(5),PSC2(5)
+#define BLANKET_SAVE
 #include "hijcrdn.inc"
 #include "hiparnt.inc"
 #include "histrng.inc"
index 6b7a1d08b316a8f769561c1f57dd92417426b672..81c4c5711b02e367e11c05ad6b226bef1cde1527 100644 (file)
@@ -8,6 +8,7 @@ C*******************************************************************
        SUBROUTINE HIJELS(PSC1,PSC2)
        IMPLICIT DOUBLE PRECISION(D)
        DIMENSION PSC1(5),PSC2(5)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
        SAVE
 C
index 1ad37a23e5445bf5634b013e08da934719d3c603..bfdb9f3d24bb9acba06bf061e3b8a124843cefb1 100644 (file)
@@ -11,6 +11,7 @@ C     strings from jets.  JTP is the line number of the string
 C*******Fragment all leading strings of proj and targ**************
 C      IHNT2(1)=atomic #, IHNT2(2)=proton #(=-1 if anti-proton)  *
 C******************************************************************
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "hijdat.inc"
 #include "histrng.inc"
index 54602dcd894d6f4a56680c70b4db78c0767b983a..1d6c729487994d74750444d67e8a5031e9c663f2 100644 (file)
@@ -15,6 +15,7 @@ C     /MINJET. ABS(NFP(JP,6)) is the total number jets produced by *
 C    JP. If NFP(JP,6)<0 JP can not produce jet anymore.                   *
 C*******************************************************************
        DIMENSION IP(100,2),IPQ(50),IPB(50),IT(100,2),ITQ(50),ITB(50)
+#define BLANKET_SAVE
 #include "hijcrdn.inc"
 #include "hiparnt.inc"
 #include "hijdat.inc"
index 2839d269a93e94cc95224db71c73d1c85760e903..4f9d0c9de074a887c92a4f6a0a3bea2df0b0b055 100644 (file)
@@ -155,6 +155,7 @@ C****************************************************************
        CHARACTER FRAME*8
        DIMENSION SCIP(300,300),RNIP(300,300),SJIP(300,300),JTP(3),
      &                 IPCOL(90000),ITCOL(90000)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 C
 #include "hijcrdn.inc"
index 9bf49c0384928635c7edc5879c5c82194daa6fc6..ed93f23b99c0cf8601758aa9e78767d51488ec66 100644 (file)
@@ -3,6 +3,7 @@ C
 C
 C
        SUBROUTINE HIJINI
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "histrng.inc"
 #include "hijjet1.inc"
index c688615a17849d02e781fbe654c4c83c6051ad3f..0e0b1b2abcf8ff603d075e935f83b2070d99223f 100644 (file)
@@ -5,6 +5,7 @@ C
        SUBROUTINE HIJSET(EFRM,FRAME,PROJ,TARG,IAP,IZP,IAT,IZT)
        CHARACTER FRAME*4,PROJ*4,TARG*4,EFRAME*4
        DOUBLE PRECISION  DD1,DD2,DD3,DD4
+#define BLANKET_SAVE
 #include "histrng.inc"
 #include "hijcrdn.inc"
 #include "hiparnt.inc"
index 54fa8eb4f55d2da9e8a7f1d564aca2b2c0e6c0de..e90b1c4ead091739021271a78b21d2886f33140b 100644 (file)
@@ -8,6 +8,7 @@ C                                                                  *
 C  Scatter two excited strings, JP from proj and JT from target    *
 C*******************************************************************
        SUBROUTINE HIJSFT(JP,JT,JOUT,IERROR)
+#define BLANKET_SAVE
 #include "hijcrdn.inc"
 #include "hiparnt.inc"
 #include "hijdat.inc"
index a34cc87e176d9c9ac028504944f7e2393bbdf580..bca9606b5555567717ed8ce69c7eefd56b49c5c9 100644 (file)
@@ -9,6 +9,7 @@ C********************************************************************
        SUBROUTINE HIJSRT(JPJT,NPT)
        DIMENSION KF(100),PX(100),PY(100),PZ(100),PE(100),PM(100)
        DIMENSION Y(100),IP(100,2)
+#define BLANKET_SAVE
 #include "hijjet1.inc"
        SAVE
        IF(NPT.EQ.2) GO TO 500
index 0bda2974801bda081b3296a7d752c3b82d5c5f11..f7da0b4a510df80746a84195b1c866d5c70443be 100644 (file)
@@ -9,6 +9,7 @@ C ************************              WOOD-SAX
         SUBROUTINE HIJWDS(IA,IDH,XHIGH)
 C     SETS UP HISTOGRAM IDH WITH RADII FOR
 C     NUCLEUS IA DISTRIBUTED ACCORDING TO THREE PARAM WOOD SAXON
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "wood_hijing.inc"
         DIMENSION IAA(20),RR(20),DD(20),WW(20),RMS(20)
index 25edbb64eb333a75e8774e4fada3525c211ce8f3..bd8f68f0d9f8103af9f20203ba928732d25a0e8e 100644 (file)
@@ -3,6 +3,7 @@ C
 C
 C
        SUBROUTINE HIPTDI(PT,PTMAX,IOPT)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
        SAVE
        IF(IOPT.EQ.2) THEN
index 606540da051138be70aecc1a6a9afa9aa9578a4e..bb863ab79ca4a1a9476644f88ad607a8f325ae52 100644 (file)
@@ -3,6 +3,7 @@ C
 C
 C
        FUNCTION HIRND(I)
+#define BLANKET_SAVE
 #include "hijhb.inc"
        SAVE
        RX=RLU_HIJING(0)
index a30275751b20cb6d78d5822df1accbb96b3f08b5..136db30d975f901215c2ac3df5c68f376996a7ad 100644 (file)
@@ -5,6 +5,7 @@ C
 C
 C      This generate random number between XMIN and XMAX
        FUNCTION HIRND2(I,XMIN,XMAX)
+#define BLANKET_SAVE
 #include "hijhb.inc"
        SAVE
        IF(XMIN.LT.XX(I,1)) XMIN=XX(I,1)
index d2afed37ed896681bd8ede049f9e555f32de74fa..da16246c17b379080f8122c92441c80835951f50 100644 (file)
@@ -22,6 +22,7 @@ C*****************************************************************
        CHARACTER BEAM*16,TARG*16
        DIMENSION XSEC0(8,0:200),COEF0(8,200,20),INI(8),
      &         MINT44(8),MINT45(8)
+#define BLANKET_SAVE
 #include "hijcrdn.inc"
 #include "hiparnt.inc"
 #include "histrng.inc"
index 021ee95f4b1d6b9d743d55c82d8865f4176409e6..12b00430ea41f46cf1aab4066df5876f1ebd4157 100644 (file)
@@ -4,6 +4,7 @@ C
 C
        SUBROUTINE PARTON(F,X1,X2,QQ)
        IMPLICIT REAL*8(A-H,O-Z)
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "njet_hijing.inc"
        SAVE
index 3b1b1ecf1a39a694776e0bb1c95a8a4b00e881f1..ffa5001c54c468707ef5b5341663e0388d9c6ccf 100644 (file)
@@ -5,6 +5,7 @@ C       THIS FUNCTION IS TO CALCULATE THE NUCLEAR PROFILE FUNCTION
 C       OF THE  COLLIDERING SYSTEM (IN UNITS OF 1/mb)
 C
        FUNCTION  PROFILE(XB)
+#define BLANKET_SAVE
 #include "pact_hijing.inc"
 #include "hiparnt.inc"
        SAVE
index 7d2fdc0aa14d636600ee6c96407a9c4c79bb8b68..11b344b0553fb2c9d7a4db86857e8e2933a46f94 100644 (file)
@@ -5,6 +5,7 @@ C
 C
        SUBROUTINE QUENCH(JPJT,NTP)
        DIMENSION RDP(300),LQP(300),RDT(300),LQT(300)
+#define BLANKET_SAVE
 #include "hijcrdn.inc"
 #include "hiparnt.inc"
 C
index b01f1b25346317613a703ce0bcce06212839f79a..ef371fe205928ed2afb6f2ecb30a87409b06c9d3 100644 (file)
@@ -11,6 +11,7 @@ C*******************************************************************
 C
       SUBROUTINE VEGAS(FXN,AVGI,SD,CHI2A)
       IMPLICIT REAL*8(A-H,O-Z)
+#define BLANKET_SAVE
 #include "bveg1_hijing.inc"
 #include "bveg2_hijing.inc"
 #include "bveg3_hijing.inc"