| 查看: 1038 | 回复: 8 | |||
| 当前主题已经存档。 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】fortran 变量传递的问题 已有1人参与
|
|||
|
变量调用的问题 如我在循环调用子程序, do k=1,num 子程序 enddo 我想在循环第10次的情况下把子程序中的某个变量保存的数据读出来,也就是在子程序中加个对k的判断条件: if k.eq.10,then的条件,可是我把k设置为common或者是public都不行,应该怎么做呢 |
回复此楼» 猜你喜欢
0703 化学 求调剂，一志愿山东大学 342 分
已经有3人回复
-
0703化学调剂，求导师收
已经有9人回复
-
0856求调剂
已经有3人回复
-
085701求调剂初试286分
已经有4人回复
-
求调剂
已经有8人回复
-
316求调剂
已经有6人回复
-
315求调剂
已经有5人回复
-
一志愿北京化工大学材料与化工（085600）296求调剂
已经有11人回复
-
332求调剂
已经有4人回复
-
本科新能源科学与工程，一志愿华理能动285求调剂
已经有11人回复
★ ★ ★ ★
小木虫(金币+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
5