From be976a38f1d95258f19d94f4cf5dc4c677041ed9 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Mon, 29 Mar 2021 16:38:00 -0400 Subject: Changed how temp files work on UNIX-y stuff. Fixed templates, which were quite broken. --- captain/config.f90 | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'captain/config.f90') diff --git a/captain/config.f90 b/captain/config.f90 index 338dc4d..dc26ef4 100644 --- a/captain/config.f90 +++ b/captain/config.f90 @@ -36,6 +36,7 @@ contains i = index(str, '=') if(i > 0) then + i = i - 1 ! Remove the equal sign v = adjustl(str(1:i)) end if @@ -107,6 +108,10 @@ contains call get_variable(line, cvariable) call get_value(line, cvalue) + + ! Debugging + ! Print *, trim(cvariable)//" => "//trim(cvalue) + call assign_config(trim(cvariable), trim(cvalue)) end if -- cgit v1.2.3