tagnodr.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	tagnodr (ixr, geo, numelr, ipartr, tagbuf, npart)

Function/Subroutine Documentation

tagnodr()

subroutine tagnodr	(	integer, dimension(nixr,*)	ixr,
			geo,
		integer	numelr,
		integer, dimension(*)	ipartr,
		integer, dimension(*)	tagbuf,
		integer	npart )

Definition at line 29 of file tagnodr.F.

      use element_mod , only : nixr
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, IPARTR(*), TAGBUF(*), NPART
      my_real
     .      geo(npropg,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER J,L,NIX2,IPIDT
C=======================================================================
      DO j=1,numelr
        IF(tagbuf(ipartr(j)) == 1)THEN
          ipidt=nint(geo(12,ixr(1,j)))
          IF(ipidt == 12.AND.ixr(4,j)/=0)THEN
            nix2=4
          ELSE
            nix2=3
          ENDIF
          DO l=2,nix2
            tagbuf(ixr(l,j)+npart)=1
          ENDDO
        ENDIF
      ENDDO
      RETURN