24小时热门版块排行榜    

查看: 2104  |  回复: 5

学虫dj

金虫 (正式写手)

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

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

» 猜你喜欢

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

穷则独善其事,达则兼济天下
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
回帖置顶 ( 共有2个 )

btx97

金虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +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的回帖

学虫dj

金虫 (正式写手)

学虫dj: 回帖置顶 2014-04-16 15:21:18
引用回帖:
4楼: Originally posted by btx97 at 2014-04-11 16:46:38
1. Module里面的所有subprogram在用的时候是不需要interface的。比如在MODULE B中要用module A里的所有子程序,只需要在MODULE B中写上USE A就行了,不需要INTERFACE。因为,一定程度上,可以把MODULE中的子程序当成 ...

谢谢  就是这样的  放在模块里就不用接口了
穷则独善其事,达则兼济天下
6楼2014-04-16 15:20:16
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

linrn

至尊木虫 (著名写手)

【答案】应助回帖

感谢参与,应助指数 +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

金虫 (正式写手)

引用回帖:
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

金虫 (小有名气)

real, optional :: b( : )
5楼2014-04-11 16:47:17
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 学虫dj 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 328求调剂,英语六级551,有科研经历 +3 生物工程调剂 2026-03-16 8/400 2026-03-17 19:03 by Wangjingyue
[考研] 304求调剂 +8 小熊joy 2026-03-14 8/400 2026-03-17 17:29 by ruiyingmiao
[考研] 290求调剂 +6 孔志浩 2026-03-12 11/550 2026-03-17 14:41 by 周舟舟77
[考研] 工科材料085601 279求调剂 +3 困于星晨 2026-03-17 3/150 2026-03-17 14:08 by ms629
[考研] 一志愿,福州大学材料专硕339分求调剂 +3 木子momo青争 2026-03-15 3/150 2026-03-17 07:52 by laoshidan
[考研] 中科院材料273求调剂 +4 yzydy 2026-03-15 4/200 2026-03-16 15:59 by Gaodh_82
[考研] 285求调剂 +6 ytter 2026-03-12 6/300 2026-03-16 15:05 by njzyff
[基金申请] NSFC申报书里申请人简历中代表性论著还需要在申报书最后的附件里面再上传一遍吗 20+5 NSFC2026我来了 2026-03-10 14/700 2026-03-15 23:53 by 不负韶华的虎
[考研] 0856专硕279求调剂 +5 加油加油!? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
[考研] 22408总分284求调剂 +3 InAspic 2026-03-13 3/150 2026-03-15 11:10 by zhq0425
[考研] 中科大材料与化工319求调剂 +3 孟鑫材料 2026-03-14 3/150 2026-03-14 20:10 by ms629
[考研] 本科南京大学一志愿川大药学327 +3 麦田耕者 2026-03-14 3/150 2026-03-14 20:04 by 外星文明
[考研] 265求调剂 +4 威化饼07 2026-03-12 4/200 2026-03-14 17:23 by userper
[考研] 一志愿哈工大材料324分求调剂 +5 闫旭东 2026-03-14 5/250 2026-03-14 14:53 by 木瓜膏
[考研] 331求调剂(0703有机化学 +5 ZY-05 2026-03-13 6/300 2026-03-14 10:51 by Jy?
[考研] 招收0805(材料)调剂 +3 18595523086 2026-03-13 3/150 2026-03-14 00:33 by 123%、
[考研] 304求调剂 +6 Mochaaaa 2026-03-12 7/350 2026-03-13 22:18 by 星空星月
[考研] 一志愿211化学学硕310分求调剂 +8 努力奋斗112 2026-03-12 9/450 2026-03-13 15:41 by JourneyLucky
[考研] 314求调剂 +7 无懈可击的巨人 2026-03-12 7/350 2026-03-13 15:40 by JourneyLucky
[考博] 福州大学杨黄浩课题组招收2026年专业学位博士研究生,2026.03.20截止 +3 Xiangyu_ou 2026-03-12 3/150 2026-03-13 09:36 by duanwu655
信息提示
请填处理意见