fvelarea.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	fvelarea (ibuf, elem, x, nel, elarea)

Function/Subroutine Documentation

fvelarea()

subroutine fvelarea	(	integer, dimension(*)	ibuf,
		integer, dimension(3,*)	elem,
			x,
		integer	nel,
			elarea )

Definition at line 30 of file fvelarea.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IBUF(*), ELEM(3,*) 
      INTEGER NEL
      my_real
     .        x(3,numnod), elarea(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IEL, N1, N2, N3, NN1, NN2, NN3
      my_real
     .        nrx, nry, nrz, area2
 
C--------------------------------------------------
      DO iel=1,nel
         n1=elem(1,iel)
         n2=elem(2,iel)
         n3=elem(3,iel)
         nn1=ibuf(n1)
         nn2=ibuf(n2)
         nn3=ibuf(n3)
         CALL fvnormal(x,nn1,nn2,nn3,0,nrx,nry,nrz)
         area2=sqrt(nrx**2+nry**2+nrz**2)
         elarea(iel)=half*area2
      ENDDO
C     
      RETURN