arrayhandlersmodule::ifind Interface Reference

Collaboration diagram for arrayhandlersmodule::ifind:

Private Member Functions
integer(i4b) function	ifind_character (array, str)
	Find the 1st array element containing str, or -1 if not found. More...
integer(i4b) function	ifind_integer (iarray, ival)
	Find the first element containing ival, or -1 if not found. More...
integer(i4b) function	ifind_charstring (array, str)
	Find the 1st array element containing str, or -1 if not found. More...

Detailed Description

Definition at line 44 of file ArrayHandlers.f90.

Member Function/Subroutine Documentation

ifind_character()

integer(i4b) function arrayhandlersmodule::ifind::ifind_character ( character(len=*), dimension(:)  array, character(len=*)  str  )

private

Definition at line 473 of file ArrayHandlers.f90.

    ! -- return
    integer(I4B) :: ifind_character
    ! -- dummy
    character(len=*), dimension(:) :: array
    character(len=*) :: str
    ! -- local
    integer(I4B) :: i
 
    ifind_character = -1
    findloop: do i = 1, size(array)
      if (array(i) == str) then
        ifind_character = i
        exit findloop
      end if
    end do findloop

Here is the call graph for this function:

ifind_charstring()

integer(i4b) function arrayhandlersmodule::ifind::ifind_charstring ( type(characterstringtype), dimension(:)  array, type(characterstringtype)  str  )

private

Definition at line 493 of file ArrayHandlers.f90.

    use characterstringmodule
    ! -- return
    integer(I4B) :: ifind_charstring
    ! -- dummy
    type(CharacterStringType), dimension(:) :: array
    type(CharacterStringType) :: str
    ! -- local
    integer(I4B) :: i
 
    ifind_charstring = -1
    findloop: do i = 1, size(array)
      if (array(i) == str) then
        ifind_charstring = i
        exit findloop
      end if
    end do findloop

Here is the call graph for this function:

ifind_integer()

integer(i4b) function arrayhandlersmodule::ifind::ifind_integer ( integer(i4b), dimension(:)  iarray, integer(i4b)  ival  )

private

Definition at line 513 of file ArrayHandlers.f90.

    ! -- return
    integer(I4B) :: ifind_integer
    ! -- dummy
    integer(I4B), dimension(:) :: iarray
    integer(I4B) :: ival
    ! -- local
    integer(I4B) :: i
 
    ifind_integer = -1
    findloop: do i = 1, size(iarray)
      if (iarray(i) == ival) then
        ifind_integer = i
        exit findloop
      end if
    end do findloop

Here is the call graph for this function:

---

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

• /home/runner/work/modflow6/modflow6/src/Utilities/ArrayHandlers.f90