Nbody6
 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