tempcg.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	tempcg (numnod, nel, ixc, temp, tempel)

Function/Subroutine Documentation

tempcg()

subroutine tempcg	(	integer, intent(in)	numnod,
		integer, intent(in)	nel,
		integer, dimension(nixc,*)	ixc,
			temp,
			tempel )

Definition at line 33 of file tempcg.F.

      use element_mod , only : nixc
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) :: NUMNOD
      INTEGER ,INTENT(IN) :: NEL
      INTEGER IXC(NIXC,*)
      my_real :: temp(numnod)
      my_real :: tempel(nel)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
C --- calculate mean element temperature in Gauss point
      DO i=1,nel
         tempel(i) = fourth * (temp(ixc(2,i)) + temp(ixc(3,i)) + 
     .                         temp(ixc(4,i)) + temp(ixc(5,i)) )
      ENDDO
!-----------
      RETURN