Commit 6f5d0e1f authored by Henning Janssen's avatar Henning Janssen

Bugfix in greensfTorgue

parent aeeb78eb
......@@ -73,7 +73,6 @@ MODULE m_greensfTorgue
CALL timestart("Green's Function Torgue: Integration")
torgue_cmplx = cmplx_0
iContour = -1
ALLOCATE(g_ii(atoms%jmtd,greensFunction(1)%contour%nz),source=cmplx_0)
DO i_gf = 1, SIZE(greensFunction)
IF(greensFunction(i_gf)%elem%atomType.NE.atomType.OR.&
......
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