版块导航
正在加载中...
客户端APP下载
登录
注册
帖子
帖子
用户
本版
应《网络安全法》要求,自2017年10月1日起,未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用,请尽快对帐号进行手机号验证,感谢您的理解与支持!
24小时热门版块排行榜
>
论坛更新日志
(3927)
>
导师招生
(715)
>
论文投稿
(395)
>
休闲灌水
(217)
>
硕博家园
(216)
>
文献求助
(156)
>
考博
(138)
>
新药研发
(98)
>
学术会议
(84)
>
公派出国
(84)
>
虫友互识
(78)
>
考研
(71)
>
基金申请
(68)
>
论文道贺祈福
(52)
>
教师之家
(46)
>
博后之家
(44)
小木虫论坛-学术科研互动平台
»
计算模拟区
»
程序语言
»
Fortran
»
【求助】fortran中构造的函数,怎么一次返回多个值,?
3
1/1
返回列表
查看: 1426 | 回复: 2
只看楼主
@他人
存档
新回复提醒
(忽略)
收藏
在APP中查看
loverun
新虫
(初入文坛)
应助: 0
(幼儿园)
金币: 68.5
帖子: 30
在线: 20.9小时
虫号: 1208691
注册: 2011-02-21
专业: 海洋物理学
[交流]
【求助】fortran中构造的函数,怎么一次返回多个值,?
已有2人参与
比如,只构造一个函数,让其返回值就是一个数组。。。
能不能举个小例子?
谢谢先
回复此楼
» 猜你喜欢
售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急
已经有13人回复
售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急
已经有18人回复
售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急
已经有18人回复
2027博士申请-临床检验诊断学、病原生物学、微生物方向
已经有4人回复
售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急
已经有10人回复
售SCI文章,我:8O.5.5.1O.54,科目全,可十急
已经有22人回复
越来越担心硕士毕业后没有竞争力了
已经有14人回复
论文的挂名怎么评判贡献?基金申请中,排名第一的挂名文章
已经有3人回复
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请
已经有3人回复
闲聊
已经有6人回复
高级回复
» 本主题相关价值贴推荐,对您同样有帮助:
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
的主题更新
3
1/1
返回列表
如果回帖内容含有宣传信息,请如实选中。否则帐号将被全论坛禁言
普通表情
龙
兔
虎
猫
高级回复
(可上传附件)
百度网盘
|
360云盘
|
千易网盘
|
华为网盘
在新窗口页面中打开自己喜欢的网盘网站,将文件上传后,然后将下载链接复制到帖子内容中就可以了。
信息提示
关闭
请填处理意见
关闭
确定