Interface Swap
  Subroutine Real_swap(x,y)
    Implicit None
    Real, Intent (InOut) :: x,y
  End Subroutine Real_swap
  Subroutine Int_swap(x,y)
    Implicit None
    Integer, Intent (InOut) :: x,y
  End Subroutine Int_swap
End Interface Swap