s4repiso3.F File Reference

#include "implicit_f.inc"
#include "vect01_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s4repiso3 (x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, rx, ry, rz, sx, sy, sz, tx, ty, tz)
subroutine	s4repisot3 (x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, rx, ry, rz, sx, sy, sz, tx, ty, tz)

Function/Subroutine Documentation

s4repiso3()

subroutine s4repiso3	(	double precision, dimension(*)	x1,
		double precision, dimension(*)	x2,
		double precision, dimension(*)	x3,
		double precision, dimension(*)	x4,
		double precision, dimension(*)	y1,
		double precision, dimension(*)	y2,
		double precision, dimension(*)	y3,
		double precision, dimension(*)	y4,
		double precision, dimension(*)	z1,
		double precision, dimension(*)	z2,
		double precision, dimension(*)	z3,
		double precision, dimension(*)	z4,
			rx,
			ry,
			rz,
			sx,
			sy,
			sz,
			tx,
			ty,
			tz )

Definition at line 28 of file s4repiso3.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
      double precision
     .   x1(*), x2(*), x3(*), x4(*),y1(*), y2(*), y3(*), y4(*),
     .   z1(*), z2(*), z3(*), z4(*)
       my_real    
     .   rx(*) ,ry(*) ,rz(*) ,sx(*) ,sy(*) ,sz(*) ,tx(*) ,ty(*) ,tz(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "vect01_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C     REAL
      my_real
     .   x41, y41, z41, x42, y42, z42, x43, y43, z43
C=======================================================================
C     Repere isoparametrique element tetra 4 nodes
C
      DO i = lft,llt
        x43 = x4(i) - x3(i)
        y43 = y4(i) - y3(i)
        z43 = z4(i) - z3(i)
        x41 = x4(i) - x1(i)
        y41 = y4(i) - y1(i)
        z41 = z4(i) - z1(i)
        x42 = x4(i) - x2(i)
        y42 = y4(i) - y2(i)
        z42 = z4(i) - z2(i)
        rx(i) = -x41
        ry(i) = -y41
        rz(i) = -z41
        sx(i) = -x42
        sy(i) = -y42
        sz(i) = -z42
        tx(i) = -x43
        ty(i) = -y43
        tz(i) = -z43
      ENDDO
C-------------
      RETURN

s4repisot3()

subroutine s4repisot3	(		x1,
			x2,
			x3,
			x4,
			y1,
			y2,
			y3,
			y4,
			z1,
			z2,
			z3,
			z4,
			rx,
			ry,
			rz,
			sx,
			sy,
			sz,
			tx,
			ty,
			tz )

Definition at line 90 of file s4repiso3.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       
     .   x1(*), x2(*), x3(*), x4(*),y1(*), y2(*), y3(*), y4(*),
     .   z1(*), z2(*), z3(*), z4(*),  
     .   rx(*) ,ry(*) ,rz(*) ,sx(*) ,sy(*) ,sz(*) ,tx(*) ,ty(*) ,tz(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "vect01_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C     REAL
      my_real
     .   x41, y41, z41, x42, y42, z42, x43, y43, z43
C=======================================================================
C     Repere isoparametrique element tetra 4 nodes
C
      DO i = lft,llt
        x43 = x4(i) - x3(i)
        y43 = y4(i) - y3(i)
        z43 = z4(i) - z3(i)
        x41 = x4(i) - x1(i)
        y41 = y4(i) - y1(i)
        z41 = z4(i) - z1(i)
        x42 = x4(i) - x2(i)
        y42 = y4(i) - y2(i)
        z42 = z4(i) - z2(i)
        rx(i) = -x41
        ry(i) = -y41
        rz(i) = -z41
        sx(i) = -x42
        sy(i) = -y42
        sz(i) = -z42
        tx(i) = -x43
        ty(i) = -y43
        tz(i) = -z43
      ENDDO
C-------------
      RETURN