fvthsurf.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	fvthsurf (nseg, ntgi, surf_eltyp, eltg, itag, surf_elem)

Function/Subroutine Documentation

fvthsurf()

subroutine fvthsurf	(	integer	nseg,
		integer	ntgi,
		integer, dimension(*)	surf_eltyp,
		integer, dimension(*)	eltg,
		integer, dimension(*)	itag,
		integer, dimension(*)	surf_elem )

Definition at line 28 of file fvthsurf.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 NSEG, NTGI, ELTG(*),SURF_ELTYP(*),SURF_ELEM(*)
      INTEGER ITAG(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, J, K, N, ITY
C
      itag(1:ntgi+1)=0
      DO i=1,nseg
         ity=surf_eltyp(i)
         n  =surf_elem(i)
         IF(ity == 7) n=n+numelc
         DO j=1,ntgi
            k=eltg(j)
            IF(k == n) THEN
               itag(1)=itag(1)+1
               itag(j+1)=1
            ENDIF
         ENDDO
      ENDDO
C
      RETURN