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 ...@@ -122,3 +122,5 @@ i ncheb 10
d r_log 0.1D0 d r_log 0.1D0
### parameter a for exponential radial mesh ### parameter a for exponential radial mesh
d a_log 0.025D0 d a_log 0.025D0
### unknown
l enable_quad_prec .FALSE.
...@@ -629,9 +629,9 @@ integer function getValues(filename, self) result(ierror) ...@@ -629,9 +629,9 @@ integer function getValues(filename, self) result(ierror)
destroy_and_return destroy_and_return
endif 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 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 ierror = 0 ! ok, no error
elseif (ierror /= 0) then elseif (ierror /= 0) then
write(*,*) "Bad/no value given for enable_quad_prec." 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