sczero3.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	sczero3 (fx1, fy1, fz1, fx2, fy2, fz2, fx3, fy3, fz3, fx4, fy4, fz4, fx5, fy5, fz5, fx6, fy6, fz6, fx7, fy7, fz7, fx8, fy8, fz8, sigm, eintm, rhom, qm, epspla, epsdm, g_pla, g_epsd, nel)

Function/Subroutine Documentation

sczero3()

subroutine sczero3	(		fx1,
			fy1,
			fz1,
			fx2,
			fy2,
			fz2,
			fx3,
			fy3,
			fz3,
			fx4,
			fy4,
			fz4,
			fx5,
			fy5,
			fz5,
			fx6,
			fy6,
			fz6,
			fx7,
			fy7,
			fz7,
			fx8,
			fy8,
			fz8,
			sigm,
			eintm,
			rhom,
			qm,
			epspla,
			epsdm,
		integer	g_pla,
		integer	g_epsd,
		integer	nel )

Definition at line 28 of file sczero3.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-----------------------------------------------
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER  G_PLA,G_EPSD,NEL
C     REAL
      my_real
     .   fx1(*), fx2(*), fx3(*), fx4(*), fx5(*), fx6(*), fx7(*), fx8(*),
     .   fy1(*), fy2(*), fy3(*), fy4(*), fy5(*), fy6(*), fy7(*), fy8(*),
     .   fz1(*), fz2(*), fz3(*), fz4(*), fz5(*), fz6(*), fz7(*), fz8(*),
     .   eintm(*),rhom(*),qm(*),epsdm(*),sigm(nel,6),epspla(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER  I
C=======================================================================
      DO i=1,nel
         sigm(i,1) = zero
         sigm(i,2) = zero
         sigm(i,3) = zero
         sigm(i,4) = zero
         sigm(i,5) = zero
         sigm(i,6) = zero
         rhom(i)   = zero
         eintm(i)  = zero
         qm(i)     = zero   
      ENDDO
      IF (g_pla > 0) THEN
       DO i=1,nel
         epspla(i) = zero
       ENDDO
      ENDIF
      IF (g_epsd > 0) THEN
       DO i=1,nel
         epsdm(i) = zero
       ENDDO
      ENDIF
      DO i=1,nel
       fx1(i)=zero
       fy1(i)=zero
       fz1(i)=zero
       fx2(i)=zero
       fy2(i)=zero
       fz2(i)=zero
       fx3(i)=zero
       fy3(i)=zero
       fz3(i)=zero
       fx4(i)=zero
       fy4(i)=zero
       fz4(i)=zero
       fx5(i)=zero
       fy5(i)=zero
       fz5(i)=zero
       fx6(i)=zero
       fy6(i)=zero
       fz6(i)=zero
       fx7(i)=zero
       fy7(i)=zero
       fz7(i)=zero
       fx8(i)=zero
       fy8(i)=zero
       fz8(i)=zero       
      ENDDO
C-----------
      RETURN