vrrota3.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	vrrota3 (r11, r12, r13, r21, r22, r23, r31, r32, r33, x1, y1, z1, nel)

Function/Subroutine Documentation

vrrota3()

subroutine vrrota3	(		r11,
			r12,
			r13,
			r21,
			r22,
			r23,
			r31,
			r32,
			r33,
			x1,
			y1,
			z1,
		integer, intent(in)	nel )

Definition at line 30 of file vrrota3.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-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
      my_real
     .   r11(*), r12(*), r13(*),
     .   r21(*), r22(*), r23(*),
     .   r31(*), r32(*), r33(*),
     .   x1(*),  y1(*), z1(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C     REAL
      my_real
     .   x,y,z
C-----------------------------------------------
C     X=RX' <=> X'=t(R)X chgt de base.
      DO 10 i=1,nel
       x=r11(i)*x1(i)+r21(i)*y1(i)+r31(i)*z1(i)
       y=r12(i)*x1(i)+r22(i)*y1(i)+r32(i)*z1(i)
       z=r13(i)*x1(i)+r23(i)*y1(i)+r33(i)*z1(i)
       x1(i)=x
       y1(i)=y
       z1(i)=z
   10 CONTINUE
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      RETURN