* $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
* $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
* $Id$
DOUBLE PRECISION F, TI, TSI
COMMON/BVEG3_HIJING/F,TI,TSI
+#ifndef BLANKET_SAVE
SAVE /BVEG3_HIJING/
+#endif
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
* $Id$
REAL PDPM1,PDPM2
COMMON/DPMCOM2/NDPM,KDPM(20,2),PDPM1(20,5),PDPM2(20,5)
+#ifndef BLANKET_SAVE
SAVE /DPMCOM2/
+#endif
* $Id$
REAL YP, YT
COMMON/HIJCRDN/YP(3,300),YT(3,300)
+#ifndef BLANKET_SAVE
SAVE /HIJCRDN/
+#endif
* $Id$
REAL HIDAT0, HIDAT
COMMON/HIJDAT/HIDAT0(10,10),HIDAT(10)
+#ifndef BLANKET_SAVE
SAVE /HIJDAT/
+#endif
* $Id$
REAL RR, XX
COMMON/HIJHB/RR(10,201),XX(10,201)
+#ifndef BLANKET_SAVE
SAVE /HIJHB/
+#endif
& 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
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
* $Id$
REAL PDR
COMMON/HIJJET4/NDR,IADR(900,2),KFDR(900),PDR(900,5)
+#ifndef BLANKET_SAVE
SAVE /HIJJET4/
+#endif
* $Id$
REAL EATT, BB
COMMON/HIMAIN1/NATT,EATT,JATT,NT,NP,N0,N01,N10,N11,BB
+#ifndef BLANKET_SAVE
SAVE /HIMAIN1/
+#endif
* $Id$
REAL PATT
COMMON/HIMAIN2/KATT(200000,4),PATT(200000,4), VATT(200000,4)
+#ifndef BLANKET_SAVE
SAVE /HIMAIN2/
+#endif
* $Id$
REAL HIPR1, HINT1
COMMON/HIPARNT/HIPR1(100),IHPR2(50),HINT1(100),IHNT2(50)
+#ifndef BLANKET_SAVE
SAVE /HIPARNT/
+#endif
* $Id$
REAL ATCO, ATXS
COMMON/HIPYINT/MINT4,MINT5,ATCO(200,20),ATXS(0:200)
+#ifndef BLANKET_SAVE
SAVE /HIPYINT/
+#endif
* $Id$
REAL PP, PT
COMMON/HISTRNG/NFP(300,15),PP(300,15),NFT(300,15),PT(300,15)
+#ifndef BLANKET_SAVE
SAVE /HISTRNG/
+#endif
* $Id$
REAL PARU, PARJ
COMMON/LUDAT1_HIJING/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
+#ifndef BLANKET_SAVE
SAVE /LUDAT1_HIJING/
+#endif
REAL BRAT
COMMON/LUDAT3_HIJING/MDCY(500,3),MDME(2000,2),BRAT(2000),KFDP(2000
$ ,5)
+#ifndef BLANKET_SAVE
SAVE /LUDAT3_HIJING/
+#endif
+
* $Id$
REAL P, V
COMMON/LUJETS_HIJING/N,K(9000,5),P(9000,5),V(9000,5)
+#ifndef BLANKET_SAVE
SAVE /LUJETS_HIJING/
+#endif
* $Id$
COMMON/NJET_HIJING/N,IP_CRS
+#ifndef BLANKET_SAVE
SAVE /NJET_HIJING/
+#endif
* $Id$
REAL BB, B1, PHI, Z1
COMMON/PACT_HIJING/BB,B1,PHI,Z1
+#ifndef BLANKET_SAVE
SAVE /PACT_HIJING/
+#endif
+
* $Id$
REAL VINT
COMMON/PYINT1_HIJING/MINT(400),VINT(400)
+#ifndef BLANKET_SAVE
SAVE /PYINT1_HIJING/
+#endif
REAL COEF
COMMON/PYINT2_HIJING/ISET(200),KFPR(200,2),COEF(200,20),ICOL(40,4
$ ,2)
+#ifndef BLANKET_SAVE
SAVE /PYINT2_HIJING/
+#endif
* $Id$
REAL XSEC
COMMON/PYINT5_HIJING/NGEN(0:200,3),XSEC(0:200,3)
+#ifndef BLANKET_SAVE
SAVE /PYINT5_HIJING/
+#endif
* $Id$
REAL PARP, PARI
COMMON/PYPARS_HIJING/MSTP(200),PARP(200),MSTI(200),PARI(200)
+#ifndef BLANKET_SAVE
SAVE /PYPARS_HIJING/
+#endif
* $Id$
REAL CKIN
COMMON/PYSUBS_HIJING/MSEL,MSUB(200),KFIN(2,-40:40),CKIN(200)
+#ifndef BLANKET_SAVE
SAVE /PYSUBS_HIJING/
+#endif
* $Id$
REAL R, D, FNORM, W
COMMON/WOOD_HIJING/R,D,FNORM,W
+#ifndef BLANKET_SAVE
SAVE /WOOD_HIJING/
+#endif
SUBROUTINE AR3JET(S,X1,X3,JL)
C
+#define BLANKET_SAVE
#include "hiparnt.inc"
#include "lujets_hijing.inc"
SAVE
SUBROUTINE ARORIE(S,X1,X3,JL)
C
+#define BLANKET_SAVE
#include "hiparnt.inc"
#include "lujets_hijing.inc"
SAVE
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
C****************************************************************
SUBROUTINE ATTRAD(IERROR)
C
+#define BLANKET_SAVE
#include "hiparnt.inc"
#include "hijdat.inc"
#include "lujets_hijing.inc"
C
SUBROUTINE CRSJET
IMPLICIT REAL*8(A-H,O-Z)
+#define BLANKET_SAVE
#include "hiparnt.inc"
#include "njet_hijing.inc"
#include "bveg1_hijing.inc"
C
FUNCTION FJET(X,WGT)
IMPLICIT REAL*8(A-H,O-Z)
+#define BLANKET_SAVE
#include "hiparnt.inc"
DIMENSION X(10)
SAVE
C
FUNCTION FJETRIG(X,WGT)
IMPLICIT REAL*8(A-H,O-Z)
+#define BLANKET_SAVE
#include "hiparnt.inc"
DIMENSION X(10)
SAVE
C
FUNCTION G(Y1,Y2,PT2)
IMPLICIT REAL*8 (A-H,O-Z)
+#define BLANKET_SAVE
#include "hiparnt.inc"
DIMENSION F(2,7)
SAVE
C
FUNCTION GHVQ(Y1,Y2,AMT2)
IMPLICIT REAL*8 (A-H,O-Z)
+#define BLANKET_SAVE
#include "hiparnt.inc"
DIMENSION F(2,7)
SAVE
C
FUNCTION GPHOTON(Y1,Y2,PT2)
IMPLICIT REAL*8 (A-H,O-Z)
+#define BLANKET_SAVE
#include "hiparnt.inc"
DIMENSION F(2,7)
SAVE
C
SUBROUTINE HIBOOST
IMPLICIT DOUBLE PRECISION(D)
+#define BLANKET_SAVE
#include "lujets_hijing.inc"
#include "ludat1_hijing.inc"
#include "hiparnt.inc"
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
c*******************************************************************
SUBROUTINE HIJCSC(JP,JT)
DIMENSION PSC1(5),PSC2(5)
+#define BLANKET_SAVE
#include "hijcrdn.inc"
#include "hiparnt.inc"
#include "histrng.inc"
SUBROUTINE HIJELS(PSC1,PSC2)
IMPLICIT DOUBLE PRECISION(D)
DIMENSION PSC1(5),PSC2(5)
+#define BLANKET_SAVE
#include "hiparnt.inc"
SAVE
C
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"
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"
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"
C
C
SUBROUTINE HIJINI
+#define BLANKET_SAVE
#include "hiparnt.inc"
#include "histrng.inc"
#include "hijjet1.inc"
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"
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"
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
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)
C
C
SUBROUTINE HIPTDI(PT,PTMAX,IOPT)
+#define BLANKET_SAVE
#include "hiparnt.inc"
SAVE
IF(IOPT.EQ.2) THEN
C
C
FUNCTION HIRND(I)
+#define BLANKET_SAVE
#include "hijhb.inc"
SAVE
RX=RLU_HIJING(0)
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)
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"
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
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
C
SUBROUTINE QUENCH(JPJT,NTP)
DIMENSION RDP(300),LQP(300),RDT(300),LQT(300)
+#define BLANKET_SAVE
#include "hijcrdn.inc"
#include "hiparnt.inc"
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"