Searched refs:ElementCodes (Results 1 – 1 of 1) sorted by relevance
13856 INTEGER, ALLOCATABLE :: ElementCodes(:) local13883 ALLOCATE(ElementCodes(NumElements))13887 ElementCodes(i) = NewMesh % Elements(i) % TYPE % ElementCode13892 IF(ANY(ElmCodeList == ElementCodes(i))) CYCLE13894 ElmCodeList(NumElmCodes) = ElementCodes(i)13898 ElmCodeCounts(j) = COUNT(ElementCodes == ElmCodeList(j))