spdefo3.F File Reference

#include "implicit_f.inc"
#include "com08_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	spdefo3 (dxx, dxy, dxz, dyx, dyy, dyz, dzx, dzy, dzz, d4, d5, d6, wxx, wyy, wzz, nel)

Function/Subroutine Documentation

spdefo3()

subroutine spdefo3	(		dxx,
			dxy,
			dxz,
			dyx,
			dyy,
			dyz,
			dzx,
			dzy,
			dzz,
			d4,
			d5,
			d6,
			wxx,
			wyy,
			wzz,
		integer, intent(in)	nel )

Definition at line 28 of file spdefo3.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
C     REAL
      my_real
     .   dxx(*), dxy(*), dxz(*),
     .   dyx(*), dyy(*), dyz(*),
     .   dzx(*), dzy(*), dzz(*), 
     .   d4(*), d5(*), d6(*),
     .   wxx(*), wyy(*), wzz(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com08_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
     .       dt1d2
C-----------------------------------------------
C
      dt1d2=.5*dt1
 
      DO i=1,nel
        d4(i)   = dxy(i)+dyx(i)
        d5(i)   = dyz(i)+dzy(i)
        d6(i)   = dxz(i)+dzx(i)
        wzz(i)=dt1d2*(dyx(i)-dxy(i))
        wyy(i)=dt1d2*(dxz(i)-dzx(i))
        wxx(i)=dt1d2*(dzy(i)-dyz(i))
      ENDDO
C
      RETURN