IAP GITLAB

Commit 242e7df4 authored by Tanguy Pierog's avatar Tanguy Pierog

style change in utamnx


git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@6433 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent 96ff6faf
...@@ -1561,6 +1561,8 @@ c----------------------------------------------------------------------- ...@@ -1561,6 +1561,8 @@ c-----------------------------------------------------------------------
parameter (nflav=6) parameter (nflav=6)
integer jcp(nflav,2),jcm(nflav,2) integer jcp(nflav,2),jcm(nflav,2)
imod=5 !4 for resonance and 5 for minimum mass
do i=1,nflav do i=1,nflav
do j=1,2 do j=1,2
if(jcp(i,j).ne.0)goto1 if(jcp(i,j).ne.0)goto1
...@@ -1572,7 +1574,7 @@ c----------------------------------------------------------------------- ...@@ -1572,7 +1574,7 @@ c-----------------------------------------------------------------------
kec=jcm(4,1)-jcm(4,2) kec=jcm(4,1)-jcm(4,2)
keb=jcm(5,1)-jcm(5,2) keb=jcm(5,1)-jcm(5,2)
ket=jcm(6,1)-jcm(6,2) ket=jcm(6,1)-jcm(6,2)
utamnx=utamnu(keu,ked,kes,kec,keb,ket,5) utamnx=utamnu(keu,ked,kes,kec,keb,ket,imod)
return return
1 continue 1 continue
...@@ -1587,7 +1589,7 @@ c----------------------------------------------------------------------- ...@@ -1587,7 +1589,7 @@ c-----------------------------------------------------------------------
kec=jcp(4,1)-jcp(4,2) kec=jcp(4,1)-jcp(4,2)
keb=jcp(5,1)-jcp(5,2) keb=jcp(5,1)-jcp(5,2)
ket=jcp(6,1)-jcp(6,2) ket=jcp(6,1)-jcp(6,2)
utamnx=utamnu(keu,ked,kes,kec,keb,ket,5) utamnx=utamnu(keu,ked,kes,kec,keb,ket,imod)
return return
2 continue 2 continue
...@@ -1600,16 +1602,16 @@ c----------------------------------------------------------------------- ...@@ -1600,16 +1602,16 @@ c-----------------------------------------------------------------------
ke=keu+ked+kes+kec+keb+ket ke=keu+ked+kes+kec+keb+ket
if(mod(ke+1,3).eq.0)then if(mod(ke+1,3).eq.0)then
keu=keu+1 keu=keu+1
amms1=utamnu(keu,ked,kes,kec,keb,ket,5) amms1=utamnu(keu,ked,kes,kec,keb,ket,imod)
keu=keu-1 keu=keu-1
ked=ked+1 ked=ked+1
amms2=utamnu(keu,ked,kes,kec,keb,ket,5) amms2=utamnu(keu,ked,kes,kec,keb,ket,imod)
elseif(mod(ke-1,3).eq.0)then elseif(mod(ke-1,3).eq.0)then
keu=keu-1 keu=keu-1
amms1=utamnu(keu,ked,kes,kec,keb,ket,5) amms1=utamnu(keu,ked,kes,kec,keb,ket,imod)
keu=keu+1 keu=keu+1
ked=ked-1 ked=ked-1
amms2=utamnu(keu,ked,kes,kec,keb,ket,5) amms2=utamnu(keu,ked,kes,kec,keb,ket,imod)
else else
amms1=0 amms1=0
amms2=0 amms2=0
...@@ -1626,16 +1628,16 @@ c----------------------------------------------------------------------- ...@@ -1626,16 +1628,16 @@ c-----------------------------------------------------------------------
ke=keu+ked+kes+kec+keb+ket ke=keu+ked+kes+kec+keb+ket
if(mod(ke+1,3).eq.0)then if(mod(ke+1,3).eq.0)then
keu=keu+1 keu=keu+1
amms3=utamnu(keu,ked,kes,kec,keb,ket,5) amms3=utamnu(keu,ked,kes,kec,keb,ket,imod)
keu=keu-1 keu=keu-1
ked=ked+1 ked=ked+1
amms4=utamnu(keu,ked,kes,kec,keb,ket,5) amms4=utamnu(keu,ked,kes,kec,keb,ket,imod)
elseif(mod(ke-1,3).eq.0)then elseif(mod(ke-1,3).eq.0)then
keu=keu-1 keu=keu-1
amms3=utamnu(keu,ked,kes,kec,keb,ket,5) amms3=utamnu(keu,ked,kes,kec,keb,ket,imod)
keu=keu+1 keu=keu+1
ked=ked-1 ked=ked-1
amms4=utamnu(keu,ked,kes,kec,keb,ket,5) amms4=utamnu(keu,ked,kes,kec,keb,ket,imod)
else else
call utstop('utamnx: no singlet possible (2)&') call utstop('utamnx: no singlet possible (2)&')
endif endif
......
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