diff --git a/source/KKRnano/source/datastructures/InputParamsNew.txt b/source/KKRnano/source/datastructures/InputParamsNew.txt index bf982f4d39c51feb3a6b81173ce087c2a76a0cc9..6726ca822405e5ab93dbbf4839a4f0f3feca2440 100644 --- a/source/KKRnano/source/datastructures/InputParamsNew.txt +++ b/source/KKRnano/source/datastructures/InputParamsNew.txt @@ -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. diff --git a/source/KKRnano/source/datastructures/InputParams_mod.F90 b/source/KKRnano/source/datastructures/InputParams_mod.F90 index f6ada62cddc1fe9d30330ec53cf2ef793e8c0455..dfbfc46029f29565b0a3b6d4db51e5af5037b7c0 100644 --- a/source/KKRnano/source/datastructures/InputParams_mod.F90 +++ b/source/KKRnano/source/datastructures/InputParams_mod.F90 @@ -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."