q4zero2.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	q4zero2 (fy1, fz1, fy2, fz2, fy3, fz3, fy4, fz4, fay, faz, fay1, fay2, fay3, fay4, sigm, eintm, rhom, qm, eplasm, epsdm, stin, pp, g_pla, g_epsd, nel)

Function/Subroutine Documentation

q4zero2()

subroutine q4zero2	(		fy1,
			fz1,
			fy2,
			fz2,
			fy3,
			fz3,
			fy4,
			fz4,
			fay,
			faz,
			fay1,
			fay2,
			fay3,
			fay4,
			sigm,
			eintm,
			rhom,
			qm,
			eplasm,
			epsdm,
			stin,
			pp,
		integer	g_pla,
		integer	g_epsd,
		integer	nel )

Definition at line 28 of file q4zero2.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
     .  fy1(*), fy2(*), fy3(*), fy4(*), fz1(*), fz2(*), fz3(*), fz4(*),
     .  fay(*), faz(*), fay1(*), fay2(*), fay3(*), fay4(*),pp(*),
     .  eintm(*),rhom(*),qm(*),epsdm(*),eplasm(*),sigm(nel,6),stin(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
C   S o u r c e  L i n e s
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
c        EPLASM(I) = ZERO
        eintm(i)  = zero
        qm(i)     = zero
        stin(i)   = zero
        pp(i)     = zero
      ENDDO
      IF (g_pla > 0) THEN
        DO i=1,nel
          eplasm(i) = zero
        ENDDO
      ENDIF
      IF (g_epsd > 0) THEN
        DO i=1,nel
          epsdm(i) = zero
        ENDDO
      ENDIF
      DO i=1,nel
        fy1(i)=zero
        fz1(i)=zero
        fy2(i)=zero
        fz2(i)=zero
        fy3(i)=zero
        fz3(i)=zero
        fy4(i)=zero
        fz4(i)=zero
        fay(i)=zero
        faz(i)=zero
        fay1(i)=zero
        fay2(i)=zero
        fay3(i)=zero
        fay4(i)=zero
      ENDDO
C
      RETURN