aboutsummaryrefslogtreecommitdiff
path: root/captain/config.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-03-29 16:38:00 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-03-29 16:38:00 -0400
commitbe976a38f1d95258f19d94f4cf5dc4c677041ed9 (patch)
treedf8557c3d44c6dc41a29f34646d5d231d6075270 /captain/config.f90
parent7614a6244d080b8c0f82da8c34ccf7a4a88fe72a (diff)
downloadlevitating-be976a38f1d95258f19d94f4cf5dc4c677041ed9.tar.gz
levitating-be976a38f1d95258f19d94f4cf5dc4c677041ed9.zip
Changed how temp files work on UNIX-y stuff. Fixed templates, which were quite broken.
Diffstat (limited to 'captain/config.f90')
-rw-r--r--captain/config.f905
1 files changed, 5 insertions, 0 deletions
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