| 查看: 1164 | 回复: 8 | |||
| 当前主题已经存档。 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
[交流]
【求助】fortran 变量传递的问题 已有1人参与
|
|||
|
变量调用的问题 如我在循环调用子程序, do k=1,num 子程序 enddo 我想在循环第10次的情况下把子程序中的某个变量保存的数据读出来,也就是在子程序中加个对k的判断条件: if k.eq.10,then的条件,可是我把k设置为common或者是public都不行,应该怎么做呢 |
回复此楼» 猜你喜欢
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有3人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有4人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有3人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有5人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有5人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有6人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有5人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有6人回复
-
时间戳又变了
已经有3人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有4人回复
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
2楼2009-11-26 18:35:57
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
3楼2009-11-26 18:36:54
4楼2009-11-26 19:49:55
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555230
- 散金: 27828
- 红花: 2148
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
5楼2009-11-26 20:07:28
6楼2010-01-04 09:20:54
hakekill
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1709.3
- 帖子: 131
- 在线: 19小时
- 虫号: 246017
- 注册: 2006-04-29
- 性别: GG
- 专业: 水环境与生态水利
7楼2010-01-04 16:56:42
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
8楼2010-01-05 21:30:58
★ ★ ★ ★
小木虫(金币+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
170