s8zzero3.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s8zzero3 (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, defpm, epsdm, stin, pp, g_pla, g_epsd, iexpan, eintthm, nel, conden)

Function/Subroutine Documentation

s8zzero3()

subroutine s8zzero3	(		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,
			defpm,
			epsdm,
			stin,
			pp,
		integer	g_pla,
		integer	g_epsd,
		integer	iexpan,
			eintthm,
		integer	nel,
			conden )

Definition at line 31 of file s8zzero3.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, IEXPAN,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(*),defpm(*),sigm(nel,6),stin(*),pp(*),
     .  eintthm(*),conden(*)
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
         stin(i)   = zero
         pp(i)     = zero
         conden(i)   = zero 
      ENDDO
C
      IF (iexpan > 0) THEN
        DO i=1,nel
          eintthm(i)  = zero
        ENDDO
      ENDIF
C
      IF (g_pla > 0) THEN
        DO i=1,nel
          defpm(i)  = zero
        ENDDO
      ENDIF
C
      IF (g_epsd > 0) THEN
        DO i=1,nel
          epsdm(i) = zero
        ENDDO
      ENDIF
C
      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