inext.f

Go to the documentation of this file.

      subroutine inext(NQ,LISTQ,TMIN,length,nxtlst)
*
*       Next time-step block.
*       ---------------------
*
      include 'common6.h'
      integer length,j,nq,nxtlst(*),listq(*)
*
*       Find all new times equal to TMIN.
      length = 0
      do 10 l = 1,nq
         j = listq(l)
         if (tnew(j) .eq. tmin) then
            length = length + 1
            nxtlst(length) = j
         end if
 10   continue
*
      return
      end