dc_string::concat Interface Reference

Private Member Functions
subroutine	concat_tail (carray, str, result)

Detailed Description

Definition at line 95 of file dc_string.f90.

Member Function/Subroutine Documentation

concat_tail()

subroutine dc_string::concat::concat_tail ( character(*), dimension(:), intent(in)  carray, character(*), intent(in)  str, character(string), dimension(:), pointer  result  )

private

Definition at line 893 of file dc_string.f90.

    !
    ! 文字型配列 *carray* の各成分の末尾に *str* を追加して
    ! *result* に返します。*carray* の各成分の末尾の空白は無視されます。
    !
    ! result(:) の配列サイズは carray のサイズに応じて自動的に決まります。
    ! ただし、result(:) は必ず空状態または不定状態で与えてください。
    ! 既に割り付けられている場合、メモリリークを起こします。
    !
    implicit none
    character(*), intent(in)  :: carray(:)
    character(*), intent(in)  :: str
    character(STRING), pointer:: result(:) ! (out)
    integer                     :: i, size_carray
  continue
    size_carray = size(carray)
    allocate(result(size_carray))

    do i = 1, size_carray
      result(i) = trim(carray(i)) // str
    end do

---

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

• dc_utils/dc_string.f90