Nbody6
 All Files Functions Variables
redraw.f
Go to the documentation of this file.
1  SUBROUTINE redraw(IC,LMIN,LMAX,IJ,LI,SUC,LOOP)
2 *
3 *
4 * Check chain connections.
5 * -----------------------
6 *
7  include 'commonc.h'
8  include 'common2.h'
9  INTEGER ic(*),icc(2),ij(nmxm,2)
10  LOGICAL suc,loop
11 *
12 *
13  suc=.false.
14  loop=.false.
15  icc(1)=ic(lmin)
16  icc(2)=ic(lmax)
17  DO i=1,2
18  DO j=1,2
19  IF(icc(i).EQ.ij(li,j))THEN
20  jc=3-j
21  loop=.true.
22  DO l=lmin,lmax
23  IF(ic(l).EQ.ij(li,jc))RETURN
24  END DO
25  suc=.true.
26  loop=.false.
27  IF(i.EQ.1)THEN
28  lmin=lmin-1
29  ic(lmin)=ij(li,jc)
30  RETURN
31  ELSE
32  lmax=lmax+1
33  ic(lmax)=ij(li,jc)
34  RETURN
35  END IF
36  END IF
37  END DO
38  END DO
39 *
40  RETURN
41  END