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 6eb37a6..09344e3 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 094ae41..9cf9392 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 2c386b3..e14e132 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 eaa60ff..0284a8d 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 d3b3345..c2c5b5d 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 a77ef2a..d02b903 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 3fc510d..96811cf 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
         REAL HIDAT0, HIDAT
         COMMON/HIJDAT/HIDAT0(10,10),HIDAT(10)
+#ifndef BLANKET_SAVE
        SAVE  /HIJDAT/
+#endif
index 26b6a8b..e9b0162 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 cd0ed87..aa0aca1 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 86feda5..b309415 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 9525076..b26fdb2 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 9d4beba..4ff6f13 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 a75af80..66462cd 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 e3b2167..83a0ffe 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 8eac463..ff2b76a 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 fecf17d..7d70773 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 a6306db..5e1e694 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 6171048..d9bbf96 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 cf14f1a..dd25aa6 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 d390291..ea18d89 100644 (file)
@@ -1,3 +1,5 @@
 * $Id$
         COMMON/NJET_HIJING/N,IP_CRS
+#ifndef BLANKET_SAVE
        SAVE  /NJET_HIJING/
+#endif
index 4b1f85f..2c88a62 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 27caf6e..c453208 100644 (file)
@@ -1,4 +1,6 @@
 * $Id$
       REAL VINT
       COMMON/PYINT1_HIJING/MINT(400),VINT(400) 
+#ifndef BLANKET_SAVE
       SAVE /PYINT1_HIJING/ 
+#endif
index bb9333f..fc0d3a2 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 c35dfcf..5897dc8 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 5e4c60c..f9331c3 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 cff094e..e02ae90 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 0e4664d..bdcd0ef 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 191e1ba..192d66b 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 86b0121..34cfa69 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 076ed77..0501f8a 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 4a188b1..d1120e8 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 d491395..adb1775 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 5e5d516..3cc16cf 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 a5b8ad8..001217c 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 ce26aca..67c05ca 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 41f2c85..f97ca2b 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 fc81bc5..410e6e0 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 831325c..c6dd96a 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 5b3a5ee..228f605 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 5671b54..4cdc7fb 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 6b7a1d0..81c4c57 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 1ad37a2..bfdb9f3 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 54602dc..1d6c729 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 2839d26..4f9d0c9 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 9bf49c0..ed93f23 100644 (file)
@@ -3,6 +3,7 @@ C
 C
 C
        SUBROUTINE HIJINI
+#define BLANKET_SAVE
 #include "hiparnt.inc"
 #include "histrng.inc"
 #include "hijjet1.inc"
index c688615..0e0b1b2 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 54fa8eb..e90b1c4 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 a34cc87..bca9606 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 0bda297..f7da0b4 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 25edbb6..bd8f68f 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 606540d..bb863ab 100644 (file)
@@ -3,6 +3,7 @@ C
 C
 C
        FUNCTION HIRND(I)
+#define BLANKET_SAVE
 #include "hijhb.inc"
        SAVE
        RX=RLU_HIJING(0)
index a302757..136db30 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 d2afed3..da16246 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 021ee95..12b0043 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 3b1b1ec..ffa5001 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 7d2fdc0..11b344b 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 b01f1b2..ef371fe 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"