Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=8), | intent(inout), | dimension(:,:) | :: | a | ||
complex(kind=8), | intent(inout), | dimension(:,:) | :: | b |
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