tkeg3.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	tkeg3 (jft, jlt, fx, al, ke11, ke12, ke22)

Function/Subroutine Documentation

tkeg3()

subroutine tkeg3	(	integer	jft,
		integer	jlt,
			fx,
			al,
			ke11,
			ke12,
			ke22 )

Definition at line 30 of file tkeg3.F.

C-----------------------------------------------
C   I M P L I C I T   T Y P E S
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   D U M M Y   A R G U M E N T S
C-----------------------------------------------
      INTEGER JFT,JLT
      my_real 
     .    fx(*),al(*),ke11(3,3,*),ke12(3,3,*),ke22(3,3,*)
C-----------------------------------------------
C   L O C A L   V A R I A B L E S
C-----------------------------------------------
      INTEGER EP,I,J
      my_real 
     .    h(mvsiz)
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
       DO ep=jft,jlt 
         h(ep)=fx(ep)/al(ep)
         IF (h(ep)<zero) h(ep)=em9
       ENDDO
       DO i=1,3
         DO ep=jft,jlt
           ke11(i,i,ep) = ke11(i,i,ep)+h(ep)
           ke12(i,i,ep) = ke12(i,i,ep)-h(ep)
           ke22(i,i,ep) = ke22(i,i,ep)+h(ep)
         enddo! next EP
       enddo! next I
C-----------------------------------------------
      RETURN