Nbody6
 All Files Functions Variables
ysave.f
Go to the documentation of this file.
1  SUBROUTINE ysave(Y)
2 *
3 *
4 * Save Y-array in 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  q(i)=y(l)
17  END DO
18  DO i=1,3
19  l=l+1
20  cmx(i)=y(l)
21  END DO
22  l=l+1
23  energy=y(l)
24  DO i=1,4*nc
25  l=l+1
26  p(i)=y(l)
27  END DO
28  DO i=1,3
29  l=l+1
30  cmv(i)=y(l)
31  END DO
32  l=l+1
33  chtime=y(l)
34 *
35  RETURN
36  END