identamta.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	identamta (amta, reftime, istart, iend, id)

Function/Subroutine Documentation

identamta()

subroutine identamta	(	real*8, dimension(2,*)	amta,
		real*8	reftime,
		integer	istart,
		integer	iend,
		integer	id
	)

!
      implicit none
!
      integer id,istart,iend,n2,m
      real*8 amta(2,*),reftime
      id=istart-1
      if(iend.lt.istart) return
      n2=iend+1
      do                                                         
         m=(n2+id)/2
         if(reftime.ge.amta(1,m)) then
            id=m     
         else
            n2=m  
         endif
         if((n2-id).eq.1) return
      enddo