IAP GITLAB

Commit f8e2825c authored by Colin Baus's avatar Colin Baus

remove whitespace for following commit

git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@4939 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent 0588ad23
......@@ -1328,7 +1328,7 @@ c initializes /crema/
c masses are limit between stable state (so the average between 2 mass states)
c width=hbar(6.582e-25 GeV.s)/tau for 151, 251, 351, 451 arbitrary
c (no data found) !!!!!!!!!!!
c used only in epos-ids.f
c used only in epos-ids.f
c-----------------------------------------------------------------------
parameter (mxindx=1000,mxre=100,mxma=11,mxmx=6)
......@@ -1754,7 +1754,7 @@ c-----------------------------------------------------------------------
9998 continue
write(ifch,*)'id: ',id
call utstop('idtr4: indx=0.&')
9999 continue
write(ifch,*)'id: ',id
call utstop('idtr4: ix out of range.&')
......@@ -2351,14 +2351,14 @@ c print *,'idtrafo',' ',code1,' ',code2,idi
j=1
ji=j
if(i.eq.2.and.id1.gt.1000000000)then !nucleus from PDG
idtrafo=id1
idtrafo=id1
return
elseif(i.eq.4.and.id1.gt.402)then !nucleus from Corsika
idtrafo=1000000000+mod(id1,100)*10000+(id1/100)*10
idtrafo=1000000000+mod(id1,100)*10000+(id1/100)*10
return
elseif(i.eq.5.and.id1.gt.1004)then !nucleus from Sibyll
id1=(id1-1000)
idtrafo=1000000000+id1/2*10000+id1*10
idtrafo=1000000000+id1/2*10000+id1*10
return
elseif(id1.eq.130.and.i.eq.2)then
idtrafo=-20
......@@ -2370,14 +2370,14 @@ c print *,'idtrafo',' ',code1,' ',code2,idi
j=2
ji=j
if(i.eq.1.and.id1.gt.1000000000)then !nucleus from NEXUS
idtrafo=id1
idtrafo=id1
return
elseif(i.eq.4.and.id1.gt.402)then !nucleus from Corsika
idtrafo=1000000000+mod(id1,100)*10000+(id1/100)*10
idtrafo=1000000000+mod(id1,100)*10000+(id1/100)*10
return
elseif(i.eq.5.and.id1.gt.1004)then !nucleus from Sibyll
id1=(id1-1000)
idtrafo=1000000000+id1/2*10000+id1*10
idtrafo=1000000000+id1/2*10000+id1*10
return
elseif(id1.eq.-20.and.i.eq.1)then
idtrafo=130
......@@ -2501,4 +2501,3 @@ c return
endif
end
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