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