s8zkeh3.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

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

Function/Subroutine Documentation

s8zkeh3()

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

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