Skip to content
Snippets Groups Projects
Commit 9e2e2ec9 authored by Nicolas Essing's avatar Nicolas Essing
Browse files

Fixed a bug in input reader.

The parameter enable_quad_prec was introduced in InputParams_mod.F90,
but not in InputParamsNew.txt, so it did not appear when recreating
the Fortran module from the list of parameters.
parent 818edffd
No related branches found
No related tags found
No related merge requests found
......@@ -122,3 +122,5 @@ i ncheb 10
d r_log 0.1D0
### parameter a for exponential radial mesh
d a_log 0.025D0
### unknown
l enable_quad_prec .FALSE.
......@@ -629,9 +629,9 @@ integer function getValues(filename, self) result(ierror)
destroy_and_return
endif
ierror = getValue(cr, "enable_quad_prec", self%enable_quad_prec , def=.false.)
ierror = getValue(cr, "enable_quad_prec", self%enable_quad_prec , def=.FALSE.)
if (ierror == use_default) then
write(*,*) "WARNING: Bad/no value given for enable_quad_prec. Set enable_quad_prec to .false."
write(*,*) "WARNING: Bad/no value given for enable_quad_prec. Set enable_quad_prec to .FALSE."
ierror = 0 ! ok, no error
elseif (ierror /= 0) then
write(*,*) "Bad/no value given for enable_quad_prec."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment