dc_url::urlmerge Interface Reference

Private Member Functions
character(len=string) function	url_merge_cc (file, var)
character(len=string) function	url_merge_cccc (file, var, attr, iorange)
character(len=string) function	url_merge_cccca (file, var, attr, iorange)

Detailed Description

Definition at line 52 of file dc_url.f90.

Member Function/Subroutine Documentation

url_merge_cc()

character(len = string) function dc_url::urlmerge::url_merge_cc ( character(len = *), intent(in)  file, character(len = *), intent(in)  var  )

private

Definition at line 124 of file dc_url.f90.

    !
    ! ファイル名 file、変数名 var を結合して relsult として返します。
    !
    use dc_types, only: string
    character(len = STRING):: result
    character(len = *), intent(in):: file
    character(len = *), intent(in):: var
  continue
    result = url_merge_cccc(file, var, "", "")

url_merge_cccc()

character(len = string) function dc_url::urlmerge::url_merge_cccc ( character(len = *), intent(in)  file, character(len = *), intent(in)  var, character(len = *), intent(in)  attr, character(len = *), intent(in)  iorange  )

private

Definition at line 171 of file dc_url.f90.

    !
    ! ファイル名 file、変数名 var、属性 attr、
    ! 入出力範囲 iorange を結合して relsult として返します。
    !
    use dc_types, only: string
    character(len = STRING):: result
    character(len = *), intent(in):: file
    character(len = *), intent(in):: var
    character(len = *), intent(in):: attr
    character(len = *), intent(in):: iorange
  continue
    if (trim(file) /= "") then
      result = trim(file) // gt_atmark
    else
      result = gt_atmark
    endif
    if (trim(var) /= "") result = trim(result) // var
    if (trim(attr) /= "") then
      result = trim(result) // gt_colon // attr
    endif
    if (trim(iorange) /= "") then
      if (iorange(1:1) == gt_comma) then
        result = trim(result) // iorange
      else
        result = trim(result) // gt_comma // iorange
      endif
    endif

url_merge_cccca()

character(len = string) function dc_url::urlmerge::url_merge_cccca ( character(len = *), intent(in)  file, character(len = *), intent(in)  var, character(len = *), intent(in)  attr, character(len = *), dimension(:), intent(in)  iorange  )

private

Definition at line 136 of file dc_url.f90.

    !
    ! ファイル名 file、変数名 var、属性 attr、
    ! 入出力範囲 iorange を結合して relsult として返します。
    ! iorange には文字型配列を与えます。文字型配列のそれぞれの要素は
    ! GT_COMMA で連結されてから結合されます。
    !
    use dc_types, only: string
    character(len = STRING):: result
    character(len = *), intent(in):: file
    character(len = *), intent(in):: var
    character(len = *), intent(in):: attr
    character(len = *), intent(in):: iorange(:)
    integer:: i
  continue
    if (file /= "") then
      result = trim(file) // gt_atmark
    else
      result = gt_atmark
    endif
    if (var /= "") result = trim(result) // var
    if (attr /= "") then
      result = trim(result) // gt_colon // attr
    endif
    do i = 1, size(iorange)
      if (iorange(i) /= "") then
        if (iorange(i)(1:1) == gt_comma) then
          result = trim(result) // trim(iorange(i))
        else
          result = trim(result) // gt_comma // trim(iorange(i))
        endif
      endif
    end do

---

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

• dc_utils/dc_url.f90