版块导航: 正在加载中...

客户端APP下载

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

loverun

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 68.5
帖子: 30
在线: 20.9小时
虫号: 1208691
注册: 2011-02-21
专业: 海洋物理学

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

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

» 猜你喜欢

对氯苯硼酸纯化已经有3人回复
求助:我三月中下旬出站，青基依托单位怎么办？已经有12人回复
不自信的我已经有12人回复
假如你的研究生提出不合理要求已经有5人回复
所感已经有4人回复
论文终于录用啦！满足毕业条件了已经有28人回复
要不要辞职读博？已经有7人回复
北核录用已经有3人回复
实验室接单子已经有3人回复
磺酰氟产物，毕不了业了！已经有8人回复

» 本主题相关价值贴推荐，对您同样有帮助:

fortran能求带字母矩阵的本征值吗？（矩阵元素带有字母，能得到形式解吗）已经有5人回复
怎能让fortran调用c的fopen和fileio函数已经有3人回复
Fortran中子程序与函数的区别已经有7人回复
怎样构造一个凸四边形上的齐次光滑函数已经有5人回复
【求助】Fortran语言赋值问题？已经有3人回复
复制构造函数问题已经有14人回复
有关fortran的一次而问题，希望大家能帮帮忙，谢谢已经有4人回复
【交流】合流超比函数的 fortran程序（自己搞定了，不过也希望你来交流）已经有7人回复
【求助】有关fortran进行数值模拟已经有10人回复

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

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

qwer_2009

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 585.7
帖子: 170
在线: 38.8小时
虫号: 836337
注册: 2009-08-29

★ ★ ★
小木虫(金币+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人)

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

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

dingxb

金虫 (正式写手)

迷途书虫

应助: 12 (小学生)
金币: 1674.5
帖子: 482
在线: 59.5小时
虫号: 34085
注册: 2004-01-06
性别: GG
专业: 原子和分子物理

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

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

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

例如:

call sub1(a,b)

subroutine(a,b)
dimension(

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

赞一下(2人)

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

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

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

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