s4keh3.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	s4keh3 (lft, llt, pxi, pyi, pzi, pxj, pyj, pzj, fxx, fyy, fzz, fxy, fyz, fxz, kij)

Function/Subroutine Documentation

s4keh3()

subroutine s4keh3	(	integer	lft,
		integer	llt,
			pxi,
			pyi,
			pzi,
			pxj,
			pyj,
			pzj,
			fxx,
			fyy,
			fzz,
			fxy,
			fyz,
			fxz,
			kij )

Definition at line 32 of file s4keh3.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 LFT,LLT
C     REAL
      my_real
     .   pxi(*), pxj(*),pyi(*), pyj(*), pzi(*), pzj(*),  
     .   fxx(*),fyy(*),fzz(*),fxy(*),fxz(*),fyz(*),kij(3,3,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J
C     REAL
      my_real
     .   hij(mvsiz) 
C-----------------------------------------------
      CALL s8zkeh3(lft,llt,
     .   pxi, pyi ,pzi ,pxj, pyj, pzj, hij ,
     .   fxx, fyy ,fzz ,fxy, fyz, fxz)
C
       DO j = 1,3
        DO i=lft,llt
         kij(j,j,i)=kij(j,j,i)+hij(i)
        ENDDO
       ENDDO
C
      RETURN