Commit 60c6df1f authored by Gregor Michalicek's avatar Gregor Michalicek

Increase precision of differ

parent 9c187375
......@@ -42,7 +42,7 @@ C ..
ierr = 0
nqnt = fn - fl - 0.99e0
n = msh
del = 5.e-5
del = 5.e-7
emax = 2
emin = -z*z/fn**2 - 10.0
IF ((e.GE.emax) .OR. (e.LE.emin)) e = 0.5e0* (emax+emin)
......
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