dc_url::urlsearchiorange Interface Reference

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

Detailed Description

Definition at line 71 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  )

private

Definition at line 215 of file dc_url.f90.

    !
    ! 変数 URL *fullname* 内の, 次元 *dimvar* に関する
    ! 入出力範囲指定の値を取得します。
    !
    ! fullname には gtool4 変数全体または入出力範囲指定部分の値を与えます。
    ! dimvar には入出力範囲指定部分に含まれる次元変数名を与えます。
    ! dimvar に対応する次元変数が存在する場合、その値を返します。
    ! dimvar に対応する次元変数が存在しない場合、空文字を返します。
    !
    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)

---

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

• dc_utils/dc_url.f90