Commit ca12bab0 authored by Daniel Wortmann's avatar Daniel Wortmann

Update ssomat.F90. Decreased numerical accuracy tested for. Should be...

Update ssomat.F90. Decreased numerical accuracy tested for. Should be investigated further. Should help in #235
parent b77a78c0
......@@ -407,7 +407,7 @@ CONTAINS
ELSE
bandf= 1
ENDIF
IF (ABS(AIMAG(matel(bandf,band2,n)))>1.e-10) THEN
IF (ABS(AIMAG(matel(bandf,band2,n)))>1.e-8) THEN
PRINT *,bandf,band2,n,AIMAG(matel(bandf,band2,n))
CALL judft_error('Stop in ssomatel: diagonal matrix element not real')
ENDIF
......
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