ident2.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	ident2 (x, px, n, ninc, id)

Function/Subroutine Documentation

ident2()

subroutine ident2	(	real*8, dimension(n*ninc), intent(in)	x,
		real*8, intent(in)	px,
		integer, intent(in)	n,
		integer, intent(in)	ninc,
		integer, intent(out)	id
	)

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