s10rrota10.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s10rrota10 (r11, r12, r13, r21, r22, r23, r31, r32, r33, xx, yy, zz, nel)

Function/Subroutine Documentation

s10rrota10()

subroutine s10rrota10	(		r11,
			r12,
			r13,
			r21,
			r22,
			r23,
			r31,
			r32,
			r33,
			xx,
			yy,
			zz,
		integer, intent(in)	nel )

Definition at line 26 of file s10rrota10.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
C     REAL
      my_real
     .   r11(*), r12(*), r13(*),
     .   r21(*), r22(*), r23(*),
     .   r31(*), r32(*), r33(*),
     .   xx(mvsiz,10), yy(mvsiz,10), zz(mvsiz,10)
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,N
C     REAL
      my_real
     .   x,y,z
C-----------------------------------------------
C   X=RX' <=> X'=t(R)X chgt de base.
C-  to do X'=RtX, just input Rt instead of R
      DO i=1,nel
       DO n =1,10
       x=r11(i)*xx(i,n)+r21(i)*yy(i,n)+r31(i)*zz(i,n)
       y=r12(i)*xx(i,n)+r22(i)*yy(i,n)+r32(i)*zz(i,n)
       z=r13(i)*xx(i,n)+r23(i)*yy(i,n)+r33(i)*zz(i,n)
       xx(i,n)=x
       yy(i,n)=y
       zz(i,n)=z
       END DO !I=1,NEL
      END DO !I=1,NEL
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      RETURN