Nbody6
 All Files Functions Variables
matrix.f
Go to the documentation of this file.
1  SUBROUTINE matrix(U,A)
2 *
3 *
4 * Levi-Civita matrix.
5 * -------------------
6 *
7  REAL*8 u(4),a(3,4)
8 *
9 *
10 * Set current transformation matrix.
11  a(1,1) = u(1)
12  a(1,2) = -u(2)
13  a(1,3) = -u(3)
14  a(1,4) = u(4)
15  a(2,1) = u(2)
16  a(2,2) = u(1)
17  a(2,3) = -u(4)
18  a(2,4) = -u(3)
19  a(3,1) = u(3)
20  a(3,2) = u(4)
21  a(3,3) = u(1)
22  a(3,4) = u(2)
23 *
24  RETURN
25 *
26  END