Home
last modified time | relevance | path

Searched refs:ExFrontalNode (Results 1 – 1 of 1) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DCalvingGeometry.F902774 LOGICAL, POINTER :: NewBasalNode(:), ExFrontalNode(:), NewBasalElem(:) local
2795 ExFrontalNode(n),&
2802 ExFrontalNode = .FALSE.
2864 IF(.NOT. ExFrontalNode(NodeIndexes(j))) THEN !maybe already got in another elem
2866 ExFrontalNode(NodeIndexes(j)) = .TRUE.
2923 ExFrontalNode(i) = .TRUE.
2953 IF(.NOT. ANY(ExFrontalNode(NodeIndexes))) CYCLE !Not affected
2958 IF(COUNT(ExFrontalNode(NodeIndexes)) /= 1) CYCLE
2977 PACK(NodeIndexes, (.NOT. ExFrontalNode(NodeIndexes)))
3054 NewBasalElem, FrontPerm, BotPerm, ExFrontalNode)