[交流] 【求助】有错误 已有3人参与

Originally posted by Jeydragon at 2010-12-20 09:24:36:
Program Summation
Implicit None
Interface My_Sum
        Function Sum_Real(A,B) Result(Sum_Real_Result)
                Real :: A,B, Sum_Real_Result
        End Function Sum_Real

        Function Sum_Integer(A,B) Result(Su ...

module swap_module
   implicit none
   public :: swap
   private :: swap_reals, swap_integers
   interface swap
      module procedure swap_reals, swap_integers
   end interface
   contains
   subroutine swap_reals(a, b)
   real, intent(in out) :: a, b
   real :: temp
   temp = a
   a = b
   b = temp
   end subroutine swap_reals
   subroutine swap_integers(a, b)
   integer, intent(in out) :: a, b
   integer :: temp
   temp = a
   a = b
   b = temp
   end subroutine swap_integers
end module swap_module

program test_swap
use swap_module
implicit none
real :: x, y
integer :: i, j
x = 1.1
y = 2.2
i = 1
j = 2
call swap(x, y)
print *, x, y
call swap(i, j)
print *, i, j
end program test_swap