SABER
tools_stripack::swptst Interface Reference

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...
 

Detailed Description

Definition at line 80 of file tools_stripack.F90.

Member Function/Subroutine Documentation

◆ stripack_swptst()

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.

Parameters
[in]n1First 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]n2Second index.
[in]n3Third index.
[in]n4Fourth index.
[in]xX-coordinate of the nodes.
[in]yY-coordinate of the nodes.
[in]zZ-coordinate of the nodes.
[out]outputTRUE 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.


The documentation for this interface was generated from the following file: