24小时热门版块排行榜    

Znn3bq.jpeg
查看: 2402  |  回复: 6

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,没见过这样的格式
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 上海大学实验技术岗位非升即走 +8 嘻嘻哈哈乐呵呵 2026-05-15 8/400 2026-05-18 11:53 by ning312
[硕博家园] 考博自荐 +5 科研狗111 2026-05-13 6/300 2026-05-18 11:22 by 糊糊涂涂好
[基金申请] 青C资助名额大幅增加! +12 西葫芦炒鸡蛋 2026-05-13 16/800 2026-05-18 10:02 by Equinoxhua
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
[基金申请] 面上本子正文33页,违规吗?会被低分嘛? +5 1234567wang 2026-05-17 6/300 2026-05-17 21:18 by maxjing
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 xx7gd5zq4e 2026-05-15 6/300 2026-05-17 19:36 by Equinoxhua
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 cjf4bx70cj 2026-05-14 7/350 2026-05-17 18:49 by Equinoxhua
[考博] 找博士生导师 +4 小代想上岸 2026-05-15 5/250 2026-05-17 17:44 by 脱颖而出
[考博] 光量子物理方向 博士招生 1人(2026.09) +3 sandyworld 2026-05-15 4/200 2026-05-17 14:38 by sandyworld
[公派出国] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:16 by 11n4dfd8yn
[考博] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:11 by 11n4dfd8yn
[找工作] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:37 by ue3ir18jc3
[考博] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 4/200 2026-05-17 00:57 by ue3ir18jc3
[公派出国] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 x0mp7owy2b 2026-05-15 4/200 2026-05-17 00:35 by ue3ir18jc3
[有机交流] 求助2,4-二氯-5-嘧啶甲醛的合成方法 20+3 光吃不拉 2026-05-14 6/300 2026-05-16 19:46 by Equinoxhua
[有机交流] 求有机合成大神指点三硫酸乙烯酯(CAS:2793408-99-6)的合成路线 30+3 Leekmid 2026-05-13 10/500 2026-05-16 16:37 by czyzsu
[硕博家园] 申请博士 +3 呃?呃 2026-05-15 3/150 2026-05-16 11:01 by a4742549
[教师之家] 教学课件你会给同学吗 +8 硕士研究生吗 2026-05-13 8/400 2026-05-14 22:23 by 常规沥青
[考博] 26应届毕业生考博求助 +3 wo一定上岸 2026-05-13 3/150 2026-05-14 21:47 by 明海天涯
[考博] 材料类只有一篇综述能申博么 +4 乐逍遥谷 2026-05-13 4/200 2026-05-14 12:05 by zhyzzh
信息提示
请填处理意见