https://github.com/nbodyx/Nbody6
Tip revision: dff3b5c68673d4d4c4c9f54c8ba110b8416098f2 authored by nitadori on 31 May 2020, 13:04:00 UTC
Avoided touching uninitialized SEMIX
Avoided touching uninitialized SEMIX
Tip revision: dff3b5c
inext.f
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