Fixed examples for new logging. (#85)

william-dawson · Nov 16, 2018 · f18346e · f18346e
1 parent 2426319
commit f18346e
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 19 deletions.
diff --git 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
@@ -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
@@ -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.