dc_url::urlsearchiorange Interface Reference

Public Member Functions
character(len=string) function	url_search_iorange (fullname, dimvar)

Detailed Description

Definition at line 88 of file dc_url.f90.

Member Function/Subroutine Documentation

url_search_iorange()

character(len = string) function dc_url::urlsearchiorange::url_search_iorange	(	character(len = *), intent(in)	fullname,
		character(len = *), intent(in)	dimvar
	)

Get I/O range value for a dimension from variable URL

Gets the I/O range specification value for dimension dimvar from the variable URL fullname.

fullname is given either as a complete gtool4 variable URL or as just the I/O range specification part. dimvar is given as the dimension variable name contained in the I/O range specification part. If a dimension variable corresponding to dimvar exists, its value is returned. If a dimension variable corresponding to dimvar does not exist, an empty string is returned.

Parameters

[in]	fullname	Variable URL or I/O range specification
[in]	dimvar	Dimension variable name to search

Returns

I/O range value for the dimension (empty if not found)

Definition at line 345 of file dc_url.f90.

    use dc_types, only: string
    use dc_string, only: split
    character(len = *), intent(in):: fullname
    character(len = *), intent(in):: dimvar
    character(len = STRING):: result
    character(STRING):: file, var, attr, iorange
    character(STRING), pointer :: ioranges_slice(:) => null()
    integer :: i, eqpos, atmark
  continue
    result = ""
    ! @ または ? が含まれているなら urlsplit で分離
    atmark = index(fullname, gt_question)
    if (atmark == 0) atmark = index(fullname, gt_atmark)
    if (atmark /= 0) then
      call urlsplit(fullname, file=file, var=var, attr=attr, iorange=iorange)
    else
      iorange = fullname
    end if
    call split(iorange, ioranges_slice, gt_comma)
    do i = 1, size(ioranges_slice)
      eqpos = index(ioranges_slice(i), gt_equal)
      if (ioranges_slice(i)(1:eqpos-1) == trim(dimvar)) then
        result = trim(ioranges_slice(i)(eqpos+1:))
        exit
      end if
    end do
    deallocate(ioranges_slice)

References dc_url::gt_atmark, dc_url::gt_comma, dc_url::gt_equal, dc_url::gt_question, and dc_types::string.

---

The documentation for this interface was generated from the following file:

• dc_utils/dc_url.f90