s8edefoc3.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s8edefoc3 (pxc1, pxc2, pxc3, pxc4, pyc1, pyc2, pyc3, pyc4, pzc1, pzc2, pzc3, pzc4, vx1, vx2, vx3, vx4, vx5, vx6, vx7, vx8, vy1, vy2, vy3, vy4, vy5, vy6, vy7, vy8, vz1, vz2, vz3, vz4, vz5, vz6, vz7, vz8, dvca, nel)

Function/Subroutine Documentation

s8edefoc3()

subroutine s8edefoc3	(		pxc1,
			pxc2,
			pxc3,
			pxc4,
			pyc1,
			pyc2,
			pyc3,
			pyc4,
			pzc1,
			pzc2,
			pzc3,
			pzc4,
			vx1,
			vx2,
			vx3,
			vx4,
			vx5,
			vx6,
			vx7,
			vx8,
			vy1,
			vy2,
			vy3,
			vy4,
			vy5,
			vy6,
			vy7,
			vy8,
			vz1,
			vz2,
			vz3,
			vz4,
			vz5,
			vz6,
			vz7,
			vz8,
			dvca,
		integer, intent(in)	nel )

Definition at line 29 of file s8edefoc3.F.

C                                                                     12
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
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
     .   vx1(*), vx2(*), vx3(*), vx4(*), vx5(*), vx6(*), vx7(*), vx8(*),
     .   vy1(*), vy2(*), vy3(*), vy4(*), vy5(*), vy6(*), vy7(*), vy8(*),
     .   vz1(*), vz2(*), vz3(*), vz4(*), vz5(*), vz6(*), vz7(*), vz8(*),
     .   pxc1(*), pxc2(*), pxc3(*), pxc4(*),
     .   pyc1(*), pyc2(*), pyc3(*), pyc4(*),
     .   pzc1(*), pzc2(*), pzc3(*), pzc4(*), dvca(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
       DO i=1,nel
        dvca(i)=pxc1(i)*(vx1(i)-vx7(i))+pxc2(i)*(vx2(i)-vx8(i))
     .         +pxc3(i)*(vx3(i)-vx5(i))+pxc4(i)*(vx4(i)-vx6(i))
     .         +pyc1(i)*(vy1(i)-vy7(i))+pyc2(i)*(vy2(i)-vy8(i))
     .         +pyc3(i)*(vy3(i)-vy5(i))+pyc4(i)*(vy4(i)-vy6(i))
     .         +pzc1(i)*(vz1(i)-vz7(i))+pzc2(i)*(vz2(i)-vz8(i))
     .         +pzc3(i)*(vz3(i)-vz5(i))+pzc4(i)*(vz4(i)-vz6(i))
       ENDDO
C
      RETURN