eplane.f File Reference

Go to the source code of this file.

Functions/Subroutines
real *8 function	eplane (x, n, t)

Function/Subroutine Documentation

eplane()

real*8 function eplane	(	real*8, dimension(*)	x,
		real*8, dimension(*)	n,
		real*8	t
	)

!     
      implicit none
!     
      real*8 x(*),n(*),t
!     
      eplane= x(1)*n(1)+x(2)*n(2)+x(3)*n(3)+t
!     
      return