swap_rv Subroutine

subroutine swap_rv(a, b)

Arguments

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

Source Code

subroutine swap_rv(a,b)
  real(8), dimension(:), intent(inout) :: a,b
  real(8), dimension(size(a)) :: dum
  dum=a
  a=b
  b=dum
end subroutine swap_rv