Nbody6
Main Page
Files
File List
File Members
Nbody6
Files
File List
Nbody6
Chain
Nchain
Ncode
adjust.f
assess.f
bindat.f
binev.f
binout.f
binpop.f
block.f
bodies.f
brake.f
brake2.f
brake3.f
brake4.f
bsetid.f
chaos.f
chaos0.f
check.f
checkl.f
chrect.f
circ.f
clint.f
cloud.f
cloud0.f
cmbody.f
cmcorr.f
cmfirr.f
cmfreg.f
coal.f
comenv.f
common6.h
core.f
corerd.f
cputim.f
data.f
decide.f
define.f
deform.f
deform2.f
degen.f
delay.f
derqp3.f
derqp4.f
dgcore.f
difsy3.f
difsy4.f
dtchck.f
eccmod.f
ecirc.f
edot.f
efac2.f
efac3.f
endreg.f
energy.f
erel3.f
erel4.f
escape.f
events.f
evolve.f
expand.f
expand2.f
expel.f
extend.f
fbulge.f
fclose.f
fcloud.f
fcorr.f
fdisk.f
fhalo.f
ficorr.f
findj.f
findm.f
flyby.f
fnuc.f
fpcorr.f
fpert.f
fpoly1.f
fpoly2.f
freeze.f
gcinit.f
gcint.f
giant.f
giant3.f
gntage.f
grrad.f
hcorr.f
hiarch.f
hicirc.f
hidat.f
higrow.f
himax.f
himax2.f
himod.f
hipop.f
hirect.f
histab.f
hivel.f
hmdot.f
hmdot2.f
hotsys.f
hrdiag.f
hrplot.f
hut.f
hut2.f
iblock.f
ichain.f
imf.f
imf2.f
imfbd.f
impact.f
induce.f
inext.f
input.f
insert.f
instar.f
intgrt.f
intide.f
jacobi.f
kepler.f
kick.f
kick2.f
kozai.f
ksapo.f
kscorr.f
ksin2.f
ksinit.f
ksint.f
ksintp.f
kslist.f
ksmod.f
ksperi.f
kspert.f
kspoly.f
kspred.f
ksrect.f
ksreg.f
ksres.f
ksres2.f
ksrot.f
ksterm.f
kstide.f
lagr.f
lagr2.f
levels.f
magbrk.f
matrix.f
mdot.f
merge.f
merge2.f
mix.f
mloss.f
mlwind.f
modify.f
mrenv.f
mtrace.f
mydump.f
nbhist.f
nbint.f
nblist.f
nbody6.f
nbpot.f
nbrem.f
nbrest.f
nbsort.f
nbtide.f
newhut.f
newreg.f
newsys.f
newtev.f
newton.f
nstab.f
ntint.f
offset.f
orbit.f
output.f
params.h
peri.f
permit.f
pfac.f
plpot1.f
pnpert2.f
poarams.h
poti.f
premsf.f
proto_star.f
qpmod3.f
qpmod4.f
qtides.f
quad.f
ran2.f
rchain.f
reflct.f
regint.f
remove.f
rename.f
reset.f
reset2.f
resolv.f
rkint.f
rl.f
roche.f
rpmax.f
rpmax2.f
rpmin.f
rsort.f
scale.f
search.f
setup.f
setup2.f
shrink.f
sort1.f
spinup.f
spiral.f
stability.f
stabl3.f
stabl4.f
stablz.f
star.f
start.f
start3.f
start4.f
status.f
stepi.f
stepk.f
steps.f
stumpf.f
subint.f
subsys.f
swap.f
sweep.f
synch.f
tail0.f
tcirc.f
test.f
tides.f
tides2.f
tides3.f
touch.f
tperi.f
tpert.f
trans3.f
trans4.f
trdot.f
trdot2.f
trflow.f
triple.f
tstab.f
tstep.f
units.f
unpert.f
update.f
verify.f
xtrnl0.f
xtrnld.f
xtrnlf.f
xtrnlp.f
xtrnlt.f
xtrnlv.f
xvpred.f
zare.f
zcnsts.f
zdata.h
zero.f
zfuncs.f
File Members
•
All
Files
Functions
Variables
zero.f
Go to the documentation of this file.
1
SUBROUTINE
zero
2
*
3
*
4
* Initialization of global scalars.
5
* ---------------------------------
6
*
7
include
'common6.h'
8
*
9
*
10
* Initialize parameters & counters and set useful constants.
11
time = 0.0d0
12
toff = 0.0d0
13
ttot = 0.0d0
14
tadj = 0.0d0
15
tblist = 0.0d0
16
tplot = 0.0d0
17
dtb = 0.0d0
18
tnext = 0.0d0
19
tmdot = 0.0d0
20
zmdot = 0.0d0
21
tlasts = 0.0d0
22
tlastt = 0.0d0
23
rmax = 0.0
24
epoch0 = 0.0
25
dmin1 = 100.0
26
dmin2 = 100.0
27
dmin3 = 100.0
28
dmin4 = 100.0
29
dminc = 100.0
30
cputot = 0.0
31
wtot = 0.0d0
32
error = 0.0d0
33
errtot = 0.0d0
34
detot = 0.0d0
35
etcorr = 0.0
36
ebin0 = 0.0d0
37
esub = 0.0d0
38
emerge = 0.0d0
39
ediss = 0.0d0
40
ecoll = 0.0d0
41
ecdot = 0.0d0
42
emdot = 0.0d0
43
ekick = 0.0
44
esync = 0.0d0
45
etide = 0.0d0
46
esesc = 0.0d0
47
ebesc = 0.0d0
48
emesc = 0.0d0
49
egrav = 0.0
50
sbcoll = 0.0d0
51
bbcoll = 0.0d0
52
chcoll = 0.0d0
53
npairs = 0
54
nbprev = 0
55
nntb = 0
56
nmerge = 0
57
newhi = 0
58
nsub = 0
59
nch = 0
60
nbin0 = 0
61
nhi0 = 0
62
ifirst = 1
63
iphase = 0
64
icomp = 0
65
jcomp = 0
66
kspair = 0
67
nprint = 0
68
model = 0
69
ndump = 0
70
nsteps = 0
71
ntimer = 0
72
listr(1) = 0
73
listd(1) = 0
74
listv(1) = 0
75
ntail = 0
76
nttot = 0
77
nrsave = 0
78
nnbopt = 0
! NBODY6++ compatibility.
79
*
80
DO
10 j = 1,kmax
81
kvec(2*j-1) = j
82
kvec(2*j) = j
83
10
CONTINUE
84
*
85
DO
20 j = 1,12
86
e(j) = 0.0d0
87
20
CONTINUE
88
*
89
DO
30 j = 1,9
90
tlastb(j) = 0.0d0
91
30
CONTINUE
92
*
93
DO
40 j = 1,nmax
94
radius(j) = 0.0d0
95
body0(j) = 0.0
96
epoch(j) = 0.0
97
tev(j) = 0.0
98
tev0(j) = 0.0
99
kstar(j) = 0
100
40
CONTINUE
101
*
102
DO
50 k = 1,3
103
rdens(k) = 0.0d0
104
tidal(k) = 0.0
105
50
CONTINUE
106
tidal(4) = 0.0
107
*
108
* Set fractional constants & two PI.
109
one3 = 1.0d0/3.0d0
110
one6 = 1.0d0/6.0d0
111
one9 = 1.0d0/9.0d0
112
one12 = 1.0d0/12.0d0
113
twopi = 8.0d0*atan(1.0d0)
114
tiny = 1.0d-14
115
*
116
RETURN
117
*
118
END
Nbody6
Ncode
zero.f
Generated on Sat Nov 30 2013 19:04:38 for Nbody6 by
1.8.2