get1d_range Function

private function get1d_range(dict, val) result(ok)

Arguments

Type IntentOptional Attributes Name
type(input_t), intent(in) :: dict
integer, intent(inout), allocatable :: val(:)

Return Value logical


Calls

proc~~get1d_range~~CallsGraph proc~get1d_range get1d_range proc~input_has_key input_t%input_has_key proc~get1d_range->proc~input_has_key get get proc~input_has_key->get proc~select_dict select_dict proc~input_has_key->proc~select_dict

Called by

proc~~get1d_range~~CalledByGraph proc~get1d_range get1d_range proc~input_int1d input_t%input_int1d proc~input_int1d->proc~get1d_range proc~ffsrclink_init_part1 FFsrcLink_init_part1 proc~ffsrclink_init_part1->proc~input_int1d proc~ffsrclink_init_part2 FFsrcLink_init_part2 proc~ffsrclink_init_part2->proc~input_int1d proc~fslink_init_part1 FSlink_init_part1 proc~fslink_init_part1->proc~input_int1d proc~fslink_init_part2 FSlink_init_part2 proc~fslink_init_part2->proc~input_int1d proc~sssrclink_init_part1 SSsrcLink_init_part1 proc~sssrclink_init_part1->proc~input_int1d proc~sssrclink_init_part2 SSsrcLink_init_part2 proc~sssrclink_init_part2->proc~input_int1d program~reims_p reims_p program~reims_p->proc~ffsrclink_init_part1 program~reims_p->proc~ffsrclink_init_part2 program~reims_p->proc~fslink_init_part1 program~reims_p->proc~fslink_init_part2 program~reims_p->proc~sssrclink_init_part1 program~reims_p->proc~sssrclink_init_part2

Source Code

function get1d_range(dict,val) result(ok)
    type(input_t), intent(in) :: dict
    integer, intent(inout), allocatable :: val(:)
    logical :: ok

    integer :: i

    ok = .false.
    if (.not.dict%has_key('to')) return
    val = [(i, i = dict%int('from',1),dict%int('to'),dict%int('step',1))]
    ok = .true.
end function get1d_range