登录注册

24小时热门版块排行榜

新虫 (初入文坛)

[交流] 【求助】fortran中构造的函数，怎么一次返回多个值，？已有2人参与

比如，只构造一个函数，让其返回值就是一个数组。。。
能不能举个小例子？
谢谢先

1楼 2011-03-12 09:51:38

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

铜虫 (小有名气)

★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
微尘、梦想(金币+2): 谢谢回帖交流，欢迎常来程序语言版…… 2011-04-15 20:10:17

program main
implicit none
integer i,j
integer r(10,10)
do i=1,10
do j=1,10
r(i,j)=i+j
print *,r(i,j)
end do
end do
end

是这个意思吗

2楼2011-04-14 22:35:08

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

金虫 (正式写手)

迷途书虫

★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
微尘、梦想(金币+2): 谢谢回复…… 2011-04-15 20:10:36

Fortran的函数还真没这么用过，一般都是坐单值返回的。估计用上可变数组应该也可以实现（未证实过）。

一般如果要达到同样的目的，可以使用sub，令返回数组是其中一个参数即可。

例如:

call sub1(a,b)

subroutine(a,b)
dimension(

:: b
...... Function block
end subroutine

http://sites.google.com/site/nwnuatom/个人网站，欢迎猛击乱点！

3楼2011-04-15 08:16:09

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 loverun 的主题更新