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

Increase precision of differ

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