From 9e2e2ec99dbaf177118cee8187969c35b1896ff5 Mon Sep 17 00:00:00 2001
From: Nicolas Essing <n.essing@fz-juelich.de>
Date: Sun, 3 Oct 2021 15:24:39 +0200
Subject: [PATCH] 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.
---
source/KKRnano/source/datastructures/InputParamsNew.txt | 2 ++
source/KKRnano/source/datastructures/InputParams_mod.F90 | 4 ++--
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/source/KKRnano/source/datastructures/InputParamsNew.txt b/source/KKRnano/source/datastructures/InputParamsNew.txt
index bf982f4d3..6726ca822 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 f6ada62cd..dfbfc4602 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."
--
GitLab