[求助]在fortran中如何实现函数返回类型控制

AaronSpark · 发表于 2005-10-6 21:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

在fortran里函数的返回类型一般都是固定的 请问如何实现函数的返回类型随参数的变化而变化？谢谢

FSI · 发表于 2005-10-7 19:04

fortran好像无法直接实现多态性吧。

FSI · 发表于 2005-10-7 20:19

maybe I was wrong. sorry 
 
可以通过interface构造

[此贴子已经被作者于2005-10-8 19:30:48编辑过]

FSI · 发表于 2005-10-8 17:00

try this, compute_area根据传入参数的类型自动选择计算函数 
 
<div class="quote">module class_Rectangle 
 implicit none 
 type Rectangle 
 real :: base, height 
 end type Rectangle 
 
contains 
 
 function rectangle_area (r) result (area) 
type(Rectangle), intent(in) :: r 
real :: area 
area = r%base * r%height 
 end function rectangle_area 
 
end module class_Rectangle 
 
 
module class_Circle 
 real :: pi = 3.1415926535897931d0 
 type Circle 
 real :: raidus 
 end type Circle 
 
contains 
 
 function circle_area(c) result(area) 
type(Circle), intent(in) :: c 
real :: area 
area = pi * c%raidus**2 
 end function circle_area 
 
end module class_Circle 
 
 
program geometry 
 use class_Rectangle 
 use class_Circle 
 implicit none 
 
 interface compute_area 
 module procedure rectangle_area, circle_area 
 end interface 
 
 type(Rectangle) :: four_sides 
 type(Circle) :: two_sides 
 real :: area = 0.0 
 
 ! initialize a rectangel and compute area 
 four_sides = Rectangle(2.1, 4.3) 
 area = compute_area(four_sides) 
 write(*,*) four_sides, area 
 
 ! initialize a circle and compute area 
 two_sides = Circle(5.4) 
 area = compute_area(two_sides) 
 write(*,*) two_sides, area 
 
end program geometry 
 
</div>

[此贴子已经被作者于2005-10-8 17:04:37编辑过]

FSI · 发表于 2005-10-8 19:28

另外一个例子, 交换两个实参. 很有趣呀.
[em07] 
 
module swap_module 
 implicit none 
 interface swap 
 module procedure swap_reals, swap_integers 
 end interface 
contains 
 subroutine swap_reals(a,b) 
real :: a, b, temp 
temp = a; a = b; b = temp; 
 end subroutine swap_reals 
 subroutine swap_integers(a,b) 
integer :: a, b ,temp 
temp = a; a = b; b = temp; 
 end subroutine swap_integers 
end module swap_module 
 
program test_swap 
 use swap_module 
 real :: x = 1.1, y = 2.2 
 integer :: i = 1, j = 2 
 call swap(x,y) 
 print *, x, y 
call swap(i,j) 
 print *, i, j 
end program test_swap

账号		自动登录	找回密码
密码			我要加入

[Fortran] [求助]在fortran中如何实现函数返回类型控制

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。