Fortran Coder

标题: 求大神赐教IF语句 [打印本页]

作者: landaifeng 时间: 2014-6-10 16:08
标题: 求大神赐教IF语句
请问大家知不知道这段语句中的IF语句后面的500,510,510是什么意思啊？我是新手，查资料没有找到！

[Fortran] 纯文本查看 复制代码

IF(KU-KL)500,510,510

510 K=N

DO 520 KK=KL,KU

K=K-1

520 V(K,IP)=V(K,IP)-A(KK)*V(N,IP)

500 N=N-1

作者: 楚香饭 时间: 2014-6-10 16:52
等效于

[Fortran] 纯文本查看 复制代码

if ( KU- KL ) <0 then goto 500

if ( KU- KL ) ==0 then goto 510

if ( KU- KL ) >0 then goto 510

作者: 麦田守望者 时间: 2014-6-10 19:04
又是老代码吧，我看95里面是没有这个啊

作者: vvt 时间: 2014-6-10 20:02

麦田守望者发表于 2014-6-10 19:04
又是老代码吧，我看95里面是没有这个啊

老语法,建议新代码不要这样写.

作者: landaifeng 时间: 2014-6-11 09:19

chuxf 发表于 2014-6-10 16:52
等效于

谢谢！我就是在新的书里面没有看到过，但是我看一个程序里面有这个语句，所以就不懂了！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)