swap_r Subroutine

public subroutine swap_r(a, b)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=SP),	intent(inout)			::	a
real(kind=SP),	intent(inout)			::	b

Contents

Source Code

swap_r

Source Code

	SUBROUTINE swap_r(a,b)
	REAL(SP), INTENT(INOUT) :: a,b
	REAL(SP) :: dum
	dum=a
	a=b
	b=dum
	END SUBROUTINE swap_r