q4cumu2.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	q4cumu2 (e, stifn, nc1, nc2, nc3, nc4, fy1, fz1, fy2, fz2, fy3, fz3, fy4, fz4, stim, nel)

Function/Subroutine Documentation

q4cumu2()

subroutine q4cumu2	(		e,
			stifn,
		integer, dimension(*)	nc1,
		integer, dimension(*)	nc2,
		integer, dimension(*)	nc3,
		integer, dimension(*)	nc4,
			fy1,
			fz1,
			fy2,
			fz2,
			fy3,
			fz3,
			fy4,
			fz4,
			stim,
		integer, intent(in)	nel )

Definition at line 28 of file q4cumu2.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, INTENT(IN) :: NEL
      INTEGER NC1(*),NC2(*),NC3(*),NC4(*)
C     REAL
      my_real
     .    e(3,*),stifn(*),stim(*),
     .    fy1(*),fz1(*),fy2(*),fz2(*),
     .    fy3(*),fz3(*),fy4(*),fz4(*)
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-----------------------------------------------
C
      DO i=1,nel
        stim(i)=fourth*stim(i)
      END DO
C
      DO i=1,nel
C
        e(2,nc1(i)) = e(2,nc1(i)) + fy1(i)
        e(3,nc1(i)) = e(3,nc1(i)) + fz1(i)
        stifn(nc1(i)) = stifn(nc1(i)) + stim(i)
C
        e(2,nc2(i)) = e(2,nc2(i)) + fy2(i)
        e(3,nc2(i)) = e(3,nc2(i)) + fz2(i)
        stifn(nc2(i)) = stifn(nc2(i)) + stim(i)
C
        e(2,nc3(i)) = e(2,nc3(i)) + fy3(i)
        e(3,nc3(i)) = e(3,nc3(i)) + fz3(i)
        stifn(nc3(i)) = stifn(nc3(i)) + stim(i)
C
        e(2,nc4(i)) = e(2,nc4(i)) + fy4(i)
        e(3,nc4(i)) = e(3,nc4(i)) + fz4(i)
        stifn(nc4(i)) = stifn(nc4(i)) + stim(i)
C
      ENDDO
C
      RETURN