c_crkadd.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "com_xfem1.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	c_crkadd (elcutc, nodenr, kxfenod2elc, enrtag, elcutc_l, nodenr_l, kxfenod2elc_l, enrtag_l, numelc_l, numeltg_l, numnod_l, nodglob, inod_crkxfem, p, cep, elcuttg_l, incrkxfem_l, index_crkxfem)

Function/Subroutine Documentation

c_crkadd()

subroutine c_crkadd	(	integer, dimension(2,*)	elcutc,
		integer, dimension(*)	nodenr,
		integer, dimension(*)	kxfenod2elc,
		integer, dimension(numnod,*)	enrtag,
		integer, dimension(2,*)	elcutc_l,
		integer, dimension(*)	nodenr_l,
		integer, dimension(*)	kxfenod2elc_l,
		integer, dimension(numnod_l,*)	enrtag_l,
		integer	numelc_l,
		integer	numeltg_l,
		integer	numnod_l,
		integer, dimension(*)	nodglob,
		integer, dimension(*)	inod_crkxfem,
		integer	p,
		integer, dimension(*)	cep,
		integer, dimension(2,*)	elcuttg_l,
		integer, dimension(*)	incrkxfem_l,
		integer, dimension(*)	index_crkxfem )

Definition at line 29 of file c_crkadd.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------     
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      "com_xfem1.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ELCUTC(2,*),NODENR(*),KXFENOD2ELC(*),ENRTAG(NUMNOD,*),
     .        ELCUTC_L(2,*),NODENR_L(*),
     .        KXFENOD2ELC_L(*),ENRTAG_L(NUMNOD_L,*),
     .        NUMELC_L,NUMELTG_L,NCRKXFE_L,NUMNOD_L,NODGLOB(*),
     .        INOD_CRKXFEM(*),P,CEP(*),ELCUTTG_L(2,*),INCRKXFEM_L(*),
     .        INDEX_CRKXFEM(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,J,PROC,OFFC,OFFTG,NOD,NOD_CRK,IEL_L,NL_L
C-----------------------------------------------
      offc = numels + numelq
      offtg = offc + numelc + numelt + numelp + numelr
C
      iel_l = 0
      DO i=1,numelc
        IF (cep(i+offc) == p) THEN
          iel_l = iel_l + 1
          DO j=1,2
            elcutc_l(j,iel_l) = elcutc(j,i)
          ENDDO
        ENDIF
      ENDDO
C
      iel_l = 0
      DO i=1,numeltg
        IF (cep(i+offtg) == p) THEN
          iel_l = iel_l + 1
          DO j=1,2
            elcuttg_l(j,iel_l) = elcutc(j,i+numelc)
          ENDDO
        ENDIF
      ENDDO
C---
      nl_l = 0
      DO i=1,numnod_l
        nod = nodglob(i)
cc        IF (NOD > 0 .and. INOD_CRKXFEM(NOD) > 0) THEN
        IF (incrkxfem_l(i) > 0) THEN
          nl_l = nl_l + 1
          nod_crk = inod_crkxfem(nod)
          nodenr_l(nl_l) = nodenr(nod_crk)
          kxfenod2elc(nl_l) = kxfenod2elc(nod_crk)
        ENDIF
c
c   or even:
c
c        NL_L = INCRKXFEM_L(I)
c        IF(NL_L > 0)THEN
c          NOD_CRK = INDEX_CRKXFEM(NL_L)
c          NODENR_L(NL_L) = NODENR(NOD_CRK)
c          KXFENOD2ELC(NL_L) = KXFENOD2ELC(NOD_CRK)
c        ENDIF
        DO j=1,ienrnod
          enrtag_l(i,j) = enrtag(nod,j)
        ENDDO
      ENDDO
C-----------
      RETURN