应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » for77里if 后面跟数字的格式是什么意思？
北京石油化工学院2026年研究生招生接收调剂公告
71/1返回列表
查看: 2373  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

lx_PICO

铁虫 (正式写手)

[交流] for77里if 后面跟数字的格式是什么意思？ 已有3人参与

if (j-nc(k)) 22,21,22
21            kk=nc(k-1)+1
        go to 23
22      continue

22,21,22，是指逻辑为真后的执行顺序？以前都是看的f90，没见过这样的格式
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2015-05-30 11:24:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
这个叫算数if语句 (IF - Arithmetic)
如果 j-nc(k) < 0 就 goto 22
如果 j-nc(k) = 0 就 goto 21
如果 j-nc(k) > 0 就 goto 22

这个f90 也承认的，用的人比较少。因为有了if-else then block， 实际上不需要这个。
赞一下 回复此楼
2楼2015-05-30 14:52:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lx_PICO

铁虫 (正式写手)
引用回帖:
2楼: Originally posted by pippi6 at 2015-05-30 14:52:32
这个叫算数if语句 (IF - Arithmetic)
如果 j-nc(k) < 0 就 goto 22
如果 j-nc(k) = 0 就 goto 21
如果 j-nc(k) > 0 就 goto 22

这个f90 也承认的，用的人比较少。因为有了if-else then block， 实际上不 ...

哦，是早期版本的fortran语法吧？我百度都找不到相关资料，for77的书也没说这种用法，请问哪里能看到相关的资料？谢谢了
赞一下 回复此楼
3楼2015-05-30 16:11:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
3楼: Originally posted by lx_PICO at 2015-05-30 16:11:58
哦，是早期版本的fortran语法吧？我百度都找不到相关资料，for77的书也没说这种用法，请问哪里能看到相关的资料？谢谢了...

fortran help for CVF
look for IF - Arithmetic
赞一下 回复此楼
4楼2015-05-30 16:36:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
4楼: Originally posted by pippi6 at 2015-05-30 16:36:44
fortran help for CVF
look for IF - Arithmetic...

查help，这是学习Fortran的最好办法
赞一下 回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : DFMAIN.CHM
    • 2015-05-30 16:43:14, 3.6 M
5楼2015-05-30 16:43:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

seanbsd

木虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
这个只能去看Fortran77的帮助文件了，有些平台版本有差异，未必是对问题最合适的解答。
赞一下 回复此楼
6楼2015-06-04 13:17:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bingo555

禁虫 (初入文坛)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
本帖内容被屏蔽
7楼2015-06-07 20:26:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lx_PICO 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿安徽大学0817化学工程与技术，求调剂 +9 我不是只因 2026-04-02 9/450 2026-04-03 00:55 by 小徐0109
[考研] 一志愿0817化学工程与技术，求调剂 +7 我不是只因 2026-04-02 8/400 2026-04-03 00:15 by 雨天撑伞
[考研] 309求调剂 +11 呆菇不是戴夫 2026-04-02 11/550 2026-04-02 22:48 by 科研小专家
[考研] 求调剂 +5 朔朔话 2026-04-02 6/300 2026-04-02 22:02 by barlinike
[考研] 考研调剂 +3 李木子0120 2026-04-02 5/250 2026-04-02 21:45 by dongzh2009
[考研] 环境工程297分求调剂一志愿杭高院 +15 GENJIOW 2026-03-31 16/800 2026-04-02 17:56 by cyh—315
[考研] 270求调剂 +8 小杰pp 2026-03-31 10/500 2026-04-02 12:57 by yulian1987
[考研] 材料求调剂 一志愿哈工大总分298分，前三科223分 +12 dongfang59 2026-03-27 12/600 2026-04-02 12:26 by ms629
[考研] 085600，材料与化工321分，求调剂 +13 大馋小子 2026-03-27 13/650 2026-04-02 10:48 by sanrepian
[考研] 337求调剂 +11 《树》 2026-03-29 11/550 2026-04-02 10:20 by 不吃魚的貓
[考研] 324求调剂 +5 想上学求调 2026-04-01 6/300 2026-04-02 10:16 by sanrepian
[考研] 材料求调剂 +10 呢呢妮妮 2026-04-01 13/650 2026-04-02 09:17 by olim
[考研] 348环境工程调剂 +3 吴彦祖24k 2026-04-01 3/150 2026-04-02 09:14 by nanaliuyun
[考研] 290求调剂 +5 dfffsar 2026-03-29 5/250 2026-04-01 19:45 by 6781022
[考研] 340求调剂 +4 希望如此i 2026-03-31 4/200 2026-03-31 16:40 by 690616278
[考研] 11408总分309，一志愿东南大学求调剂，不挑专业 +5 天赋带到THU 2026-03-29 6/300 2026-03-30 20:49 by dick_runner
[考研] 279求调剂 +12 j的立方 2026-03-29 12/600 2026-03-30 20:30 by dick_runner
[考研] 328求调剂 +8 嗯滴的基本都 2026-03-27 8/400 2026-03-30 17:20 by Wang200018
[考研] 本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以 +6 芝士雪baoo 2026-03-28 8/400 2026-03-29 08:16 by 松花缸1201
[考研] 一志愿吉大071010，316分求调剂 +3 xgbiknn 2026-03-27 3/150 2026-03-27 10:36 by guoweigw
信息提示
关闭
请填处理意见
关闭