qcumu2.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	qcumu2 (e, f11, f12, f21, f22, ax1, ax2, t11, t12, t13, t14, t21, t22, t23, t24, nc1, nc2, nc3, nc4, sti, stifn, nel)

Function/Subroutine Documentation

qcumu2()

subroutine qcumu2	(		e,
			f11,
			f12,
			f21,
			f22,
			ax1,
			ax2,
			t11,
			t12,
			t13,
			t14,
			t21,
			t22,
			t23,
			t24,
		integer, dimension(*)	nc1,
		integer, dimension(*)	nc2,
		integer, dimension(*)	nc3,
		integer, dimension(*)	nc4,
			sti,
			stifn,
		integer, intent(in)	nel )

Definition at line 28 of file qcumu2.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL
C     REAL
      my_real
     .   e(3,*),stifn(*),sti(*)
C     REAL
      my_real
     .   f11(*), f12(*), f21(*), f22(*), ax1(*), ax2(*),
     .   t11(*), t12(*), t13(*), t14(*), t21(*), t22(*), t23(*), t24(*)
      INTEGER NC1(*), NC2(*), NC3(*), NC4(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER  I
C-------------------------
C     ASSEMBLE
C-------------------------
C
      DO 100 i=1,nel
C
      e(2,nc1(i))=e(2,nc1(i))-f11(i)-ax1(i)-t11(i)
      e(3,nc1(i))=e(3,nc1(i))-f21(i)+ax2(i)-t21(i)
      stifn(nc1(i))=stifn(nc1(i))+sti(i)
 
C
      e(2,nc2(i))=e(2,nc2(i))-f12(i)-ax1(i)-t12(i)
      e(3,nc2(i))=e(3,nc2(i))-f22(i)+ax2(i)-t22(i)
      stifn(nc2(i))=stifn(nc2(i))+sti(i)
C
      e(2,nc3(i))=e(2,nc3(i))+f11(i)-ax1(i)-t13(i)
      e(3,nc3(i))=e(3,nc3(i))+f21(i)+ax2(i)-t23(i)
      stifn(nc3(i))=stifn(nc3(i))+sti(i)
C
      e(2,nc4(i))=e(2,nc4(i))+f12(i)-ax1(i)-t14(i)
      e(3,nc4(i))=e(3,nc4(i))+f22(i)+ax2(i)-t24(i)
      stifn(nc4(i))=stifn(nc4(i))+sti(i)
C
  100 CONTINUE
      RETURN