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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台» 网络生活区» 有奖问答 » 有奖问答中转子版 » 有谁知道古老的FORTRAN语言？有几个语句请教！【有效期至2008年6月23日】
51/1返回列表
查看: 245  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

skyang

铁杆木虫 (著名写手)

[交流] 有谁知道古老的FORTRAN语言？有几个语句请教！【有效期至2008年6月23日】

1、FORMAT(F9.2,4F9.4)输出格式应该是什么？
2、  N=5
     WRITE(N,44)    X(1)
        其中的N代表什么意思？
3、IF(ISO.GT.0) GOTO 12  其中的.GT.是什么意思来着？
4、IF(D-1.E-10) 42,42,45   这个语句什么意思啊？其中的42，45都是语句行号。
非常感谢！

[ Last edited by skyang on 2008-6-23 at 13:26 ]
回复此楼

» 猜你喜欢
踏踏实实做事！
1楼 2008-06-23 07:38:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

skyang

铁杆木虫 (著名写手)
4、IF(D-1.E-10) 42,42,45   代表判断语句的不同取值所对应的执行语句。

具体是什么时候执行哪个语句呢？
赞一下 回复此楼
踏踏实实做事！
5楼2008-06-23 09:07:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

addila

木虫 (正式写手)
★ ★
skyang(金币+2,VIP+0):thanks
第一个输出： f9.2格式的数字，和4个f9.4格式的数字

2，n代表第n行的格式吧

3. 那是大于号

4. 是不是执行42两次，45一次？
赞一下(1人) 回复此楼
2楼2008-06-23 08:18:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lianghust

铁杆木虫 (正式写手)
★
skyang(金币+1,VIP+0):thanks
1:F9.2 --使用9个字符宽输出浮点数，其中小数部分占3位；4F9.4中F前面的4是连续输出四个浮点数。
2：write（N,44）：N表示输出位置。
3：.GT.: >

[ Last edited by lianghust on 2008-6-23 at 08:21 ]
赞一下(1人) 回复此楼
3楼2008-06-23 08:20:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hxfciae

木虫 (小有名气)
★ ★
skyang(金币+2,VIP+0):thanks
这都是Fortran77中的语法。
1、FORMAT(F9.2,4F9.4)输出格式是输出9个字符宽输出浮点数，其中小数部分占3位（小数点占一位）；然后连续输出4个浮点数（9个字符宽的浮点数，小数部分占5位）。？
2、  N=5
     WRITE(N,44)    X(1)
        其中的N代表输出位置，对于一般计算机而言N=5代表输出到屏幕；
3、IF(ISO.GT.0) GOTO 12  其中的.GT.代表great than，大于
4、IF(D-1.E-10) 42,42,45   代表判断语句的不同取值所对应的执行语句。
赞一下 回复此楼
4楼2008-06-23 08:40:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 BMTdnp4OJO9f 2026-11-06 4/200 2026-11-07 19:03 by Xc2FxHsHkBNc
[硕博家园] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 BMTdnp4OJO9f 2026-11-06 5/250 2026-11-07 17:45 by Xc2FxHsHkBNc
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +4 2rKfVQg2jQww 2026-11-06 5/250 2026-11-07 17:34 by Xc2FxHsHkBNc
[考研] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 5sJFDKp2kwuI 2026-11-06 4/200 2026-11-07 16:50 by Xc2FxHsHkBNc
[公派出国] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 5/250 2026-11-07 16:17 by Xc2FxHsHkBNc
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 5sJFDKp2kwuI 2026-11-06 6/300 2026-11-07 15:44 by Xc2FxHsHkBNc
[教师之家] 延安大学回应“副教授留绝笔信”：确已离世，正核实举报内容 +3 yexuqing 2026-11-04 5/250 2026-11-07 13:22 by 苏东坡二世
[公派出国] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 ELBZ6WwEaRj6 2026-11-05 5/250 2026-11-06 16:43 by 5sJFDKp2kwuI
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +6 ELBZ6WwEaRj6 2026-11-04 14/700 2026-11-06 16:32 by 5sJFDKp2kwuI
[公派出国] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +6 ttH3f1oA6ace 2026-11-04 12/600 2026-11-06 16:10 by 5sJFDKp2kwuI
[考博] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +7 ncTVBM6AOJHF 2026-11-04 17/850 2026-11-06 13:47 by BkA9Bi5cMhkD
[硕博家园] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +6 ncTVBM6AOJHF 2026-11-04 11/550 2026-11-06 13:47 by BkA9Bi5cMhkD
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +8 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-06 13:47 by BkA9Bi5cMhkD
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +8 ncTVBM6AOJHF 2026-11-04 14/700 2026-11-06 13:36 by BkA9Bi5cMhkD
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +6 kvewwGtKktqB 2026-11-04 16/800 2026-11-06 05:00 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 02:04 by qL1cU46YIdK0
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 9/450 2026-11-06 02:02 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 hNpp4Y2CGvSC 2026-11-04 12/600 2026-11-06 01:53 by qL1cU46YIdK0
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +5 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-06 01:42 by qL1cU46YIdK0
[基金申请] 各位基础老师们，看完中央《从严治党》的决定后，对学术界更加有信心了吧 +5 iaeyuan 2026-11-01 5/250 2026-11-04 14:43 by jinchengzi
信息提示
关闭
请填处理意见
关闭