local_index.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	local_index (il, ig, nodes, n)

Function/Subroutine Documentation

local_index()

subroutine local_index	(	integer, intent(out)	il,
		integer, intent(in)	ig,
		integer, dimension(n), intent(in)	nodes,
		integer, intent(in)	n )

Definition at line 36 of file local_index.F.

C-----------------------------------------------
C   D e s c r i p t i o n
C-----------------------------------------------
C     Search IL such as NODES(IL)=IG
C       PRECONDITION : NODES(:) MUST BE ORDERED
C       SEARCH ALGORITHM : Dichotomic Search
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN)  :: IG, N, NODES(N)
      INTEGER, INTENT(OUT) :: IL
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IMIN, IMAX, K, M
C-----------------------------------------------
      imin=0
      imax=n
C
      m=n/2
      DO WHILE (m > 0)
        k=m+imin
        IF(nodes(k) < ig) THEN
          imin=k
          m=imax-imin
        ELSE
          imax=k
        ENDIF
        m=m/2
      ENDDO
      il=imax
C
      RETURN