! 例題 8-1（推奨版） ［サブルーチンの典型 ］
SUBROUTINE swap( p, q )

  IMPLICIT NONE
  INTEGER, INTENT ( INOUT ) :: p, q
  INTEGER :: r

  r = p
  p = q
  q = r

END SUBROUTINE swap