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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » FORTRAN 读取文件数据出错
51/1返回列表
查看: 1576  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

行云流水cs

金虫 (小有名气)

[求助] FORTRAN 读取文件数据出错

PROGRAM MAIN
        REAL L(1340,4)
        M=1340
        N=4
        OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')
        READ(1,*) ((L(M,N),I=1,N),J=1,M)
        OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED')
        WRITE(2,200) L
        CLOSE(1)
        CLOSE(2)
200        FORMAT(1X,4F10.2)
        END


F1.DAT 部分文件
2570        2649        2540        2530

2532        2558        2544        2459

2479        2494        2515        2450

2448        2511        2458        2448

2407        2515        2510        2407

2436        2444        2384        2396

2320        2362        2330        2316

2280        2382        2320        2315

2324        2369        2252        2260

2282        2284        2303        2241

2239        2347        2232        2215

但是F2.DAT 怎么全是0
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
       0.00      0.00      0.00      0.00
回复此楼

» 收录本帖的淘帖专辑推荐

Linux系统学习

» 本帖已获得的红花（最新10朵）

行云流水cs

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
为无为，事无事，味无味。大小，多少，抱怨以德。图难乎其易也，为大乎其细也。
1楼 2012-06-24 12:23:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

行云流水cs

金虫 (小有名气)
引用回帖:
2楼: Originally posted by mingkeng at 2012-06-24 22:47:25
PROGRAM MAIN
        REAL L(1340,4)
        M=1340
        N=4
        OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')
        READ(1,*) ((L(j,i),I=1,N),J=1,M)
     ...

PROGRAM MAIN
        INTEGER L(1340,4)
        M=1340
        N=4
        OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')
        READ(1,100) ((L(j,i),I=1,N),J=1,M)
        OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED')
        WRITE(2,200) L
        CLOSE(1)
        CLOSE(2)
100        FORMAT（4I6）
200        FORMAT(4（2X,4I6）)
        END
对程序稍微改了一下，但是出现了input conversion error。我知道  READ(1,100) ((L(j,i),I=1,N),J=1,M)
100        FORMAT（4I6）有错误。但不知道怎么改。麻烦你帮我看看。
赞一下 回复此楼
为无为，事无事，味无味。大小，多少，抱怨以德。图难乎其易也，为大乎其细也。
3楼2012-06-25 10:40:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答

mingkeng

至尊木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
jjdg: 金币+1, 感谢参与 2012-06-25 00:07:55
行云流水cs: 金币+5, ★★★很有帮助 2012-06-25 10:36:02
PROGRAM MAIN
        REAL L(1340,4)
        M=1340
        N=4
        OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')
        READ(1,*) ((L(j,i),I=1,N),J=1,M)
        OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED')
        WRITE(2,200) L
        CLOSE(1)
        CLOSE(2)
200        FORMAT(1X,4F10.2)
        END


将READ(1,*) ((L(M,N),I=1,N),J=1,M)修改为READ(1,*) ((L(j,i),I=1,N),J=1,M)即可
赞一下 回复此楼
2楼2012-06-24 22:47:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mingkeng

至尊木虫 (正式写手)
引用回帖:
3楼: Originally posted by 行云流水cs at 2012-06-25 10:40:58
PROGRAM MAIN
        INTEGER L(1340,4)
        M=1340
        N=4
        OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')
        READ(1,100) ((L(j,i),I=1,N),J=1,M) ...

必须知道你原始数据的排放格式？作为附件，发上来看看，有一两行就行
赞一下 回复此楼
4楼2012-06-26 17:41:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

purplewds

铜虫 (小有名气)

【答案】应助回帖

感谢参与，应助指数 +1
二楼 说的对
你需要格式 100（4I6）
只要把
F1.DAT 部分文件
2570        2649        2540        2530

2532        2558        2544        2459

改成
F1.DAT 部分文件
  2570  2649  2540  2530
  2532  2558  2544  2459
每个数据前有两个空格， 行与行之间没有回车就OK了
赞一下 回复此楼
5楼2012-06-26 18:53:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0854控制工程 359求调剂 可跨专业 +3 626776879 2026-03-14 9/450 2026-03-16 17:42 by 626776879
[考研] 一志愿985，本科211，0817化学工程与技术319求调剂 +5 Liwangman 2026-03-15 5/250 2026-03-16 17:10 by 我的船我的海
[考研] 304求调剂 +6 小熊joy 2026-03-14 6/300 2026-03-16 12:59 by Iveryant
[基金申请] NSFC申报书里申请人简历中代表性论著还需要在申报书最后的附件里面再上传一遍吗 20+5 NSFC2026我来了 2026-03-10 14/700 2026-03-15 23:53 by 不负韶华的虎
[考研] 288求调剂 +4 奇点0314 2026-03-14 4/200 2026-03-14 23:04 by JourneyLucky
[考研] 中科大材料专硕319求调剂 +3 孟鑫材料 2026-03-13 3/150 2026-03-14 18:10 by houyaoxu
[考研] 0856材料与化工309分求调剂 +6 ZyZy…… 2026-03-10 6/300 2026-03-14 00:38 by JourneyLucky
[考研] 308求调剂 +3 是Lupa啊 2026-03-10 3/150 2026-03-14 00:30 by JourneyLucky
[考研] 一志愿湖师大化学289求调剂 +6 XMCMM3.14159 2026-03-10 6/300 2026-03-14 00:28 by JourneyLucky
[考研] 279求调剂 +3 Dizzy123@ 2026-03-10 3/150 2026-03-13 23:02 by JourneyLucky
[考研] 0703化学调剂 +4 快乐的香蕉 2026-03-11 4/200 2026-03-13 22:41 by JourneyLucky
[考研] 26调剂/材料/英一数二/总分289/已过A区线 +6 步川酷紫123 2026-03-13 6/300 2026-03-13 21:59 by 星空星月
[考研] 329求调剂 +3 miaodesi 2026-03-12 4/200 2026-03-13 20:53 by 18595523086
[考研] 285化工学硕求调剂（081700） +6 柴郡猫_ 2026-03-12 6/300 2026-03-13 20:46 by hmn_wj
[考研] 【0856】化学工程（085602）313 分，本科学科评估A类院校化学工程与工艺，诚求调剂 +7 小刘快快上岸 2026-03-11 7/350 2026-03-13 16:06 by ruiyingmiao
[考研] 工科278分求调剂 +5 周慢热啊 2026-03-12 7/350 2026-03-13 15:49 by JourneyLucky
[考研] 一志愿211化学学硕310分求调剂 +8 努力奋斗112 2026-03-12 9/450 2026-03-13 15:41 by JourneyLucky
[考研] 314求调剂 +7 无懈可击的巨人 2026-03-12 7/350 2026-03-13 15:40 by JourneyLucky
[考研] 304求调剂（085602一志愿985） +12 化工人999 2026-03-09 12/600 2026-03-13 12:02 by JourneyLucky
[考研] 0856化学工程280分求调剂 +4 shenzxsn 2026-03-11 4/200 2026-03-13 11:55 by ymwdoctor
信息提示
关闭
请填处理意见
关闭