s6czero3.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s6czero3 (fx1, fy1, fz1, fx2, fy2, fz2, fx3, fy3, fz3, fx4, fy4, fz4, fx5, fy5, fz5, fx6, fy6, fz6, sigm, eintm, rhom, qm, eplasm, epsdm, g_pla, g_epsd, nel, nlay)

Function/Subroutine Documentation

s6czero3()

subroutine s6czero3	(		fx1,
			fy1,
			fz1,
			fx2,
			fy2,
			fz2,
			fx3,
			fy3,
			fz3,
			fx4,
			fy4,
			fz4,
			fx5,
			fy5,
			fz5,
			fx6,
			fy6,
			fz6,
			sigm,
			eintm,
			rhom,
			qm,
			eplasm,
			epsdm,
		integer	g_pla,
		integer	g_epsd,
		integer	nel,
		integer	nlay )

Definition at line 29 of file s6czero3.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,NLAY
C     REAL
      my_real
     .   fx1(*), fx2(*), fx3(*), fx4(*), fx5(*), fx6(*), 
     .   fy1(*), fy2(*), fy3(*), fy4(*), fy5(*), fy6(*),
     .   fz1(*), fz2(*), fz3(*), fz4(*), fz5(*), fz6(*), 
     .   eintm(*),rhom(*),qm(*),epsdm(*),eplasm(*),sigm(nel,6)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER  I
C=======================================================================
      IF (nlay > 1) THEN 
        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_epsd > 0) THEN
          DO i=1,nel
            epsdm(i) = zero
          ENDDO
        ENDIF
        IF (g_pla > 0) THEN
          DO i=1,nel
            eplasm(i)  = zero
          ENDDO
        ENDIF
      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      
      ENDDO
C-----------
      RETURN