example_2.f90

Go to the documentation of this file.

program test_m_config2
  use m_config
 
  integer, parameter    :: dp = kind(0.0d0)
  type(cfg_t)           :: my_cfg
 
  ! Some dummy variables
  integer               :: my_int
 
  print *, "Testing m_config.f90 (test 2)"
  print *, "This program reads its arguments as configuration files"
  print *, "Try running it like this:"
  print *, "./example_2"
  print *, "./example_2 example_2_input.cfg -array%int='13 37'"
  print *, ""
 
  call cfg_update_from_arguments(my_cfg)
 
  call cfg_add(my_cfg, "scalar%real", 1.0_dp, "my_real")
  call cfg_add(my_cfg, "scalar%logic", .true., "my_logic")
 
  print *, "Using CFG_add_get you can immediately get the value"
  print *, "that previously has been read in, for example:"
  my_int = 5
  call cfg_add_get(my_cfg, "scalar%int", my_int, "my_int")
  print *, "scalar%int: ", my_int
  print *, ""
 
  call cfg_add(my_cfg, "scalar%string", "a string", "my_string")
  call cfg_add(my_cfg, "array%real", [1.0_dp, 2.0_dp], "my_reals", dynamic_size=.true.)
  call cfg_add(my_cfg, "array%logic", [.true., .true.], "my_logics", dynamic_size=.true.)
  call cfg_add(my_cfg, "array%int", [1, 2], "my_ints", dynamic_size=.true.)
  call cfg_add(my_cfg, "array%string", ["A", "B"], "my_strings", dynamic_size=.true.)
 
  call cfg_write(my_cfg, "stdout", custom_first=.true.) ! Write to screen
  call cfg_write(my_cfg, "example_2_output.cfg")           ! Write to file
  call cfg_write_markdown(my_cfg, "example_2_output.md")   ! Write markdown file
 
end program test_m_config2