connesurf.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	connesurf (numnod, nseg, surf_nodes, knod2surf, nnod2surf)

Function/Subroutine Documentation

connesurf()

subroutine connesurf	(	integer, intent(in)	numnod,
		integer	nseg,
		integer, dimension(nseg,4)	surf_nodes,
		integer, dimension(numnod+1)	knod2surf,
		integer	nnod2surf )

Definition at line 28 of file connesurf.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,INTENT(IN) :: NUMNOD
      INTEGER KNOD2SURF(NUMNOD+1),NNOD2SURF,NSEG,SURF_NODES(NSEG,4)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,K,N,IN(4)
C-----------------------------------------------
C    Connect  segments of surf (just for intersection treatment)
C-----------------------------------------------
      DO i=1,nseg
        in(1) = surf_nodes(i,1)
        in(2) = surf_nodes(i,2)
        in(3) = surf_nodes(i,3)
        in(4) = surf_nodes(i,4)
C
        DO k=1,4
          n = in(k)
          knod2surf(n) = knod2surf(n) + 1
        END DO
      ENDDO
C
      DO i=1,nseg
        in(1) = surf_nodes(i,1)
        in(2) = surf_nodes(i,2)
        in(3) = surf_nodes(i,3)
        in(4) = surf_nodes(i,4)
        DO k=1,4
          n = in(k)
          nnod2surf = max(nnod2surf,knod2surf(n))
        END DO
      ENDDO
!---
      RETURN