From f18346ecac0123c7b2828f1db85c932eaf9c65f2 Mon Sep 17 00:00:00 2001
From: william-dawson <william.d.f.dawson@gmail.com>
Date: Fri, 16 Nov 2018 17:16:43 +0900
Subject: [PATCH] Fixed examples for new logging. (#85)

---
 Examples/ComplexMatrix/main.f90 | 12 ++++++------
 Examples/MatrixMaps/main.f90    |  6 +++---
 Examples/PremadeMatrix/main.f90 | 20 ++++++++++----------
 3 files changed, 19 insertions(+), 19 deletions(-)

diff --git a/Examples/ComplexMatrix/main.f90 b/Examples/ComplexMatrix/main.f90
index 9be83fd7..b5e19f73 100644
--- a/Examples/ComplexMatrix/main.f90
+++ b/Examples/ComplexMatrix/main.f90
@@ -65,12 +65,12 @@ PROGRAM ComplexMatrix
 
   CALL WriteHeader("Command Line Parameters")
   CALL EnterSubLog
-  CALL WriteElement(key="input_file", text_value_in=input_file)
-  CALL WriteElement(key="exponential_file", text_value_in=exponential_file)
-  CALL WriteElement(key="process_rows", int_value_in=process_rows)
-  CALL WriteElement(key="process_columns", int_value_in=process_columns)
-  CALL WriteElement(key="process_slices", int_value_in=process_slices)
-  CALL WriteElement(key="threshold", float_value_in=threshold)
+  CALL WriteElement(key="input_file", value=input_file)
+  CALL WriteElement(key="exponential_file", value=exponential_file)
+  CALL WriteElement(key="process_rows", value=process_rows)
+  CALL WriteElement(key="process_columns", value=process_columns)
+  CALL WriteElement(key="process_slices", value=process_slices)
+  CALL WriteElement(key="threshold", value=threshold)
   CALL ExitSubLog
 
   !! Construct The Hermitian Matrix
diff --git a/Examples/MatrixMaps/main.f90 b/Examples/MatrixMaps/main.f90
index 59613486..97775117 100644
--- a/Examples/MatrixMaps/main.f90
+++ b/Examples/MatrixMaps/main.f90
@@ -45,9 +45,9 @@ PROGRAM MatrixMapsProgram
   !! Print out parameters.
   CALL WriteHeader("Command Line Parameters")
   CALL EnterSubLog
-  CALL WriteElement(key="input_matrix", text_value_in=input_matrix)
-  CALL WriteElement(key="output_matrix", text_value_in=output_matrix)
-  CALL WriteElement(key="process_slices", int_value_in=process_slices)
+  CALL WriteElement(key="input_matrix", value=input_matrix)
+  CALL WriteElement(key="output_matrix", value=output_matrix)
+  CALL WriteElement(key="process_slices", value=process_slices)
   CALL ExitSubLog
 
   !! Read in the matrices from file.
diff --git a/Examples/PremadeMatrix/main.f90 b/Examples/PremadeMatrix/main.f90
index d20629d8..90dd414e 100644
--- a/Examples/PremadeMatrix/main.f90
+++ b/Examples/PremadeMatrix/main.f90
@@ -73,16 +73,16 @@ PROGRAM PremadeMatrixProgram
 
   CALL WriteHeader("Command Line Parameters")
   CALL EnterSubLog
-  CALL WriteElement(key="hamiltonian", text_value_in=hamiltonian_file)
-  CALL WriteElement(key="overlap", text_value_in=overlap_file)
-  CALL WriteElement(key="density", text_value_in=density_file_out)
-  CALL WriteElement(key="process_rows", int_value_in=process_rows)
-  CALL WriteElement(key="process_columns", int_value_in=process_columns)
-  CALL WriteElement(key="process_slices", int_value_in=process_slices)
-  CALL WriteElement(key="number_of_electrons", int_value_in=number_of_electrons)
-  CALL WriteElement(key="threshold", float_value_in=threshold)
-  CALL WriteElement(key="converge_overlap", float_value_in=converge_overlap)
-  CALL WriteElement(key="converge_density", float_value_in=converge_density)
+  CALL WriteElement(key="hamiltonian", value=hamiltonian_file)
+  CALL WriteElement(key="overlap", value=overlap_file)
+  CALL WriteElement(key="density", value=density_file_out)
+  CALL WriteElement(key="process_rows", value=process_rows)
+  CALL WriteElement(key="process_columns", value=process_columns)
+  CALL WriteElement(key="process_slices", value=process_slices)
+  CALL WriteElement(key="number_of_electrons", value=number_of_electrons)
+  CALL WriteElement(key="threshold", value=threshold)
+  CALL WriteElement(key="converge_overlap", value=converge_overlap)
+  CALL WriteElement(key="converge_density", value=converge_density)
   CALL ExitSubLog
 
   !! Read in the matrices from file.