get_real Subroutine

private subroutine get_real(cfg, var_name, res)

Get a real value of a given name

Arguments

Type IntentOptional Attributes Name
type(CFG_t), intent(inout) :: cfg
character(len=*), intent(in) :: var_name
real(kind=dp), intent(out) :: res

Calls

proc~~get_real~~CallsGraph proc~get_real get_real proc~prepare_get_var prepare_get_var proc~get_real->proc~prepare_get_var proc~get_var_index get_var_index proc~prepare_get_var->proc~get_var_index proc~handle_error handle_error proc~prepare_get_var->proc~handle_error proc~binary_search_variable binary_search_variable proc~get_var_index->proc~binary_search_variable

Called by

proc~~get_real~~CalledByGraph proc~get_real get_real interface~cfg_get CFG_get interface~cfg_get->proc~get_real proc~add_get_real add_get_real proc~add_get_real->proc~get_real interface~cfg_add_get CFG_add_get interface~cfg_add_get->proc~add_get_real

Source Code

  subroutine get_real(cfg, var_name, res)
    type(CFG_t), intent(inout)   :: cfg
    character(len=*), intent(in) :: var_name
    real(dp), intent(out)        :: res
    integer                      :: ix

    call prepare_get_var(cfg, var_name, CFG_real_type, 1, ix)
    res = cfg%vars(ix)%real_data(1)
  end subroutine get_real