| 查看: 1040 | 回复: 8 | |||
| 当前主题已经存档。 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】fortran 变量传递的问题 已有1人参与
|
|||
|
变量调用的问题 如我在循环调用子程序, do k=1,num 子程序 enddo 我想在循环第10次的情况下把子程序中的某个变量保存的数据读出来,也就是在子程序中加个对k的判断条件: if k.eq.10,then的条件,可是我把k设置为common或者是public都不行,应该怎么做呢 |
回复此楼» 猜你喜欢
2026年华南师范大学欢迎化学，化工，生物，生医工等专业优秀学子加入！
已经有5人回复
-
298求调剂
已经有3人回复
-
数一英一271专硕（085401）求调剂，可跨
已经有8人回复
-
295求调剂
已经有4人回复
-
0856求调剂
已经有5人回复
-
材料学硕333求调剂
已经有10人回复
-
299求调剂
已经有6人回复
-
一志愿郑州大学，080500学硕，总分317分求调剂
已经有6人回复
-
289求调剂
已经有12人回复
-
070305高分子化学与物理 304分求调剂
已经有6人回复
★ ★ ★ ★
小木虫(金币+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 (幼儿园)
- 金币: 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
20