| 查看: 371 | 回复: 2 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】请教external函数
|
|||
|
请问external这个函数都有什么用呢？请举例说明下，谢谢！ [ Last edited by nono2009 on 2009-10-9 at 09:14 ] |
回复此楼» 猜你喜欢
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有7人回复
-
申请2026年博士
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有5人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有6人回复
-
2025冷门绝学什么时候出结果
已经有7人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555160
- 散金: 27828
- 红花: 2147
- 沙发: 66666
- 帖子: 1602246
- 在线: 65200.8小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
2楼2009-10-09 09:17:01
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51002.6
- 红花: 238
- 帖子: 7227
- 在线: 474.2小时
- 虫号: 27000
- 注册: 2003-10-21
- 专业: 药物代谢与药物动力学
- 管辖: 程序语言
★ ★ ★ ★
nono2009(金币+2,VIP+0):谢谢热心帮助。欢迎常来交流。 10-9 10:17
yudf65(金币+2,VIP+0): 10-9 11:06
nono2009(金币+2,VIP+0):谢谢热心帮助。欢迎常来交流。 10-9 10:17
yudf65(金币+2,VIP+0): 10-9 11:06
|
◆EXTERNAL属性和哑过程 (哑元为外部过程，即哑过程) 指定EXTERNAL语句或属性说明实元实际上是外部过程 类型定义语句： 类型,EXTERNAL :: 外部函数名[,外部函数名]… 或EXTERNAL语句：EXTERNAL [外部函数名][,子程序名][,块数据名]… 哑元也可以是一个过程，这时作为哑元的过程称为哑过程。（至少两层调用） 例如： !----------------------------------------------------------------------- Programm main Real x,y External Plus !外部过程名作实元，必须用External说明，或者具有External属性 x=1.0 ; y=2.0 Print,* Calculate(x,y,Plus) !调用Calculate函数，实元为外部过程Plus End Program main Real Function Plus(a,b) !(第二层被调用的外部函数) Real, Intent(In) :: a,b Plus=a+b End Function Plus Real Function Calculate (x,y,func) Real, Intent(In) :: x,y Real, External func !类型定义语句, 说明哑元时一个外部过程, 也可以直接用External说明 Calculate=func(x,y) !调用自定义的外部函数 End Function Calculate !----------------------------------------------------------------------- 或者将 Real, External func 改为接口程序： Interface Real Function Plus(a,b) !Plus被接口块说明为一个哑元，即一个哑过程 Real, Intent(In) :: a,b End Function Plus End Interface [ Last edited by jjdg on 2009-10-9 at 09:40 ] |
3楼2009-10-09 09:38:32