add test2 with eels input data.

.gitignore

@@ -26,4 +26,5 @@ tests/seteps/build-f90
 tests/seteps/build-f90-new
 tests/seteps/build-WFW
 tests/SetEpsTestCasesFromScratch/*/eels
-testprograms/YAML-Test/test
+testprograms/YAML-Test/test1
+testprograms/YAML-Test/test2

testprograms/YAML-Test/DEVELOPER NOTES

@@ -23,7 +23,7 @@ Search for and copy them to your preferred location. If you like, you can also r
 
 Compile your source with a correspondingly adjusted command:
 
-gfortran libyaml_interface.o fortran_yaml_c_interface.o fortran_yaml_c_types.o fortran_yaml_c.o  -lyaml -L/opt/local/lib -o test test.f90
+gfortran libyaml_interface.o fortran_yaml_c_interface.o fortran_yaml_c_types.o fortran_yaml_c.o  -lyaml -L/opt/local/lib -o test1 test1.f90
 
 Or do it in a Makefile.
 

testprograms/YAML-Test/eelsbosin001.yml

+E0:     4.0
+Theta: 60.0
+PhiA:   1.8
+PhiB:   1.8
+wMin:  50.0
+wMax: 700.0
+dw:     2.0
+Comment1: "WFW: MnO layer on metal"
+Comment2: 
+NumberOfPeriodicLayers: 1
+
+Layers:
+- { Name: "MnO",
+    thickness: 994.0,
+    epsInfinity: 4.95,
+    Terms:
+      [
+        {Type: Lorentz,
+         wTO: 269.0,
+         Q:    16.000,
+         Gamma: 0.05}
+      ,
+        {Type: Lorentz,
+         wTO: 269.0,
+         Q:    16.000,
+         Gamma: 0.05}
+      ]
+  }
+- { Name: "Platinum",
+    thickness: 1000.0,
+    epsInfinity: 8.90,
+    Terms:
+      [
+        {TypeOfTerm: Drude,
+         wTO: 160000.0,
+         lambda: 0.012}
+      ]
+  }
+
+ImageCharge: False
+
+T:     300.0
+Width:  57.0
+Gauss:   0.5
+Asym:    0.3
+Emin: -500.0
+EMax:  750.0

testprograms/YAML-Test/test2.f90

+program test
+
+  use, intrinsic :: iso_fortran_env, only:  output_unit
+  use fortran_yaml_c
+  
+  implicit none
+
+  type(YamlFile), target :: file
+  character(:), allocatable :: err
+
+  class(type_node), pointer :: root
+  class(type_dictionary), pointer :: dict
+  class(type_list), pointer :: list
+  class(type_list_item), pointer :: item
+  type(type_error), allocatable :: io_err
+  
+  character(:), allocatable :: string
+  real(dp) :: pi
+  logical :: happy, sadness
+
+  write (*,*) 'Program test'
+
+  call file%parse("eelsbosin001.yml", err)
+  if (allocated(err)) then
+    write (*,*) err
+    stop 1
+  else
+    write (*,*) 'File opened.'
+  endif
+
+  call file%dump(unit = output_unit, indent = 0)
+  
+end program
+  
\ No newline at end of file