Commit 2747707b authored by Florian Goth's avatar Florian Goth
Browse files

bugfix

parent 00dfc198
Pipeline #7220 failed with stage
in 50 seconds
......@@ -76,7 +76,7 @@ Contains
Integer :: n
maxgh = nodes
if (nodes .eq. 3)
if (nodes == 3) then
Allocate(Phi(-1:1, 2), Gaml(-1:1, 2))
phi(1, 2) = 2*1.224744871391589049099
phi(0, 2) = 0
......@@ -177,7 +177,7 @@ Contains
Integer, Intent(IN) :: oldspin
Integer :: newspin
if(maxgh .eq. 3)
if(maxgh == 3) then
newspin = nranf(2) - 2! creates values from [-maxgh/2:maxgh/2-2] including zero
if (newspin .eq. oldspin) newspin = maxgh/2 ! map zero to maxgh/2
else
......
Supports Markdown
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