版块导航: 正在加载中...

登录注册

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

24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

行云流水cs

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 1485.2
散金: 6
帖子: 93
在线: 78.3小时
虫号: 856236
注册: 2009-09-25
专业: 化学动力学

[求助] 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

回复此楼

为无为，事无事，味无味。大小，多少，抱怨以德。图难乎其易也，为大乎其细也。

1楼2012-06-24 12:23:29

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

purplewds

铜虫 (小有名气)

应助: 4 (幼儿园)
金币: 124.8
帖子: 64
在线: 17.4小时
虫号: 1111551
注册: 2010-09-30
性别: GG
专业: 结构工程

【答案】应助回帖

感谢参与，应助指数 +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 个回答

mingkeng

至尊木虫 (正式写手)

应助: 11 (小学生)
金币: 9386.4
帖子: 620
在线: 213.2小时
虫号: 194003
注册: 2006-02-22
专业: 大气科学

【答案】应助回帖

★ ★ ★ ★ ★ ★
感谢参与，应助指数 +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的回帖

行云流水cs

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 1485.2
散金: 6
帖子: 93
在线: 78.3小时
虫号: 856236
注册: 2009-09-25
专业: 化学动力学

引用回帖:

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的回帖

mingkeng

至尊木虫 (正式写手)

应助: 11 (小学生)
金币: 9386.4
帖子: 620
在线: 213.2小时
虫号: 194003
注册: 2006-02-22
专业: 大气科学

引用回帖:

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的回帖

查看全部 7 个回答