Searched refs:NodeDist3D (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | CalvingGeometry.F90 | 155 FUNCTION NodeDist3D( Nodes, Node1, Node2 ) RESULT (dist) function
169 END FUNCTION NodeDist3D
683 FrontDist = NodeDist3D(Mesh % Nodes,First, Last)
835 MaxDist = NodeDist3D(Mesh % Nodes,First, Last)
842 IF((NodeDist3D(Mesh % Nodes, First, n) <= MaxDist) .AND. &
843 (NodeDist3D(Mesh % Nodes, Last, n) <= MaxDist)) CYCLE !within range
|