学虫dj

金虫 (正式写手)

应助: 18 (小学生)
金币: 892.4
散金: 63
帖子: 688
在线: 89.9小时
虫号: 1829966
注册: 2012-05-22
性别: GG
专业: 应用地球物理学

[求助] FORTRAN中不定个数传递参数已有2人参与

我知道fortran中的函数在不定个数传递参数时应该使用interface来给子程序设定一个接口，现在的问题是：
1，函数中的形参是不确定大小的数组时，应该怎么设置这个interface
2，这个将要被调用的函数是在一个模块里，而调用他的函数在另一个模块里，这时interface怎么设置

回复此楼

» 猜你喜欢

考博已经有4人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复

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

求助：Fortran中如何调用‘计算软件’ 已经有11人回复
fortran中如何调用matlab中求解特征值函数？已经有9人回复
fortran中运行错误:error M6203:math，exp:overflow error 如何解决? 已经有8人回复
如何用Fortran 计算三维曲面的数据已经有3人回复
fortran中运行中出现无穷大的数怎么处理已经有9人回复
用Fortran编写程序输出的数据一般用什么程序作图比较好？已经有28人回复
求助：用Fortran写一个关于晶粒个数统计和编号的程序。卡了我好久了。已经有4人回复
FORTRAN中如何实现重复读取一行？已经有24人回复
关于Fortran中的乘法和求逆比较已经有10人回复
请问，如何在fortran中调用误差函数？已经有5人回复
求助大神：要做参数回归，fortran和matlab，该选择哪个？已经有14人回复
fortran中的matmul 已经有11人回复
如何欧诺个fortran语言提取出我想要的部分数据已经有6人回复
又来求助啦，fortran里使用多文件，其中的子程序文件怎么观察参数值啊？已经有3人回复
请教 fortran 运行错误的原因已经有13人回复
fortran中到底该如何比较两个实数是否相等已经有8人回复
Fortran如何读取数据避开空行？已经有7人回复
fortran整数输出格式的问题已经有8人回复
fortran两个问题，文件中的空格，屏幕同一行覆盖输出已经有23人回复
【求助】matlab数据导入Fortran 已经有9人回复
【求助】fortran中怎么存储不确定长度的数据【已完结】已经有6人回复
【求助】有关fortran进行数值模拟已经有10人回复

穷则独善其事，达则兼济天下

1楼 2014-04-08 18:42:47

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

btx97

金虫 (小有名气)

应助: 39 (小学生)
金币: 1212
散金: 10
红花: 1
帖子: 191
在线: 127.2小时
虫号: 1257872
注册: 2011-04-07
专业: 固体力学

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
学虫dj: 金币+10 2014-04-16 15:20:28
学虫dj: 回帖置顶 2014-04-16 15:21:24

1. Module里面的所有subprogram在用的时候是不需要interface的。比如在MODULE B中要用module A里的所有子程序，只需要在MODULE B中写上USE A就行了，不需要INTERFACE。因为，一定程度上，可以把MODULE中的子程序当成在所用程序中的后面加了contain的内部子程序。

