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
	)

Check if array contains string

Returns .true. if character array carray has an element equal to string. Beginning and trailing spaces are ignored by default. If ignore_space is .false., beginning spaces are not ignored. If ignore_case is .true., comparison is case-insensitive.

Parameters

[in]	carray	Character array to search
[in]	string	String to find
[in]	ignore_space	If .false., do not ignore leading spaces (default: .true.)
[in]	ignore_case	If .true., ignore case (default: .false.)

Returns

.true. if string is found in carray

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