swap_r Subroutine

subroutine swap_r(a, b)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(inout) :: a
real(kind=8), intent(inout) :: b

Source Code

subroutine swap_r(a,b)
  real(8), intent(inout) :: a,b
  real(8) :: dum
  dum=a
  a=b
  b=dum
end subroutine swap_r