srepisot3.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	srepisot3 (x1, x2, x3, x4, x5, x6, x7, x8, y1, y2, y3, y4, y5, y6, y7, y8, z1, z2, z3, z4, z5, z6, z7, z8, rx, ry, rz, sx, sy, sz, tx, ty, tz, nel)

Function/Subroutine Documentation

srepisot3()

subroutine srepisot3	(	dimension(mvsiz)	x1,
		dimension(mvsiz)	x2,
		dimension(mvsiz)	x3,
		dimension(mvsiz)	x4,
		dimension(mvsiz)	x5,
		dimension(mvsiz)	x6,
		dimension(mvsiz)	x7,
		dimension(mvsiz)	x8,
		dimension(mvsiz)	y1,
		dimension(mvsiz)	y2,
		dimension(mvsiz)	y3,
		dimension(mvsiz)	y4,
		dimension(mvsiz)	y5,
		dimension(mvsiz)	y6,
		dimension(mvsiz)	y7,
		dimension(mvsiz)	y8,
		dimension(mvsiz)	z1,
		dimension(mvsiz)	z2,
		dimension(mvsiz)	z3,
		dimension(mvsiz)	z4,
		dimension(mvsiz)	z5,
		dimension(mvsiz)	z6,
		dimension(mvsiz)	z7,
		dimension(mvsiz)	z8,
		dimension(mvsiz)	rx,
		dimension(mvsiz)	ry,
		dimension(mvsiz)	rz,
		dimension(mvsiz)	sx,
		dimension(mvsiz)	sy,
		dimension(mvsiz)	sz,
		dimension(mvsiz)	tx,
		dimension(mvsiz)	ty,
		dimension(mvsiz)	tz,
		integer, intent(in)	nel )

Definition at line 32 of file srepisot3.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, INTENT(IN),  DIMENSION(MVSIZ) ::
     .   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, INTENT(OUT), DIMENSION(MVSIZ) ::
     .   rx, ry, rz, sx, sy, sz, tx, ty, tz
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
     .   x17 , x28 , x35 , x46, y17 , y28 , y35 , y46, 
     .   z17 , z28 , z35 , z46, a17 , a28 , b17 , b28 , c17 , c28 
C=======================================================================
      DO i=1,nel
        x17 = x7(i) - x1(i)
        x28 = x8(i) - x2(i)
        x35 = x5(i) - x3(i)
        x46 = x6(i) - x4(i)
        y17 = y7(i) - y1(i)
        y28 = y8(i) - y2(i)
        y35 = y5(i) - y3(i)
        y46 = y6(i) - y4(i)
        z17 = z7(i) - z1(i)
        z28 = z8(i) - z2(i)
        z35 = z5(i) - z3(i)
        z46 = z6(i) - z4(i)
C
        a17 = x17 + x46
        a28 = x28 + x35
        b17 = y17 + y46
        b28 = y28 + y35
        c17 = z17 + z46
        c28 = z28 + z35
C
        rx(i) = x17 + x28 - x35 - x46
        ry(i) = y17 + y28 - y35 - y46
        rz(i) = z17 + z28 - z35 - z46
        sx(i) = a17 + a28
        sy(i) = b17 + b28
        sz(i) = c17 + c28
        tx(i) = a17 - a28
        ty(i) = b17 - b28
        tz(i) = c17 - c28
      ENDDO
C-------------
      RETURN