get_vector Function

public function get_vector(child, key, error, context, default)

Vector helper function for parsing toml

Arguments

Type IntentOptional Attributes Name
type(toml_table), intent(in), pointer :: child

Input Toml entry to read

character(len=*), intent(in) :: key

Key to read
type(toml_error), intent(out), allocatable :: error

Error Message
type(toml_context), intent(in) :: context

Context handle for error reporting
type(vector), intent(in), optional :: default

Default value to assign

Return Value type(vector)


Source Code

    type(vector) function get_vector(child, key, error, context, default)
    !! Vector helper function for parsing toml

    !> Input Toml entry to read 
    type(toml_table),   pointer,     intent(in)  :: child
    !> Key to read
    character(*),                    intent(in)  :: key
    !> Default value to assign
    type(vector),       optional,    intent(in)  :: default
    !> Context handle for error reporting
    type(toml_context),              intent(in)  :: context
    !> Error Message
    type(toml_error),   allocatable, intent(out) :: error

    type(toml_array), pointer  :: arr => null()
    real(kind=wp) :: tmp(3)
    integer :: j, origin

    call get_value(child, key, arr, origin=origin)
    if (associated(arr))then
        if(len(arr) /= 3)then
            call make_error(error, &
            context%report("Expected vector of size 3 for "//key, origin, "Wrong vector size"), -1)
            return
        end if
        do j = 1, len(arr)
            call get_value(arr, j, tmp(j))
        end do
        get_vector = vector(tmp(1), tmp(2), tmp(3))
    else
        if(present(default))then
            get_vector = default
        else
            call make_error(error, &
            context%report("Expected vector of size 3 for "//key, origin, "Wrong vector size"), -1)
            return
        end if
    end if
    end function get_vector