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

登录注册

应《网络安全法》要求，自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的回帖

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

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

haizhfly

木虫 (正式写手)

应助: 16 (小学生)
金币: 3134.8
帖子: 316
在线: 67.4小时
虫号: 925614
注册: 2009-12-11
专业: 天气学

【答案】应助回帖

感谢参与，应助指数 +1

把读文件时候指定的数据格式去掉 read（1，*）就能读出来

赞一下

回复此楼

6楼2012-06-27 06:59:49

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

行云流水cs

金虫 (小有名气)

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

送鲜花一朵

PROGRAM MAIN

INTEGER,ALLOCATABLE::A(:,

INTEGER M,N

WRITE(*,*)'ENTER M AND N :'

READ(*,*) M,N

ALLOCATE(A(M,N))

OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')

DO 10,I=1,M

   DO 20,J=1,N

READ(1,*) A(I,J)

20 CONTINUE

CALL SORT(A,N)

10 CONTINUE

      OPEN(UNIT=2,FILE='F2.DAT',STATUS='NEW',ACCESS='SEQUENTIAL',FORM='FORMATTED')

WRITE(2,100) ((A(I,J),J=1,N),I=1,M)

CLOSE(1)

CLOSE(2)

100 FORMAT(1X,4(3X,I6))

END

C

SUBROUTINE SORT(A,N)

INTEGER N,P,A(N),K

DO 10,J=1,N-1

   P=J

   DO 20,I=J+1,N

      IF(A(I).LT.A(P)) THEN

      P=I

END IF

20    CONTINUE

   K=A(J)

   A(J)=A(P)

   A(P)=K

10 CONTINUE

END

F1.DAT如下，希望高手帮我调试一下，我的目地是将F1.dat中的数据，读一行然后排序，再读一行再排序。但是我发现程序读取文件完全是一列读取的。几个例子:我本来想读4*4
矩阵，但是程序却读了第一列的16个数据。
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

2207 2220 2216 2200

2204 2212 2174 2133

2135 2137 2140 2079

2115 2176 2203 2036

2107 2139 2742 2067

2053 2036 5555 2020

2009 1998 3807 1960

1947 2003 4393 1978

1986 1997 4894 1929

1955 1995 2131 1959

1909 1951 1927 1903

1910 1949 1873 1849

1852 1928 1842 1848

1882 1871 1830 1829

1869 1901 1772 1768

赞一下

回复此楼

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

7楼2012-06-27 11:17:07

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