r8_swap Subroutine

public subroutine r8_swap(left, right)

Swap two reals of kind rk

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(inout)			::	left
real(kind=rk),	intent(inout)			::	right