nidentll.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	nidentll (x, px, n, id)

Function/Subroutine Documentation

nidentll()

subroutine nidentll	(	integer*8, dimension(n)	x,
		integer*8	px,
		integer	n,
		integer	id
	)

      implicit none
      integer n,id,n2,m
      integer*8 x,px
      dimension x(n)
      id=0
      if(n.eq.0) return
      n2=n+1
      do
         m=(n2+id)/2
         if(px.ge.x(m)) then
            id=m
         else
            n2=m
         endif
         if((n2-id).eq.1) return
      enddo