dc_string::strinclude Interface Reference

Public Member Functions
logical function	str_include_ac (carray, string, ignore_space, ignore_case)

Detailed Description

Definition at line 201 of file dc_string.f90.

Member Function/Subroutine Documentation

str_include_ac()

logical function dc_string::strinclude::str_include_ac	(	character(*), dimension(:), intent(in)	carray,
		character(*), intent(in)	string,
		logical, intent(in), optional	ignore_space,
		logical, intent(in), optional	ignore_case )

配列に指定文字列が含まれるか確認

文字型配列引数 carray が文字型引数 string と等しい要素を持つ場合に .true. を返します。 文字列の前後の空白は無視されます。 オプショナル引数 ignore_space に .false. を与えた場合には 文字列先頭の空白を無視しません。 オプショナル引数 ignore_case に .true. を与えた場合には 大文字、小文字の違いを無視して比較します。

Parameters

[in]	carray	検索する文字配列
[in]	string	検索する文字列
[in]	ignore_space	.false.の場合、先頭空白を無視しない（デフォルト: .true.）
[in]	ignore_case	.true.の場合、大文字小文字を無視（デフォルト: .false.）

Returns

string が carray に含まれる場合は .true.

Definition at line 550 of file dc_string.f90.

    character(*), intent(in):: carray(:)
    character(*), intent(in):: string
    logical, intent(in), optional:: ignore_space
    logical, intent(in), optional:: ignore_case
    integer:: array_size, i
    logical:: ignore_space_work, ignore_case_work
    continue
    ignore_space_work = .true.
    if ( present(ignore_space) ) then
      if ( .not. ignore_space ) then
        ignore_space_work = .false.
      end if
    end if
    ignore_case_work = .false.
    if ( present(ignore_case) ) then
      if ( ignore_case ) then
        ignore_case_work = .true.
      end if
    end if
    array_size = size(carray)
    do i = 1, array_size
      if ( ignore_space_work ) then
        if ( ignore_case_work ) then
          result = &
            & strieq_cc( trim( adjustl( carray(i) ) ), &
            &            trim( adjustl( string    ) ) )
        else
          result = &
            & ( trim( adjustl( carray(i) ) ) == trim( adjustl( string ) ) )
        end if
      else
        if ( ignore_case_work ) then
          result = &
            & strieq_cc( trim( carray(i) ), trim( string ) )
        else
          result = ( trim(carray(i)) == trim(string) )
        end if
      end if
      if (result) return
    end do

---

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

• /build/gtool5-1.0.0~rc5/debian/build-parallel/src/dc_utils/dc_string.f90