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