SABER
|
Public Member Functions | |
subroutine | stripack_swptst (n1, n2, n3, n4, x, y, z, output) |
Decide whether to replace a diagonal arc by the other. More... | |
Definition at line 80 of file tools_stripack.F90.
subroutine tools_stripack::swptst::stripack_swptst | ( | integer, intent(in) | n1, |
integer, intent(in) | n2, | ||
integer, intent(in) | n3, | ||
integer, intent(in) | n4, | ||
real(kind_real), dimension(*), intent(in) | x, | ||
real(kind_real), dimension(*), intent(in) | y, | ||
real(kind_real), dimension(*), intent(in) | z, | ||
logical, intent(out) | output | ||
) |
Decide whether to replace a diagonal arc by the other.
[in] | n1 | First index of the four nodes defining the quadrilateral with N1 adjacent to N2, and (N1,N2,N3) in counterclockwise order. The arc connecting N1 to N2 should be replaced by an arc connecting N3 to N4 if SWPTST = TRUE. Refer to subroutine SWAP. |
[in] | n2 | Second index. |
[in] | n3 | Third index. |
[in] | n4 | Fourth index. |
[in] | x | X-coordinate of the nodes. |
[in] | y | Y-coordinate of the nodes. |
[in] | z | Z-coordinate of the nodes. |
[out] | output | TRUE if and only if the arc connecting N1 and N2 should be swapped for an arc connecting N3 and N4. |
Definition at line 826 of file tools_stripack.F90.