tag_node_from_1D_2D_elem.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	tag_node_from_1d_2d_elem (ix, nix, nix1, nix2, numel, elem, tagnod, clause_node, ind)

Function/Subroutine Documentation

tag_node_from_1d_2d_elem()

subroutine tag_node_from_1d_2d_elem	(	integer, dimension(nix,*)	ix,
		integer	nix,
		integer	nix1,
		integer	nix2,
		integer	numel,
		integer, dimension(*)	elem,
		integer, dimension(*)	tagnod,
		integer, dimension(*)	clause_node,
		integer	ind )

Definition at line 30 of file tag_node_from_1D_2D_elem.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
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 NUMEL,NIX1,NIX2,NIX
      INTEGER IX(NIX,*),TAGNOD(*),ELEM(*)
      INTEGER CLAUSE_NODE(*),IND
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,II
C===============================================
!
      DO i=1,numel
        ii=elem(i)
        DO j=nix1,nix2
          IF(tagnod(ix(j,ii)) == 0)THEN
            tagnod(ix(j,ii)) = 1
            ind = ind+1
            clause_node(ind) = ix(j,ii)
          ENDIF
        ENDDO
      ENDDO
C-----------
      RETURN