| 查看: 898 | 回复: 19 | |||
w76990480荣誉版主 (文坛精英)
super-emuch
|
[求助]
do循环中调用子程序
|
||
|
fortran 语言 do i=1,100 call subion2 enddo 这样在do循环里面 调用子程序怎么不调用 |
回复此楼» 猜你喜欢
过年走亲戚时感受到了所开私家车的鄙视链
已经有10人回复
-
今年春晚有几个节目很不错，点赞！
已经有12人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有13人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有12人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教如下子程序中红色部分代码的用法。谢谢！
已经有3人回复
- 【求助】子程序传值出错
已经有5人回复
w76990480
荣誉版主 (文坛精英)
super-emuch
- 应助: 47 (小学生)
- 贵宾: 13.729
- 金币: 109737
- 散金: 29386
- 红花: 337
- 沙发: 50
- 帖子: 23151
- 在线: 3166.8小时
- 虫号: 942733
- 注册: 2010-01-15
- 专业: 固体力学
- 管辖: 文献求助
6楼2013-04-06 19:48:38
2楼2013-04-06 14:13:23
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
3楼2013-04-06 14:31:32
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555220
- 散金: 27828
- 红花: 2147
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
4楼2013-04-06 14:54:01
w76990480
荣誉版主 (文坛精英)
super-emuch
- 应助: 47 (小学生)
- 贵宾: 13.729
- 金币: 109737
- 散金: 29386
- 红花: 337
- 沙发: 50
- 帖子: 23151
- 在线: 3166.8小时
- 虫号: 942733
- 注册: 2010-01-15
- 专业: 固体力学
- 管辖: 文献求助
5楼2013-04-06 19:48:18
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555220
- 散金: 27828
- 红花: 2147
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
7楼2013-04-06 19:49:59
w76990480
荣誉版主 (文坛精英)
super-emuch
- 应助: 47 (小学生)
- 贵宾: 13.729
- 金币: 109737
- 散金: 29386
- 红花: 337
- 沙发: 50
- 帖子: 23151
- 在线: 3166.8小时
- 虫号: 942733
- 注册: 2010-01-15
- 专业: 固体力学
- 管辖: 文献求助
|
do i=1,1 tdh=tdh+2000 select case (tdh) case (1:9) write(form,"(i1)"  tdhcase (10:99) write(form,'(i2)') tdh case (100:999) write(form,'(i3)') tdh case (1000:9999) write(form,'(i4)') tdh case (10000:99999) write(form,'(i5)') tdh case (100000:999999) write(form,'(i6)') tdh end select write(filename,*) "test2.",trim(form) OPEN (UNIT=13, file='d:\2\3.dat') open(tdh,file=filename) read(tdh,*) read(tdh,*) read(tdh,*) read(tdh,*) read(tdh,*) read(tdh,*) read(tdh,*) read(tdh,*) read(tdh,*) 120 read(tdh,*,end=130) a1,a2,a3,a4,a5 write(13,70) a1,a3,a4,a5 goto 120 130 backspace i call subion21 enddo |
8楼2013-04-06 19:51:37
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555220
- 散金: 27828
- 红花: 2147
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
9楼2013-04-06 19:56:19
w76990480
荣誉版主 (文坛精英)
super-emuch
- 应助: 47 (小学生)
- 贵宾: 13.729
- 金币: 109737
- 散金: 29386
- 红花: 337
- 沙发: 50
- 帖子: 23151
- 在线: 3166.8小时
- 虫号: 942733
- 注册: 2010-01-15
- 专业: 固体力学
- 管辖: 文献求助
10楼2013-04-06 19:57:55