swap_zv Subroutine

subroutine swap_zv(a, b)

Arguments

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

Source Code

subroutine swap_zv(a,b)
  complex(8), dimension(:), intent(inout) :: a,b
  complex(8), dimension(size(a)) :: dum
  dum=a
  a=b
  b=dum
end subroutine swap_zv