PPT Slide

module Swap_Reals_M

implicit none

public :: Swap

contains

subroutine Swap( X, Y )

real, intent (in out) :: X, Y

real :: Aux

! start subroutine Swap

Aux = X

X = Y

Y = Aux

return

end subroutine Swap

end module Swap_Reals_M