Commit 0a0d416c authored by Henning Janssen's avatar Henning Janssen

Bugfix for histogram method

parent 2609a58a
......@@ -84,8 +84,8 @@ SUBROUTINE greensfImag(atoms,sym,input,ispin,nbands,dosWeights,resWeights,ind,wt
ENDIF
ELSE
!HISTOGRAM METHOD: check if eigenvalue is inside the energy range
j = NINT((eig(ib)-greensfCoeffs%e_bot)/greensfCoeffs%del)+1
IF( (j.LE.greensfCoeffs%ne).AND.(j.GE.1) ) l_zero = .false.
j = FLOOR((eig(ib)-greensfCoeffs%e_bot)/greensfCoeffs%del)+1
IF( (j.LE.greensfCoeffs%ne).AND.(j.GE.1) ) l_zero = .false.
END IF
IF(l_zero) CYCLE
......
......@@ -84,7 +84,7 @@ MODULE m_greensfImag21
ENDIF
ELSE
!HISTOGRAM METHOD: check if eigenvalue is inside the energy range
j = NINT((eig(ib)-greensfCoeffs%e_bot)/greensfCoeffs%del)+1
j = FLOOR((eig(ib)-greensfCoeffs%e_bot)/greensfCoeffs%del)+1
IF( (j.LE.greensfCoeffs%ne).AND.(j.GE.1) ) l_zero = .false.
END IF
......
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