tag_node_from_spring.F File Reference

#include "implicit_f.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	tag_node_from_spring (ixr, geo, numelr, elem, tagnod, clause_node, ind)

Function/Subroutine Documentation

tag_node_from_spring()

subroutine tag_node_from_spring	(	integer, dimension(nixr,*)	ixr,
			geo,
		integer	numelr,
		integer, dimension(*)	elem,
		integer, dimension(*)	tagnod,
		integer, dimension(*)	clause_node,
		integer	ind )

Definition at line 28 of file tag_node_from_spring.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      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IXR(NIXR,*),NUMELR,TAGNOD(*),ELEM(*)
      my_real
     .      geo(npropg,*)
      INTEGER CLAUSE_NODE(*),IND
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,II,L,NIX2,IPIDT
C=======================================================================
      DO i=1,numelr
        ii=elem(i)
        ipidt = nint(geo(12,ixr(1,ii)))
        IF (ipidt == 12 .AND. ixr(4,ii)/=0) THEN
          nix2=4
        ELSE
          nix2=3
        ENDIF
        DO l=2,nix2
          IF(tagnod(ixr(l,ii)) ==0)THEN
            tagnod(ixr(l,ii)) = 1 ! add nodes
            ind=ind+1
            clause_node(ind)=ixr(l,ii)
          ENDIF
        ENDDO
      ENDDO
C-----------
      RETURN