Public Member Functions
subroutine	stripack_swap (in1, in2, io1, io2, list, lptr, lend, lp21)
	Replace the diagonal arc of a quadrilateral with the other diagonal. More...

Detailed Description

Definition at line 77 of file tools_stripack.F90.

Member Function/Subroutine Documentation

subroutine tools_stripack::swap::stripack_swap	(	integer, intent(in)	in1,
		integer, intent(in)	in2,
		integer, intent(in)	io1,
		integer, intent(in)	io2,
		integer, dimension(*), intent(inout)	list,
		integer, dimension(*), intent(inout)	lptr,
		integer, dimension(*), intent(inout)	lend,
		integer, intent(out)	lp21
	)

Replace the diagonal arc of a quadrilateral with the other diagonal.

Parameters

[in]	in1	First nodal index of the vertices of the quadrilateral. IO1-IO2 is replaced by IN1-IN2. (IO1,IO2,IN1) and (IO2,IO1,IN2) must be triangles on input.
[in]	in2	Second nodal index.
[in]	io1	Third nodal index.
[in]	io2	Fourth nodal index.
[in,out]	list	Triangulation data structure created by TRMESH. On output, updated with the swap; triangles (IO1,IO2,IN1) an (IO2,IO1,IN2) are replaced by (IN1,IN2,IO2) and (IN2,IN1,IO1) unless LP21 = 0.
[in,out]	lptr	cf. list
[in,out]	lend	cf. list
[out]	lp21	Index of IN1 as a neighbor of IN2 after the swap is performed unless IN1 and IN2 are adjacent on input, in which case LP21 = 0.

Definition at line 755 of file tools_stripack.F90.

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