Commits

Simon Zimny  committed da219d1

aotus can now read lonk kind integers (updated get_config_val)

  • Participants
  • Parent commits 82d8ee8

Comments (0)

Files changed (1)

File source/aotus_module.f90

     module procedure get_config_real
     module procedure get_config_double
     module procedure get_config_integer
+    module procedure get_config_long
     module procedure get_config_string
     module procedure get_config_logical
   end interface
   end subroutine get_config_integer
 
 
+  subroutine get_config_long(conf, var, conf_val, ErrCode, default)
+    type(flu_State) :: conf
+    character(len=*), intent(in) :: var
+    integer(kind=long_k), intent(out) :: conf_val
+    integer, intent(out) :: ErrCode
+    integer(kind=long_k), optional, intent(in) :: default
+
+    call flu_getglobal(conf, var)
+    call get_top_val(conf, conf_val, ErrCode, default)
+
+  end subroutine get_config_long
+
+
   subroutine get_config_logical(conf, var, conf_val, ErrCode, default)
     type(flu_State) :: conf
     character(len=*), intent(in) :: var