e4pxle3.F File Reference

#include "implicit_f.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	e4pxle3 (vol, veul, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, px1, px2, px3, px4, py1, py2, py3, py4, pz1, pz2, pz3, pz4, det, deltax, nel, nft)

Function/Subroutine Documentation

e4pxle3()

subroutine e4pxle3	(		vol,
			veul,
			x1,
			x2,
			x3,
			x4,
			y1,
			y2,
			y3,
			y4,
			z1,
			z2,
			z3,
			z4,
			px1,
			px2,
			px3,
			px4,
			py1,
			py2,
			py3,
			py4,
			pz1,
			pz2,
			pz3,
			pz4,
			det,
			deltax,
		integer, intent(in)	nel,
		integer, intent(in)	nft )

Definition at line 28 of file e4pxle3.F.

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-----------------------------------------------
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
      INTEGER, INTENT(IN) :: NFT
      my_real
     .   vol(*), veul(lveul,*),
     .   x1(*), x2(*), x3(*), x4(*), 
     .   y1(*), y2(*), y3(*), y4(*),  
     .   z1(*), z2(*), z3(*), z4(*), 
     .   px1(*), px2(*), px3(*), px4(*),  
     .   py1(*), py2(*), py3(*), py4(*),  
     .   pz1(*), pz2(*), pz3(*), pz4(*),  
     .   det(*),deltax(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, II
C     REAL
C-----------------------------------------------
C
      DO  i=1,nel
        ii=i+nft
        px1(i)=veul(1,ii)
        px2(i)=veul(2,ii)
        px3(i)=veul(3,ii)
        px4(i)=veul(4,ii)
C
        py1(i)=veul(5,ii)
        py2(i)=veul(6,ii)
        py3(i)=veul(7,ii)
        py4(i)=veul(8,ii)
C
        pz1(i)=veul(9,ii)
        pz2(i)=veul(10,ii)
        pz3(i)=veul(11,ii)
        pz4(i)=veul(12,ii)
      ENDDO
C
      DO i=1,nel
       ii=i+nft
       deltax(i)=veul(13,ii)
       det(i)=vol(i)
      ENDDO
C
      RETURN
C