inare2.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	inare2 (area, ye, ze)

Function/Subroutine Documentation

inare2()

subroutine inare2	(		area,
			ye,
			ze )

Definition at line 30 of file inare2.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-----------------------------------------------
      my_real
     .   area
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      my_real
     .   fs2, fs3, ft2, ft3, e, f, g,ye(4) ,ze(4)
C
      fs2=-ye(1)+ye(2)+ye(3)-ye(4)
      fs3=-ze(1)+ze(2)+ze(3)-ze(4)
      ft2=-ye(1)-ye(2)+ye(3)+ye(4)
      ft3=-ze(1)-ze(2)+ze(3)+ze(4)
      e=fs2*fs2+fs3*fs3
      f=fs2*ft2+fs3*ft3
      g=ft2*ft2+ft3*ft3
      area=sqrt((e*g-f*f)/sixteen)
      RETURN