https://github.com/florentrenaud/nbody6tt
Tip revision: 8a4716382ead3ece116c48a4ae5c65f8c9534437 authored by Florent on 29 January 2015, 12:19:28 UTC
Nbody6 - 29 January 2015 (added GPU2/Build/.gitkeep)
Nbody6 - 29 January 2015 (added GPU2/Build/.gitkeep)
Tip revision: 8a47163
matrix.f
SUBROUTINE MATRIX(U,A)
*
*
* Levi-Civita matrix.
* -------------------
*
REAL*8 U(4),A(3,4)
*
*
* Set current transformation matrix.
A(1,1) = U(1)
A(1,2) = -U(2)
A(1,3) = -U(3)
A(1,4) = U(4)
A(2,1) = U(2)
A(2,2) = U(1)
A(2,3) = -U(4)
A(2,4) = -U(3)
A(3,1) = U(3)
A(3,2) = U(4)
A(3,3) = U(1)
A(3,4) = U(2)
*
RETURN
*
END