swap_z Subroutine

subroutine swap_z(a, b)

Arguments

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

Source Code

subroutine swap_z(a,b)
  complex(8), intent(inout) :: a,b
  complex(8) :: dum
  dum=a
  a=b
  b=dum
end subroutine swap_z