Commit c4291b0e authored by Henning Janssen's avatar Henning Janssen

bugfix

parent 3ad3db69
......@@ -134,7 +134,7 @@ MODULE m_greensfCalcImagPart
ELSE !Here we always use the tetrahedron method
weights(eGrid_start:eGrid_end) = -ImagUnit * pi_const * fac * dosWeights(eGrid_start:eGrid_end,iBand))
weights(eGrid_start:eGrid_end) = -ImagUnit * pi_const * fac * dosWeights(eGrid_start:eGrid_end,iBand)
IF(gfinp%l_sphavg) THEN
greensfImagPart%sphavg(eGrid_start:eGrid_end,m,mp,i_elem,spin_ind) = greensfImagPart%sphavg(eGrid_start:eGrid_end,m,mp,i_elem,spin_ind) &
......
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