Searched refs:LeftSplit2 (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | MeshUtils.F90 | 8350 LOGICAL :: RightSplit, LeftSplit, LeftSplit2, RightSplit2, TopEdge, BottomEdge local
8519 LeftSplit2 = ( ( Nodes % x(j2) - xminm ) * ( xminm - Nodes % x(j3) ) > 0.0_dp )
8520 IF(LeftSplit2) qleft2 = ( Nodes % x(j2) - xminm ) / ( Nodes % x(j2) - Nodes % x(j3) )
8545 IF( LeftSplit2 ) THEN
8864 LOGICAL :: RightSplit, LeftSplit, LeftSplit2, RightSplit2, TopEdge, BottomEdge local
|