IAP GITLAB

Commit 81e47526 authored by Tanguy Pierog's avatar Tanguy Pierog

extend arrays to run central HI collisions

add sexaquark production


git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@7339 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent 9a95cbcd
......@@ -12,7 +12,7 @@ OPTION (__PYTHIA__ "Build with model" OFF)
OPTION (__HIJING__ "Build with model" OFF)
OPTION (__SIBYLL__ "Build with model" ON)
OPTION (__PHOJET__ "Build with model" OFF)
OPTION (__DPMJET__ "Build with model" OFF)
OPTION (__DPMJET__ "Build with model" ON)
OPTION (__QGSJETII03__ "Build with model" OFF)
OPTION (__QGSJETII04__ "Build with model" OFF)
######################################ONLY EDIT THIS######################################
......
CRMC v1.6.0 Last modifications 2016/03/29
CRMC v1.7.1 Last modifications 2019/10/25
**********************************************************
The Program "crmc"
......@@ -10,6 +10,8 @@ an easy-to-use command line interface. The output can be stored in
different formats, i.e. in a root TTree or HepMC event file
(http://lcgapp.cern.ch/project/simu/HepMC/).
Version with extended arrays for heavy ion collisions.
**********************************************************
Authors
**********************************************************
......@@ -222,7 +224,7 @@ The number of loops is hard-coded (20000 check models.F) and does not depend on
The HepMC (2.06) IO library has a default limitation of the number of produced particles of 10000.
Thus, events with more than that number of secondaries are either truncated or skipped. For heavy ion
collisions this easily can become a problem in crmc. Please consider changing thie limitation to a
collisions this easily can become a problem in crmc. Please consider changing this limitation to a
higher value. We suggest 200000, which works for all models at LHC energies so far. We are happy for
feedback on this issue if problems are encountered.
The CRMC code automatically checks for the
......
......@@ -238,8 +238,8 @@ c------------------------------------------------------------------------
common/othe2/ifrade,iframe,idecay,jdecay,iremn
integer jframe,kframe
common/othe3/jframe,kframe
integer iselect
common/othe4/iselect
integer iselect,iwoundg
common/othe4/iselect,iwoundg
real taumx,sigj
integer jpsi,jpsifi,nsttau,ijphis,ijtauan
common/jpsif/jpsi,jpsifi,taumx,nsttau,sigj,ijphis,ijtauan
......
parameter (mmrye=4,mmryk=1) !memory saving factor
parameter (mmrye=1,mmryk=1) !memory saving factor
parameter (kollmx=45000/mmrye,npommx=150)
parameter (mamx=210/mmryk,ngrmx=1,ntymi=0,ntymx=2)
......
......@@ -10,7 +10,7 @@ c-----------------------------------------------------------------------
include 'epos.incsem'
common/record/maxrec(2),irecty(30,2)
common/cfacmss/facmss /cr3pomi/r3pomi,r4pomi/cifset/ifset
common /ems12/iodiba,bidiba ! defaut iodiba=0. if iodiba=1, study H-Dibaryon
common /ems12/bidiba,amhdibar,iodiba ! defaut iodiba=0. if iodiba=1, study H-Dibaryon
character*500 fndat,fnncs,fnIIdat,fnIIncs,fnII03dat,fnII03ncs
c &,fndpmjet,fndpmjetpho,fndpmpath !qgs-II????????
c common/dpmjetfname/ fndpmjet,fndpmjetpho,fndpmpath
......@@ -407,8 +407,8 @@ c ... up to here.
alpdro(2)=0.3 !pt of leading droplet
alpdro(3)=1.6 !alpha mass of leading droplet (iept=3)
iodiba=0. ! if iodiba=1, study H-Dibaryon (not used (see ProRef in epos-ems ????)
bidiba=0.030 ! epsilon of H-Dibaryon
iodiba=0 ! if iodiba=1, study H-Dibaryon
bidiba=0.20 ! epsilon of H-Dibaryon
c screening splitting +++
......@@ -457,7 +457,7 @@ c masses
amhadr(7)=.548 !eta mass
amhadr(8)=3.5 !J/psi mass
c qcmass=1.6 !c-quark mass (in idmass = 1.2 )
c amhdibar=2.200 !h-dibaryon mass !not used any more
amhdibar=1.80 !h-dibaryon mass !not used any more
qmass(0)=pmqq !diquark effective bounding energy (for pt distribtions)
isospin(0)=0
call idmass(1,qumass)
......@@ -767,6 +767,7 @@ c other
irdmpr=0 !random sign for projectile if 1
ilprtg=1 !consider leading particle in projectile (1)
!or target (-1) side
iwoundg=0 !save extended number of wounded nucleon in HEPEVT common
c constants
......@@ -2996,6 +2997,7 @@ c-----------------------------------------------------------------------
double precision rcproj,rctarg
common/geom1/rcproj,rctarg
common/photrans/phoele(4),ebeam
common /ems12/bidiba,amhdibar,iodiba ! defaut iodiba=0. if iodiba=1, study H-Dibaryon
external sptj
......@@ -3343,6 +3345,7 @@ c call ranfgt(seedp) !not to change the seed ... not needed with 2 se
endif
if(iappl.ne.2)then
if(iodiba.gt.0)iospec=18
call hnbspd(iospec)
ktnbod=0
c if(model.eq.1)call hnbxxxini
......@@ -3493,7 +3496,7 @@ c---------------------------------------------------------------------
data nappl /0/
common/record/maxrec(2),irecty(30,2)
common/cfacmss/facmss /cr3pomi/r3pomi,r4pomi
common /ems12/iodiba,bidiba ! defaut iodiba=0. if iodiba=1, study H-Dibaryon
common /ems12/bidiba,amhdibar,iodiba ! defaut iodiba=0. if iodiba=1, study H-Dibaryon
character*500 fndat,fnncs,fnIIdat,fnIIncs,fnII03dat,fnII03ncs
c &,fndpmjet,fndpmjetpho,fndpmpath
c common/dpmjetfname/ fndpmjet,fndpmjetpho,fndpmpath
......@@ -4420,7 +4423,7 @@ c unified parameters
if(linex(ix:jx).eq.'sloreg')sloreg=sngl(val)
if(linex(ix:jx).eq.'gamreg')gamreg=sngl(val)
if(linex(ix:jx).eq.'r2reg' )r2reg= sngl(val)
c if(linex(ix:jx).eq.'amhdibar')amhdibar= sngl(val)
if(linex(ix:jx).eq.'amhdibar')amhdibar= sngl(val)
if(linex(ix:jx).eq.'ptdiff')ptdiff=sngl(val)
if(linex(ix:jx).eq.'alppar')alppar=sngl(val)
if(linex(ix:jx).eq.'alpsea')alpsea=sngl(val)
......@@ -4908,6 +4911,10 @@ c if(line(i:j).eq.'off')iorsce=0
call utword(line,i,j,0)
if(line(i:j).eq.'on' ) ifrade=1
if(line(i:j).eq.'off') ifrade=0
elseif(line(i:j).eq.'WoundedGlauber')then
call utword(line,i,j,0)
if(line(i:j).eq.'on' )iwoundg=1
if(line(i:j).eq.'off')iwoundg=0
elseif(line(i:j).eq.'icocore')then
stop'switch icocore not supported any more. '
endif
......
......@@ -51,11 +51,12 @@ c----------------------------------------------------------------------
ncntmi=ncntmi+1
if(ncntmi.eq.1)then
irescl=0
call ranfgt(seedp) !not to change the seed ...
if(hydt.ne.'---')then
call HydroTable2(0)
call DefineParticles
else
elseif(ioclude.ne.3)then
call ManiParticles(93,0)
endif
call ranfst(seedp) ! ... after this initialization
......@@ -67,6 +68,21 @@ c----------------------------------------------------------------------
c dez=0.5e-4
call InitializeHyperbola !does not affect results but necessary
if(ioclude.eq.3)then
nptl=1
idptl(nptl)=8*10**8
istptl(nptl)=1
ityptl(nptl)=11
pptl(1,nptl)=0.
pptl(2,nptl)=0.
pptl(3,nptl)=0.
pptl(4,nptl)=engy
pptl(5,nptl)=engy
call hnbaaa(1,iret)
else
c 50 continue
call GraCan
energ=0
......@@ -103,6 +119,8 @@ ccc if(abs(energ-tecm).gt.0.1) goto50 !uncomment for energy conservation
rinptl(n)=-9999
enddo
endif
call utprix('amicro',ish,ishini,4)
return
end
......
......@@ -5839,7 +5839,6 @@ c-----------------------------------------------------------------------
logical gdrop, ghadr,gproj
double precision ept(5),ep(4),aa(5),am2t,piq1,piq2,piq3
common/emsptl/nppr(npommx,kollmx),npproj(mamx),nptarg(mamx)
common /ems12/iodiba,bidiba ! defaut iodiba=0. if iodiba=1, study H-Dibaryon
character c*1,c1*1,c2*1
call utpri('ProReF',ish,ishini,3)
......@@ -6036,7 +6035,6 @@ c define masses
xmdrmin=dble(fremnux(jcf)+amdrmin)**2
xmdrmax=dble(fremnux(jcf)+amdrmax)**2
if(ish.ge.4)write(ifch,*)'remnant masses:',am2t,amasini,amasmin
& ,xmdrmin,zz,iept
......@@ -7088,7 +7086,7 @@ c-----------------------------------------------------------------
double precision ep(5),a(5),re(5),p1(5)
integer jc(nflav,2),jcv(nflav,2),jcini(nflav,2),jcvini(nflav,2)
& ,ifh(3),ic(2)
common /ems12/iodiba,bidiba ! defaut iodiba=0. if iodiba=1, study H-Dibaryon
c common /ems12/iodiba,bidiba ! defaut iodiba=0. if iodiba=1, study H-Dibaryon
double precision ptm,qcm,u(3),utpcmd,ptt,phi,sxini,sxini0,strmas
& ,ampt2dro,ampt2str,p5sq,amasex,drangen,xmaxrm
logical gproj
......
......@@ -11,7 +11,7 @@ c----------------------------------------------------------------------
common/citer/iter,itermx
double precision tpro,zpro,ttar,ztar,ttaus,detap,detat
common /cttaus/ tpro,zpro,ttar,ztar,ttaus,detap,detat
integer jc(nflav,2)
integer jc(nflav,2),ic(2)
double precision p(5),c(5)
parameter(maxit=50000)
common/count/nacc,nrej,naccit(maxit),nptot,npit(maxit)
......@@ -19,6 +19,7 @@ c----------------------------------------------------------------------
common/yradx/yrad(maxp),phirad(maxp)
common/xxxspecsy/ndrop(-4:4,-4:4,-4:4)
common/cdelzet/delzet,delsgr /cvocell/vocell
common /ems12/bidiba,amhdibar,iodiba ! defaut iodiba=0. if iodiba=1, study H-Dibaryon
call utpri('hnbaaa',ish,ishini,4)
......@@ -66,20 +67,46 @@ c write(ifch,*)'droplet uds=',keu,ked,kes,' E=',pptl(5,ip)
fradflo=1.
if(yrmax.gt.1e-2)fradflo=fradflii
tecm=pptl(5,ip)
c test if cluster compatible with H-dibaryon
c if(iodiba.eq.1)then ! for H-dibaryon study
c call idenco(jc,ic,iret)
c if(tecm-amhdibar.lt.bidiba)then !H-dibaryon formation at rest in cluster frame
c if(ic(1).eq.222000.and.ic(2).eq.0)then !H-dibaryon
c id=30
c elseif(ic(2).eq.222000.and.ic(1).eq.0)then !anti H-dibaryon
c id=-30
c else
c goto 100
c endif
c np=1
c amass(np)=amhdibar
c ident(np)=id
c pcm(5,np)=amass(np)
c pcm(4,np)=amass(np)
c pcm(3,np)=0.
c pcm(2,np)=0.
c pcm(1,np)=0.
c if(ish.ge.4)write(ifch,*)"H-dibaryon produced"
c goto 800
c endif
c endif
100 continue
if(tecm.lt.amin)then
iret=1
if(ish.ge.4)write(ifch,*)'Decay skipped (M too low) !'
& ,tecm,amin
goto 1000
endif
if(iappl.eq.4.or.iorsdf.ne.3
if(iorsdf.ne.3
&.or.ityptl(ip).eq.40.or.ityptl(ip).eq.50)then !not for droplets from remnants
yco=0
else
if(ylongmx.lt.0.)then
if(ylongmx.lt.0..and.iappl.ne.4)then
yco=delzet !* 1.75
else
yco=ylongmx
yco=abs(ylongmx)
endif
endif
corrco=1.
......@@ -382,7 +409,7 @@ c $ ,ipass,scal,sum,esoll
enddo
endif
!~~~~~~~~~~~~~~~
800 continue
nptlb=nptl
do n=1,np
nptl=nptl+1
......@@ -406,6 +433,7 @@ c $ ,ipass,scal,sum,esoll
ipo=iorptl(ip)
iorptl(nptl)=ip
jorptl(nptl)=ipo
istptl(nptl)=0
c protection against very high momentum particle (it can happen very very boosted cluster (which do no really make sense anyway))
if(iLHC.eq.1.and.p(4).ge.0.5*engy)then
if(ish.ge.4)call alist('&',nptlb+1,nptl)
......@@ -508,7 +536,7 @@ c for massless hadrons : using analytic expressions for massles particles
c and employing the same algorithm as for massive
c-----------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cbol/rmsbol(mspecs),ptlbol(mspecs),chebol(mspecs),tembol
......@@ -539,6 +567,7 @@ c --------------
if(iug.eq.7)nflavs=3
if(iug.eq.9)nflavs=3
if(iug.eq.11)nflavs=3
if(iug.eq.17)nflavs=3
tem=0.0
do i=1,nflavs
chem(i)=0.0
......@@ -1036,7 +1065,7 @@ c chem(iafs)
c-----------------------------------------------------------------------
common/cnsta/pi,pii,hquer,prom,piom,ainfin
common/drop6/tecm,volu
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
parameter(nflav=6)
......@@ -1107,7 +1136,7 @@ c checks convergence of iterative algorithm
c plots iteration values for T and mu_i
c----------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cflavs/nflavs,kef(nflav),chem(nflav)
parameter (nbin=500)
......@@ -1267,7 +1296,7 @@ c output:
c chem(iafs)
c-----------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cflavs/nflavs,kef(nflav),chem(nflav)
common/cflac/ifok(nflav,mspecs),ifoa(nflav)
......@@ -1329,7 +1358,7 @@ c------------------------------------------------------------------
c checks flavor conservation in particle yield
c------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cflavs/nflavs,kef(nflav),chem(nflav)
......@@ -1363,7 +1392,7 @@ c----------------------------------------------------------------
c checks results by numerical integration
c----------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cflavs/nflavs,kef(nflav),chem(nflav)
......@@ -1432,7 +1461,7 @@ c----------------------------------------------------------------
c checks results by numerical integration
c----------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cflavs/nflavs,kef(nflav),chem(nflav)
......@@ -1511,7 +1540,7 @@ c output:
c chem
c---------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cflavs/nflavs,kef(nflav),chem(nflav)
......@@ -1605,7 +1634,7 @@ c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c integrand of energy density
c------------------------------------------------------------------------
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -1629,7 +1658,7 @@ c-----------------------------------------------------------------
c-----------------------------------------------------------------
c integrand of mean square variance of energy
c----------------------------------------------------------------
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -1654,7 +1683,7 @@ c-----------------------------------------------------------------
c-----------------------------------------------------------------
c integrand of hadron density
c-----------------------------------------------------------------
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -1679,7 +1708,7 @@ c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c integrand of energy density
c------------------------------------------------------------------------
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -1708,7 +1737,7 @@ c-----------------------------------------------------------------
c-----------------------------------------------------------------
c integrand of mean square variance of energy
c----------------------------------------------------------------
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -1738,7 +1767,7 @@ c-----------------------------------------------------------------
c-----------------------------------------------------------------
c integrand of hadron density
c-----------------------------------------------------------------
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -1767,7 +1796,7 @@ c-----------------------------------------------------------------
c-----------------------------------------------------------------
c integrand of mean square variance of hadron yield
c----------------------------------------------------------------
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -1800,7 +1829,7 @@ c returns hadronic chemical potentials as combinations of quark
c chemical potentials
c----------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cflavs/nflavs,kef(nflav),chem(nflav)
......@@ -1829,7 +1858,7 @@ c returns integration limits for numerical evaluation of particle
c and energy densities using quantum statistics
c----------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -1870,7 +1899,7 @@ c-----------------------------------------------------------------------
include 'epos.inc'
parameter(maxp=500)
common/chnbin/nump,ihadro(maxp)
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cgctot/rmstot,ptltot
......@@ -2442,7 +2471,7 @@ c--------------------------------------------------------------------
c returns random multiplicity from gaussian distribution for species i
c---------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cgctot/rmstot,ptltot
common/clatt/nlattc,npmax
......@@ -2515,7 +2544,7 @@ c--------------------------------------------------------------------
function hgcpml(i1,n1,i2,n2)
c--------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/camgc/amgc,samgc,amtot
common/cgcnb/nptlgc(mspecs)
......@@ -2541,7 +2570,7 @@ c--------------------------------------------------------------------
function hgcpnl(i,n)
c--------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cgcnb/nptlgc(mspecs)
if(ish.ge.9)write(ifch,*)'i:',i,' n:',n
......@@ -2573,7 +2602,7 @@ c xpar7 max. density
c xpar8 strange chem.pot.
c--------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cflavs/nflavs,kef(nflav),chem(nflav)
......@@ -2597,6 +2626,7 @@ c --------------
if(iug.eq.7)nflavs=3
if(iug.eq.9)nflavs=3
if(iug.eq.11)nflavs=3
if(iug.eq.17)nflavs=3
tem=0.0
do i=1,nflavs
chem(i)=0.0
......@@ -2723,7 +2753,7 @@ c xpar7 max. density
c xpar8 strange chem.pot.
c--------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cflavs/nflavs,kef(nflav),chem(nflav)
......@@ -2749,6 +2779,7 @@ c --------------
if(iug.eq.7)nflavs=3
if(iug.eq.9)nflavs=3
if(iug.eq.11)nflavs=3
if(iug.eq.17)nflavs=3
tem=0.0
do i=1,nflavs
chem(i)=0.0
......@@ -2917,7 +2948,7 @@ c ist=1 boltzmann statistics
c ist=0 quantum statistics
c--------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/cgctot/rmstot,ptltot
......@@ -3037,7 +3068,7 @@ c output:
c tem
c----------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -3119,7 +3150,7 @@ c output:
c tem
c----------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -3181,7 +3212,7 @@ c tem
c----------------------------------------------------------------------
include 'epos.inc'
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cgchg/rmsngc(mspecs),ptlngc(mspecs),chemgc(mspecs),tem
common/ciakt/gen,iafs,ians,genm
......@@ -3394,7 +3425,7 @@ c subroutine hnbids(jc,ids,iwts,i)
cc----------------------------------------------------------------------
cc returns i id-codes ids() corr to jc and their weights iwts()
cc----------------------------------------------------------------------
c parameter (mxids=200,mspecs=56,nflav=6)
c parameter (mxids=200,mspecs=58,nflav=6)
c common/metr1/iospec,iocova,iopair,iozero,ioflac,iomom
c common/cflac/ifok(nflav,mspecs),ifoa(nflav)
c common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
......@@ -3458,7 +3489,7 @@ c----------------------------------------------------------------------
include 'epos.inc'
parameter(maxp=500)
common/confg/np,amass(maxp),ident(maxp),pcm(5,maxp),wtxlog,wtlog
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/crnoz/rnoz(maxp-1)
common/citer/iter,itermx
......@@ -3658,7 +3689,7 @@ c----------------------------------------------------------------------
dimension amasso(maxp),idento(maxp),pcmo(5,maxp)
integer jc(nflav,2),jc1(nflav,2),jc2(nflav,2)
common/citer/iter,itermx
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
parameter (literm=500)
common/cmet/kspecs(mspecs),liter,lspecs(literm,mspecs)
......@@ -4778,7 +4809,7 @@ c returns arbitrary hadron pair id1,id2, flavour written to jc
c----------------------------------------------------------------------
include 'epos.inc'
integer jc(nflav,2),jc1(nflav,2),ic1(2),jc2(nflav,2),ic2(2)
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
c construct pair id1,id2
......@@ -4848,7 +4879,7 @@ c returns sum of weights iwpair of possible pairs
c and randomly chosen hadron pair id1,id2 for given flavour jc
c----------------------------------------------------------------------
include 'epos.inc'
parameter(mspecs=56,mxids=200)
parameter(mspecs=58,mxids=200)
parameter(mxpair=mspecs**2*4)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cspec2/jspecs(2,nflav,mspecs)
......@@ -5096,7 +5127,7 @@ c store sum of weights iwpair of possible pairs in an array
c for any combinations of quarks
c----------------------------------------------------------------------
include 'epos.inc'
parameter(mspecs=56,mxids=200)
parameter(mspecs=58,mxids=200)
parameter(mxpair=mspecs**2*4)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
common/cspec2/jspecs(2,nflav,mspecs)
......@@ -5808,12 +5839,14 @@ c iopt=13: 54 hadrons + J/psi (massless)
c iopt=14: 54 hadrons + J/psi
c iopt=15: 54 hadrons + J/psi + H (massless)
c iopt=16: 54 hadrons + J/psi + H
c iopt=17: 54 hadrons + deuteron + H-dibaryon (massless)
c iopt=18: 54 hadrons + deuteron + H-dibaryon
c output:
c nspecs: nr of species
c ispecs: id's
c aspecs: masses
c-----------------------------------------------------------------------
parameter (mspecs=56)
parameter (mspecs=58)
common/cspecs/nspecs,ispecs(mspecs),aspecs(mspecs),gspecs(mspecs)
parameter (nflav=6)
integer jc(nflav,2),ic(2)
......@@ -5822,9 +5855,10 @@ c-----------------------------------------------------------------------
common/cspec3/lkfok(8,-3:3,-3:3,-3:3,-3:3) !-charm
common/cspec4/lkfoi(8,-3:3,-3:3,-3:3,-3:3) !-charm
parameter(nspe01=1,nspe03=3,nspe05=7,nspe07=25,nspe09=54)
parameter(nspe11=6,nspe13=55,nspe15=56)
parameter(nspe11=6,nspe13=55,nspe15=56,nspe17=58)
real jspe01(nspe01),jspe03(nspe03),jspe05(nspe05),jspe07(nspe07)
*,jspe09(nspe09),jspe11(nspe11),jspe13(nspe13),jspe15(nspe15)
* ,jspe09(nspe09),jspe11(nspe11),jspe13(nspe13),jspe15(nspe15)
* ,jspe17(nspe17)
data jspe01/ 110 /
data jspe03/ 110, 120, -120 /
data jspe05/ 110, 120, -120, 1120,-1120, 1220,-1220 /
......@@ -5857,8 +5891,16 @@ c-----------------------------------------------------------------------
*, 1111,-1111, 1121,-1121, 1221,-1221, 2221,-2221, 1131,-1131
*, 1231,-1231, 2231,-2231, 1331,-1331, 2331,-2331, 3331,-3331
*, 441 , 30 /
data jspe17/
* 110, 120, -120, 130, -130, 230, -230, 220, 330
*, 111, 121, -121, 131, -131, 231, -231, 221, 331
*, 1120,-1120, 1220,-1220, 1130,-1130, 2130,-2130
*, 1230,-1230, 2230,-2230, 1330,-1330, 2330,-2330
*, 1111,-1111, 1121,-1121, 1221,-1221, 2221,-2221, 1131,-1131
*, 1231,-1231, 2231,-2231, 1331,-1331, 2331,-2331, 3331,-3331
*, 17, -17 , 30, -30 /
if(iopt.gt.16)call utstop('hnbspd: invalid option&')
if(iopt.gt.18)call utstop('hnbspd: invalid option&')
ioptx=(1+iopt)/2*2-1