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
ycopy.f
Go to the documentation of this file.
1
SUBROUTINE
ycopy
(Y)
2
*
3
*
4
* Copy Y-array from COMMON.
5
* -------------------------
6
*
7
include
'commonc.h'
8
include
'common2.h'
9
REAL*8
y(nmx8)
10
*
11
*
12
nc=n-1
13
l=0
14
DO
i=1,4*nc
15
l=l+1
16
y(l)=q(i)
17
END DO
18
DO
i=1,3
19
l=l+1
20
y(l)=cmx(i)
21
END DO
22
l=l+1
23
y(l)=
energy
24
DO
i=1,4*nc
25
l=l+1
26
y(l)=p(i)
27
END DO
28
DO
i=1,3
29
l=l+1
30
y(l)=cmv(i)
31
END DO
32
l=l+1
33
y(l)=chtime
34
*
35
RETURN
36
END
Nbody6
Chain
ycopy.f
Generated on Sat Nov 30 2013 19:04:36 for Nbody6 by
1.8.2