swap_zm Subroutine

subroutine swap_zm(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_zm(a,b)
  complex(8), dimension(:,:), intent(inout) :: a,b
  complex(8), dimension(size(a,1),size(a,2)) :: dum
  dum=a
  a=b
  b=dum
end subroutine swap_zm