euler_vrot.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	euler_vrot (x0, x, rot)

Function/Subroutine Documentation

euler_vrot()

subroutine euler_vrot	(		x0,
			x,
			rot )

Definition at line 34 of file euler_vrot.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
C     REAL
      my_real
     .   x0(3),x(3), rot(9)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
C     REAL
      my_real
     .   rx, ry, rz
C=======================================================================
      rx = x(1) - x0(1)
      ry = x(2) - x0(2)
      rz = x(3) - x0(3)
C                                              
      x(1) = x0(1) + rot(1)*rx + rot(4)*ry + rot(7)*rz                        
      x(2) = x0(2) + rot(2)*rx + rot(5)*ry + rot(8)*rz                         
      x(3) = x0(3) + rot(3)*rx + rot(6)*ry + rot(9)*rz                         
C---
      RETURN