MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
arrayhandlersmodule::ifind Interface Reference
Collaboration diagram for arrayhandlersmodule::ifind:
Collaboration graph

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...
 

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.

474  ! -- return
475  integer(I4B) :: ifind_character
476  ! -- dummy
477  character(len=*), dimension(:) :: array
478  character(len=*) :: str
479  ! -- local
480  integer(I4B) :: i
481 
482  ifind_character = -1
483  findloop: do i = 1, size(array)
484  if (array(i) == str) then
485  ifind_character = i
486  exit findloop
487  end if
488  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 492 of file ArrayHandlers.f90.

493  ! -- return
494  integer(I4B) :: ifind_integer
495  ! -- dummy
496  integer(I4B), dimension(:) :: iarray
497  integer(I4B) :: ival
498  ! -- local
499  integer(I4B) :: i
500 
501  ifind_integer = -1
502  findloop: do i = 1, size(iarray)
503  if (iarray(i) == ival) then
504  ifind_integer = i
505  exit findloop
506  end if
507  end do findloop
Here is the call graph for this function:

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