| 查看: 328 | 回复: 4 | |||
| 当前主题已经存档。 | |||
jkr74木虫 (正式写手)
|
[交流]
【求助】这句怎么执行的？
|
||
|
有一段代码是这样的： ...................................................... IF(COORDS(2).GT.width) GOTO 1500 ELSE GOTO 1500 ENDIF H(1) = strip_h GOTO 2000 ************************************************************* CALCULATION OF STANDARD CONVECTION COEFFICIENT. 1500 ....................................................... 上面的width是一给定的常量，比如是0.5. COORDS(2).是变量。假如COORDS(2)=0.4时，会不会执行H(1) = strip_h 和 GOTO 2000呢？ 感觉不管如何H(1) = strip_h 和 GOTO 2000都不会执行 |
回复此楼» 猜你喜欢
光量子物理方向 博士招生 1人（2026.09）
已经有3人回复
-
求有机合成大神指点三硫酸乙烯酯（CAS：2793408-99-6）的合成路线
已经有10人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有5人回复
-
如何实现卤原子转化
已经有5人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有6人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有5人回复
-
考博自荐
已经有4人回复
-
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有4人回复
hakekill
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1709.3
- 帖子: 131
- 在线: 19小时
- 虫号: 246017
- 注册: 2006-04-29
- 性别: GG
- 专业: 水环境与生态水利
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+2):谢谢应助！ 2010-03-09 09:56
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+2):谢谢应助！ 2010-03-09 09:56
|
我的理解是这样的： IF() THEN ...... IF(COORDS(2).GT.width) GOTO 1500 ELSE GOTO 1500 ENDIF 也就是说endif对应的if还在前面，只是如果endif对应的if的判断为真就执行部分程序，比如说求COORDS(2)的值，然后再对这个值做判断，如果为真，就跳到1500；如果endif对应的if为假就直接跳到1500. 对于你给的例子，对COORDS(2)与width做判断为假，则结束endif对应的if结构，接下来就执行H(1)=strip_h了 |
2楼2010-03-09 09:21:51
ftp0000
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1822.1
- 帖子: 292
- 在线: 6.6小时
- 虫号: 585530
- 注册: 2008-08-08
- 专业: 凝聚态物性 II ：电子结构
3楼2010-03-09 12:16:20
jkr74
木虫 (正式写手)
- 应助: 7 (幼儿园)
- 金币: 1430.6
- 散金: 200
- 红花: 1
- 帖子: 570
- 在线: 463.5小时
- 虫号: 752697
- 注册: 2009-04-19
- 性别: GG
- 专业: 力学
|
............................................................................ C IF(JLTYP.EQ.11)THEN IF(COORDS(2).GT.width) GOTO 1500 ELSE GOTO 1500 ENDIF H(1) = strip_h GOTO 2000 ************************************************************* CALCULATION OF STANDARD CONVECTION COEFFICIENT. 1500 .............................................................................. 我开始也是这样理解的，但是上面的第一句显然是注释语句！ |
4楼2010-03-10 11:04:11
jkr74
木虫 (正式写手)
- 应助: 7 (幼儿园)
- 金币: 1430.6
- 散金: 200
- 红花: 1
- 帖子: 570
- 在线: 463.5小时
- 虫号: 752697
- 注册: 2009-04-19
- 性别: GG
- 专业: 力学
余泽成:想尽快得到回复的话可以引用上面应助者的回复！ 2010-03-10 13:19
jjdg:2000在外面，是无论如何都会跳过去的吧！ 2010-03-10 15:21
jjdg:2000在外面，是无论如何都会跳过去的吧！ 2010-03-10 15:21
|
通过仔细推敲我的理解是这样的，首先那个C可能是笔误！ 这段代码的结构是这样的： IF(JLTYP.EQ.11)THEN IF(COORDS(2).GT.width) GOTO 1500 ELSE GOTO 1500 ENDIF H(1) = strip_h GOTO 2000 ************************************************************* CALCULATION OF STANDARD CONVECTION COEFFICIENT. 1500 ......................................................................... 第一句IF(JLTYP.EQ.11)THEN 判断是肯定为真的（根据其他方面可以得到），假如 IF(COORDS(2).GT.width) 为假，就开始执行 ENDIF后面的语句了。 |
5楼2010-03-10 11:16:45
精华III: