24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1016  |  回复: 2

songjunann

铜虫 (小有名气)

[求助] 请教Fortran fixed format 文件的换行问题,谢谢

在Fortran free format source file里面,如下换行语句是没问题的(在前一行末尾一个&,下一行开头一个&)
open(1,FILE='G:\Program Files\Fortranprogram\fej&
     &        \pato\0802.dat)
但是在Fortran fixed format source file里,上述换行语句有问题的,所以我请教在 fixed format 下,上述语句要怎么改,使得换行也可以。谢谢

另外请教一下,在compaq VF里面,文件后缀有.f , .f90, .for,这三个文件有什么区别吗?.for是fortran77吗?.f 是f90和for两者都可以代表?谢谢
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
songjunann(金币+5): 谢谢,不过好像换行的方法,第二种途径我试了一下不行,这种路径的换行跟表达式的不一样 2011-08-06 10:23:13
jjdg(金币+2): 感谢参与 2011-08-06 15:29:57
fixed format中,有两种途径:

1)把第一行的 & 删掉;这种修改结果用 free format 方式没有办法编译;
2)把第一行的 & 放到第 73~80 列上,这样,在 fix format 中它会被忽略,因为 fix format 的有效宽度是 1~72 列,其中 7~72 列是源代码,6 是续行,1~5 是标号,73~80 一般可以用作行的序号,但会被编译器忽略。

因此,你用第二种方法可以保证你在任何情况下都不会出错,呵呵……

.f 和 .for 一般认为是 fix format 的,而 .f90 一般认为是 free format 的……
2楼2011-08-06 08:33:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
songjunann(金币+10): Ok,用这个方法可以,厉害啊 2011-08-06 11:45:35
jjdg(金币+2): 感谢参与 2011-08-06 15:30:04
哦,我没有看清楚你的问题,抱歉……

你的那个应该这么来做:
CODE:
      open(1,FILE='G:\Program Files\Fortranprogram\fej'//
     &        '\pato\0802.dat')

当然,你的路径中能不能用 \ 我就不清楚了……
3楼2011-08-06 11:17:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 songjunann 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 320求调剂 +5 振—TZ 2026-04-02 5/250 2026-04-03 14:42 by fxue1114
[考研] 调剂 +4 asdasdassda 2026-04-03 5/250 2026-04-03 14:02 by 百灵童888
[考研] 材料考研调剂 +10 Gs大王 2026-04-02 10/500 2026-04-03 09:47 by 遗忘消失的灆
[考研] 085600材料与化工调剂 +22 kikiki7 2026-03-30 22/1100 2026-04-03 09:38 by hypershenger
[考研] 一志愿a区211,085601-307分求调剂 +13 党嘉豪 2026-03-31 26/1300 2026-04-03 08:33 by 495374996
[考研] 277求调剂 +3 12A3 2026-04-02 3/150 2026-04-02 21:30 by swb0218
[考研] 260求调剂 +6 朱芷琳 2026-04-02 6/300 2026-04-02 20:27 by 6781022
[考研] 279求调剂 +5 傅文秋 2026-04-02 5/250 2026-04-02 18:10 by 笔落锦州
[考研] 求调剂 302分初试 0854 +5 伶可乐 2026-04-02 5/250 2026-04-02 17:53 by 笔落锦州
[考研] 材料工程322分 +8 哈哈哈吼吼吼哈 2026-04-01 8/400 2026-04-02 11:53 by 3041
[考研] 301求调剂 +13 A_JiXing 2026-04-01 13/650 2026-04-02 09:01 by sanrepian
[考研] 求调剂0703 +5 周嘉尧 2026-03-31 8/400 2026-04-01 20:32 by ltltkkk
[考研] 【求调剂】085601材料工程专硕 | 总分272 | +10 脚滑的守法公民 2026-03-27 10/500 2026-04-01 17:23 by pies112
[考研] 求调剂 +4 DADA怪 2026-03-31 4/200 2026-04-01 14:30 by ZXlzxl0425
[考研] 0855机械初试280求调剂 +3 kazenotori 2026-03-31 3/150 2026-04-01 10:08 by JourneyLucky
[考研] 375求调剂 +7 雨夏整夜 2026-03-29 7/350 2026-03-31 18:52 by xhai2011
[考研] 合肥区域性重点一本招收调剂 +4 6266jl 2026-03-30 8/400 2026-03-31 18:43 by 6266jl
[考研] 考研调剂求助 +7 13287130938 2026-03-31 7/350 2026-03-31 16:39 by 690616278
[考研] 求收留 +8 1943443204 2026-03-28 8/400 2026-03-31 15:00 by -迷了路啊路
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
信息提示
请填处理意见