swap_complex Subroutine

public elemental subroutine swap_complex(a, b)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=rp),	intent(inout)			::	a
complex(kind=rp),	intent(inout)			::	b