2. 可选参数为不定大小的数组时可以这样定义子程序。
subroutine aaa(a,b)
real :: a
real, optional :: b(

.....
end

赞一下

回复此楼

4楼2014-04-11 16:46:38

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

查看全部 6 个回答

linrn

至尊木虫 (著名写手)

应助: 26 (小学生)
金币: 15056.6
散金: 5
红花: 2
帖子: 2171
在线: 283.3小时
虫号: 492936
注册: 2008-01-09
性别: GG
专业: 固体力学

【答案】应助回帖

感谢参与，应助指数 +1

函数中的参数在定义时加上 optional，如
subroutine aaa(a,b,c)
real(kind=8),intent(inout):: a,b
real(kind=8),intent(inout)，optional::c
...
end subroutine
在函数中需要使用参数c的时候，需要用logical present(c)来判别是否输入c这个参数。

调用的时候可以写成
call aaa(a,b,c)
或者
call aaa(a,b)

赞一下

回复此楼

2楼2014-04-09 21:13:22

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

学虫dj

金虫 (正式写手)

应助: 18 (小学生)
金币: 892.4
散金: 63
帖子: 688
在线: 89.9小时
虫号: 1829966
注册: 2012-05-22
性别: GG
专业: 应用地球物理学

引用回帖:

2楼: Originally posted by linrn at 2014-04-09 21:13:22
函数中的参数在定义时加上 optional，如
subroutine aaa(a,b,c)
real(kind=8),intent(inout):: a,b
real(kind=8),intent(inout)，optional::c
...
end subroutine
在函数中需要使用参数c的时候，需要用logic ...

我的程序中就是这样写的，但是貌似不行。我的程序里面会判断是否给了c，如果没有给，那就自动赋值，但是执行结果是没有地址

赞一下

回复此楼

穷则独善其事，达则兼济天下

3楼2014-04-11 10:10:09

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

btx97

金虫 (小有名气)

应助: 39 (小学生)
金币: 1212
散金: 10
红花: 1
帖子: 191
在线: 127.2小时
虫号: 1257872
注册: 2011-04-07
专业: 固体力学

real, optional :: b( : )

赞一下

回复此楼

5楼2014-04-11 16:47:17

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

[考博] 考博 +4	Eternitf 2026-04-29	4/200	2026-05-02 16:10 by yejenny
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	qs8kylt1wr 2026-05-01	3/150	2026-05-02 16:06 by zahslv263y
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	qs8kylt1wr 2026-05-01	3/150	2026-05-02 15:51 by zahslv263y
[考博] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	qs8kylt1wr 2026-05-01	3/150	2026-05-02 15:51 by zahslv263y
[教师之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	qs8kylt1wr 2026-05-01	3/150	2026-05-02 15:36 by zahslv263y
[论文投稿] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	qs8kylt1wr 2026-05-01	3/150	2026-05-02 15:21 by zahslv263y
[博后之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	qs8kylt1wr 2026-05-01	3/150	2026-05-02 15:06 by zahslv263y
[博后之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	d8tbypao1q 2026-05-01	3/150	2026-05-02 14:06 by zahslv263y
[教师之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	d8tbypao1q 2026-05-01	3/150	2026-05-02 14:06 by zahslv263y
[博后之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	k17zww5nna 2026-05-01	3/150	2026-05-02 10:21 by ovidyohpyz
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	k17zww5nna 2026-05-01	4/200	2026-05-02 10:21 by ovidyohpyz
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3	k17zww5nna 2026-05-01	5/250	2026-05-02 09:21 by dz7y1p1i98
[考博] 药化及相关博士的申请 5+3	中药学渣 2026-04-29	3/150	2026-05-01 18:14 by babero
[论文投稿] 一篇MDPI论文改变了学习工作和生活 +3	helsinglee 2026-04-29	4/200	2026-05-01 11:45 by bobvan
[有机交流] 一个化合物的合成路线：CAS:367929-02-0 名称：8β-乙烯基雌二醇 50+4	zhquanbing 2026-04-28	4/200	2026-04-30 22:45 by zyqchem
[文学芳草园] 太白金星有点烦 +3	yexuqing 2026-04-27	3/150	2026-04-30 21:56 by myrtle
[考博] 中国地质大学（北京）博士招生补录，数理学院材料科学与工程专业和材料与化工专业 +3	liuxh329 2026-04-29	3/150	2026-04-30 15:42 by 顺利毕业zs
[基金申请] 收到国自然专家邀请后几年才会有本子送过来评 +3	barley5 2026-04-30	3/150	2026-04-30 14:58 by aspect3000
[论文投稿] 有没有快的中文核心比较快录用的，纳米材料光催化 5+3	2914439618 2026-04-27	4/200	2026-04-29 08:59 by 北京莱茵润色
[论文投稿] 有人投过CCC中国控制会议吗？ 19+3	初九凡 2026-04-26	3/150	2026-04-27 08:58 by 北京莱茵润色

24小时热门版块排行榜

学虫dj

[求助] FORTRAN中不定个数传递参数 已有2人参与

» 猜你喜欢

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

btx97

【答案】应助回帖

linrn

【答案】应助回帖

学虫dj

btx97

[求助] FORTRAN中不定个数传递参数已有2人参与