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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » for77里if 后面跟数字的格式是什么意思？
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 2365  |  回复: 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, 给个红包，谢谢回帖
引用回帖:
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的回帖
查看全部 7 个回答

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的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 285求调剂 +11 AZMK 2026-04-02 11/550 2026-04-02 12:07 by 1753564080
[考研] 271求调剂 +15 勒布朗@ 2026-03-31 20/1000 2026-04-02 11:24 by Sammy2
[考研] 289求调剂 +23 新时代材料 2026-03-27 26/1300 2026-04-02 10:29 by oooqiao
[考研] 材料考研调剂 +9 Gs大王 2026-04-02 9/450 2026-04-02 10:24 by olim
[考研] 311求调剂 +16 zchqwer 2026-04-01 18/900 2026-04-02 10:15 by 不吃魚的貓
[考研] 土木304求调剂 +6 兔突突突， 2026-03-31 7/350 2026-04-02 09:06 by coolminer
[考研] 求调剂，一志愿南京师范大学计算机专硕，初试373，六级通过， +3 计算机追梦人 2026-04-01 3/150 2026-04-02 07:57 by fxue1114
[考研] 【求调剂】085601材料工程专硕 | 总分272 | +10 脚滑的守法公民 2026-03-27 10/500 2026-04-01 17:23 by pies112
[考研] 085410人工智能 初试316分 求调剂 +3 残星拂曙 2026-03-31 3/150 2026-04-01 11:09 by 小熊raider
[考研] 土木304求调剂 +3 兔突突突， 2026-03-31 3/150 2026-04-01 09:42 by JourneyLucky
[考研] 080200学硕，机械工程专业277分，求带走！ +4 瓶子PZ 2026-03-31 4/200 2026-03-31 20:16 by vgtyfty
[考研] 材料科学与工程求调剂 +13 深V宿舍吧 2026-03-29 13/650 2026-03-31 19:50 by Dyhoer
[考研] 合肥区域性重点一本招收调剂 +4 6266jl 2026-03-30 8/400 2026-03-31 18:43 by 6266jl
[考研] 080500-315分复试调剂 +9 上岸3821 2026-03-31 9/450 2026-03-31 17:29 by 唐沐儿
[考研] 物理学调剂 +4 小羊36 2026-03-30 4/200 2026-03-31 16:16 by lishahe
[考研] 085601 329分调剂 +6 yzsa12 2026-03-31 6/300 2026-03-31 15:23 by yanflower7133
[考研] 抱歉 +3 田洪有 2026-03-30 3/150 2026-03-30 19:11 by 迷糊CCPs
[考研] 一志愿南开大学0710生物学359求调剂 +5 兔兔兔111223314 2026-03-29 7/350 2026-03-30 18:29 by 兔兔兔111223314
[考研] 求佛 +7 迷人的哈哈 2026-03-28 7/350 2026-03-28 16:47 by 催化大白
[考研] 一志愿吉大071010，316分求调剂 +3 xgbiknn 2026-03-27 3/150 2026-03-27 10:36 by guoweigw
信息提示
关闭
请填处理意见
关闭