srrotadp.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	srrotadp (r11, r12, r13, r21, r22, r23, r31, r32, r33, x1, x2, x3, x4, x5, x6, x7, x8, y1, y2, y3, y4, y5, y6, y7, y8, z1, z2, z3, z4, z5, z6, z7, z8, nel)

Function/Subroutine Documentation

srrotadp()

subroutine srrotadp	(		r11,
			r12,
			r13,
			r21,
			r22,
			r23,
			r31,
			r32,
			r33,
		double precision, dimension(*)	x1,
		double precision, dimension(*)	x2,
		double precision, dimension(*)	x3,
		double precision, dimension(*)	x4,
		double precision, dimension(*)	x5,
		double precision, dimension(*)	x6,
		double precision, dimension(*)	x7,
		double precision, dimension(*)	x8,
		double precision, dimension(*)	y1,
		double precision, dimension(*)	y2,
		double precision, dimension(*)	y3,
		double precision, dimension(*)	y4,
		double precision, dimension(*)	y5,
		double precision, dimension(*)	y6,
		double precision, dimension(*)	y7,
		double precision, dimension(*)	y8,
		double precision, dimension(*)	z1,
		double precision, dimension(*)	z2,
		double precision, dimension(*)	z3,
		double precision, dimension(*)	z4,
		double precision, dimension(*)	z5,
		double precision, dimension(*)	z6,
		double precision, dimension(*)	z7,
		double precision, dimension(*)	z8,
		integer, intent(in)	nel )

Definition at line 31 of file srrotadp.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
      DOUBLE PRECISION 
     .   X1(*), X2(*), X3(*), X4(*), X5(*), X6(*), X7(*), X8(*),
     .   Y1(*), Y2(*), Y3(*), Y4(*), Y5(*), Y6(*), Y7(*), Y8(*),  
     .   Z1(*), Z2(*), Z3(*), Z4(*), Z5(*), Z6(*), Z7(*), Z8(*)
      my_real
     .   r11(*), r12(*), r13(*),
     .   r21(*), r22(*), r23(*),
     .   r31(*), r32(*), r33(*)
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
       x=r11(i)*x2(i)+r21(i)*y2(i)+r31(i)*z2(i)
       y=r12(i)*x2(i)+r22(i)*y2(i)+r32(i)*z2(i)
       z=r13(i)*x2(i)+r23(i)*y2(i)+r33(i)*z2(i)
       x2(i)=x
       y2(i)=y
       z2(i)=z
       x=r11(i)*x3(i)+r21(i)*y3(i)+r31(i)*z3(i)
       y=r12(i)*x3(i)+r22(i)*y3(i)+r32(i)*z3(i)
       z=r13(i)*x3(i)+r23(i)*y3(i)+r33(i)*z3(i)
       x3(i)=x
       y3(i)=y
       z3(i)=z
       x=r11(i)*x4(i)+r21(i)*y4(i)+r31(i)*z4(i)
       y=r12(i)*x4(i)+r22(i)*y4(i)+r32(i)*z4(i)
       z=r13(i)*x4(i)+r23(i)*y4(i)+r33(i)*z4(i)
       x4(i)=x
       y4(i)=y
       z4(i)=z
       x=r11(i)*x5(i)+r21(i)*y5(i)+r31(i)*z5(i)
       y=r12(i)*x5(i)+r22(i)*y5(i)+r32(i)*z5(i)
       z=r13(i)*x5(i)+r23(i)*y5(i)+r33(i)*z5(i)
       x5(i)=x
       y5(i)=y
       z5(i)=z
       x=r11(i)*x6(i)+r21(i)*y6(i)+r31(i)*z6(i)
       y=r12(i)*x6(i)+r22(i)*y6(i)+r32(i)*z6(i)
       z=r13(i)*x6(i)+r23(i)*y6(i)+r33(i)*z6(i)
       x6(i)=x
       y6(i)=y
       z6(i)=z
       x=r11(i)*x7(i)+r21(i)*y7(i)+r31(i)*z7(i)
       y=r12(i)*x7(i)+r22(i)*y7(i)+r32(i)*z7(i)
       z=r13(i)*x7(i)+r23(i)*y7(i)+r33(i)*z7(i)
       x7(i)=x
       y7(i)=y
       z7(i)=z
       x=r11(i)*x8(i)+r21(i)*y8(i)+r31(i)*z8(i)
       y=r12(i)*x8(i)+r22(i)*y8(i)+r32(i)*z8(i)
       z=r13(i)*x8(i)+r23(i)*y8(i)+r33(i)*z8(i)
       x8(i)=x
       y8(i)=y
       z8(i)=z
   10 CONTINUE
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      RETURN