Commit 0874c046 authored by Frank Freimuth's avatar Frank Freimuth

Update wann_uHu_int.F

parent c2fd7b1c
......@@ -112,7 +112,8 @@ c ..local variables..
phase = rgphs(i1,i2,i3) ! TODO: sign also here?
phase2= rgphs(sign*i1,sign*i2,sign*i3)
if( then
call juDFT_error("rgphs in wann_uHu_int",calledby="wann_uHu_int")
call juDFT_error("rgphs in wann_uHu_int",
& calledby="wann_uHu_int")
ekk = rk_b(i) + rk_b2(j)
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