Searched refs:NodesGradXY (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | CalvingGeometry.F90 | 192 FUNCTION NodesGradXY(Nodes, Node1, Node2)RESULT(dxdy) function
200 END FUNCTION NodesGradXY
2566 PRINT *, (NodesGradXY(OrderedNodes,i,i-1))
2567 PRINT *, (NodesGradXY(OrderedNodes,i+1,i))
2568 PRINT *, 'DIFF: ',ABS(NodesGradXY(OrderedNodes,i,i-1) -&
2569 NodesGradXY(OrderedNodes,i+1,i))
2578 IF(ABS(NodesGradXY(OrderedNodes,i,i-1) - NodesGradXY(OrderedNodes,i+1,i)) < prec) THEN
|