matrix.f

Go to the documentation of this file.

      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