IAP GITLAB

Commit 67586912 authored by Tanguy Pierog's avatar Tanguy Pierog

correct beam particle definition to have same events using 1 or 2212. No bug,...

correct beam particle definition to have same events using 1 or 2212. No bug, just different seed used before.


git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@4721 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent 35a14372
......@@ -350,8 +350,8 @@ c Projecticle definitions
if (abs(ipart) .eq. 1) then
c proton
idprojin = sign(1120,ipart) !proton
laproj = sign(1,ipart) !proj Z
maproj = 1 !proj A
laproj = -1 !<0 means not a nucleus
maproj = 1 !single particle
elseif (ipart .eq. 12) then
c carbon
idprojin=1120
......@@ -365,8 +365,8 @@ c lead
elseif (abs(ipart) .eq. 120) then
c pi+/-
idprojin = ipart !pi+/-
laproj = -1 !proj Z
maproj = 1 !proj A
laproj = -1 !<0 means not a nucleus
maproj = 1 !single particle
elseif (ipart.gt.10000)then
c nuclei
idprojin=1120
......@@ -375,8 +375,8 @@ c nuclei
c PDG
else
idprojin=idtrafo('pdg','nxs',ipart)
laproj = -1 !proj Z
maproj = 1 !proj A
laproj = -1 !<0 means not a nucleus
maproj = 1 !single particle
endif
if(idprojin.eq.99)then
......@@ -393,8 +393,8 @@ c idtarg = 1120 !proton
if ( abs(itarg) .eq. 1 ) then
c proton
idtargin = sign(1120,itarg)
latarg = sign(1,itarg) !targ Z
matarg = 1 !targ A
latarg = -1 !<0 means not a nucleus
matarg = 1 !single particle
elseif ( itarg .eq. 12 ) then
c carbon
idtargin=1120
......@@ -413,8 +413,8 @@ c nuclei
c PDG
elseif (abs(itarg).eq.2112.or.abs(itarg).eq.2212)then
idtargin=idtrafo('pdg','nxs',itarg)
latarg = 1 !targ Z
matarg = 1 !targ A
latarg = -1 !<0 means not a nucleus
matarg = 1 !single particle
else
print *,'Warning : target particle not known : ',itarg
print *,' id particle must be +/-120(pi+/-)'
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment