tagnod_r2r_nl.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	tagnod_r2r_nl (ixc, ixtg, ixs, ixs10, ixs20, ixs16, tag_nlocal, mat_param)

Function/Subroutine Documentation

tagnod_r2r_nl()

subroutine tagnod_r2r_nl	(	integer, dimension(nixc,numelc), intent(in)	ixc,
		integer, dimension(nixtg,numeltg), intent(in)	ixtg,
		integer, dimension(nixs,numels), intent(in)	ixs,
		integer, dimension(6,numels10), intent(in)	ixs10,
		integer, dimension(12,numels20), intent(in)	ixs20,
		integer, dimension(8,numels16), intent(in)	ixs16,
		integer, dimension(numnod), intent(inout)	tag_nlocal,
		type (matparam_struct_), dimension(nummat), intent(in)	mat_param )

Definition at line 30 of file tagnod_r2r_nl.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE matparam_def_mod
      use element_mod , only : nixs,nixc,nixtg
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"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        INTEGER, INTENT(IN)    :: IXC(NIXC,NUMELC),IXTG(NIXTG,NUMELTG),IXS(NIXS,NUMELS),IXS10(6,NUMELS10),
     .                            IXS20(12,NUMELS20),IXS16(8,NUMELS16)
        INTEGER, INTENT(INOUT) :: TAG_NLOCAL(NUMNOD)
      TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(IN) :: MAT_PARAM
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER I,J,L,MID
C=======================================================================
C
C-----------------------------------------------------------------------------------------------
c-----Tag of nodes with non local dof-----------------------------------------------------------
C-----------------------------------------------------------------------------------------------
C
C-----------------------------------------------------------------------------------------------
        DO j=1,numelc
          mid = ixc(1,j)
          IF (mat_param(mid)%NLOC > 0)THEN
            DO l=2,5
              tag_nlocal(ixc(l,j))=1
            ENDDO
          ENDIF
        ENDDO
C-----------------------------------------------------------------------------------------------
        DO j=1,numeltg
          mid = ixtg(1,j)
          IF (mat_param(mid)%NLOC > 0)THEN
            DO l=2,4
              tag_nlocal(ixtg(l,j))=1
            ENDDO
          ENDIF
        ENDDO
C-----------
        DO j=1,numels8
          mid = ixs(1,j)
          IF (mat_param(mid)%NLOC > 0)THEN
            DO l=2,9
              tag_nlocal(ixs(l,j))=1
            ENDDO
          ENDIF
        ENDDO
C-----------
        DO i=1,numels10
          j = i + numels8
          mid = ixs(1,j)
          IF (mat_param(mid)%NLOC > 0)THEN
            DO l=2,9
              tag_nlocal(ixs(l,j))=1
            ENDDO
            DO l=1,6
              IF (ixs10(l,i) /= 0) THEN
                tag_nlocal(ixs10(l,i))=1
              ENDIF
            ENDDO
          ENDIF
        ENDDO
C-----------
        DO i=1,numels20
          j = i + numels8 + numels10
          mid = ixs(1,j)
          IF (mat_param(mid)%NLOC > 0)THEN
            DO l=2,9
              tag_nlocal(ixs(l,j))=1
            ENDDO
            DO l=1,12
              IF (ixs20(l,i) /= 0) THEN
                tag_nlocal(ixs20(l,i))=1
              ENDIF
            ENDDO
          ENDIF
        ENDDO
C-----------
        DO i=1,numels16
          j = i + numels8 + numels10 + numels20
          mid = ixs(1,j)
          IF (mat_param(mid)%NLOC > 0)THEN
            DO l=2,9
              tag_nlocal(ixs(l,j))=0
            ENDDO
            DO l=1,8
              IF (ixs16(l,i) /= 0) THEN
                tag_nlocal(ixs16(l,i))=0
              ENDIF
            ENDDO
          ENDIF
        ENDDO
C
        RETURN
C