Nbody6
Main Page
Files
File List
File Members
Nbody6
Files
File List
Nbody6
Chain
cfuncs.f
chain.f
chstab.f
common2.h
commonc.h
const.f
cstab2.f
cstab3.f
cstab4.f
cstab5.f
derqp.f
difsy1.f
erel.f
hpsort.f
inclin.f
invert.f
ksphys.f
physks.f
qforce.f
qpmod.f
r2sort.f
recoil.f
redraw.f
select.f
slow.f
stablc.f
swcond.f
switch.f
transk.f
transq.f
transx.f
vector.f
xtf.f
xtrnlu.f
ycopy.f
ysave.f
Nchain
Ncode
File Members
•
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
Nbody6
Chain
redraw.f
Generated on Sat Nov 30 2013 19:04:35 for Nbody6 by
1.8.2