| 查看: 951 | 回复: 8 | |||
| 当前主题已经存档。 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】fortran 变量传递的问题 已有1人参与
|
|||
|
变量调用的问题 如我在循环调用子程序, do k=1,num 子程序 enddo 我想在循环第10次的情况下把子程序中的某个变量保存的数据读出来,也就是在子程序中加个对k的判断条件: if k.eq.10,then的条件,可是我把k设置为common或者是public都不行,应该怎么做呢 |
回复此楼» 猜你喜欢
求助:我三月中下旬出站，青基依托单位怎么办？
已经有9人回复
-
Cas 72-43-5需要30g，定制合成，能接单的留言
已经有8人回复
-
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？
已经有8人回复
-
磺酰氟产物，毕不了业了！
已经有5人回复
-
论文终于录用啦！满足毕业条件了
已经有25人回复
-
2026年机械制造与材料应用国际会议 （ICMMMA 2026）
已经有3人回复
-
自荐读博
已经有3人回复
-
不自信的我
已经有5人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg(金币+1):辛苦了 2010-04-03 21:09
nono2009(金币+2, 程序强帖+1):鼓励应助！ 2010-04-04 08:25
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg(金币+1):辛苦了 2010-04-03 21:09
nono2009(金币+2, 程序强帖+1):鼓励应助！ 2010-04-04 08:25
|
implicit real + common...这样下去迟早把beginner们都吓跑了... 全局变量可以用module来实现啊 module global_mod implicit none public integer :: i_global endmodule global_mod subroutine main(a,b,c,d,e,f,g) use global_mod implicit none ... do i_global=1,num call sub_a(x,y) enddo endsubroutine subroutine sub_a(xi,yi) use global_mod implicit none .... if(i_global == 100) then .... endif endsubroutine 一般都是把全局变量放一个public 的module里写入一个单独的f90文件中 把功能相近的程序封到别的module中在放入单独的f90文件里，需要哪个module 就调哪个（use）, 每个module都用implicit none确保变量有显性数值类型，能不用common就不用common，一定不用equivalence. 唉..中文的fortran教材都太烂，除了那本台湾教授的fortran95程序设计。 英文的fortran书，我强烈推荐Fortran 90 Programming, by T.M.R. Ellis, et. al, 不过似乎没有e版，我也花了N元买的纸版。 [ Last edited by figgers on 2010-4-3 at 15:51 ] |
9楼2010-04-03 15:49:08
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1431.3
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 441.5小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
2楼2009-11-26 18:35:57
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1431.3
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 441.5小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
3楼2009-11-26 18:36:54
4楼2009-11-26 19:49:55