s20tempcg.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	s20tempcg (jft, jlt, npe, nc, ni, temp, tempel)

Function/Subroutine Documentation

s20tempcg()

subroutine s20tempcg	(	integer	jft,
		integer	jlt,
		integer	npe,
		integer, dimension(mvsiz,npe)	nc,
			ni,
			temp,
			tempel )

Definition at line 29 of file s20tempcg.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NPE,NC(MVSIZ,NPE),JFT,JLT
      my_real
     .   temp(*),ni(npe),tempel(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J
C ---  temperature on integration point
       DO i=jft,jlt 
         tempel(i) = zero 
        DO j=1,npe                                                  
         tempel(i)= tempel(i)+ ni(j) * temp(nc(i,j)) 
        ENDDO  
       ENDDO  
C
      RETURN