nidentk.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	nidentk (x, px, n, id, k)

Function/Subroutine Documentation

nidentk()

subroutine nidentk	(	integer, dimension(k,n), intent(in)	x,
		integer, intent(in)	px,
		integer, intent(in)	n,
		integer, intent(out)	id,
		integer	k
	)

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