- 积分
- 15891
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-1-21
- 最后登录
- 1970-1-1
|
发表于 2015-8-22 06:41:11
|
显示全部楼层
- program torn
- implicit none
- integer,parameter::n=3,m=7
- integer i,j,tst
- !dimension torna(M,N)
- real, DIMENSION (M,N) ::torna
- REAL, DIMENSION (N,M) :: RES
- open(UNIT=100,file='Text1.txt',ACTION='READ',STATUS='OLD',IOSTAT=TST)
- IF (TST /= 0) THEN
- WRITE(*,*)'OPEN FAILED!'
- ELSE
- WRITE(*,*) 'OPEN FILE CONDITION:',TST
-
- READ(100,*,IOSTAT=TST) torna
-
- END IF
- WRITE(*,*) 'READ CONDITION:',TST
- RES=TRANSPOSE(TORNA)
- !read(100,*)torna
- !10 format(I5)
- !200 print*,i,j
-
- print*,torna
- WRITE(*,'(7F7.2)') ((RES(I,J),J=1,7),I=1,3)
- close(100)
- end PROGRAM TORN
复制代码
输入文件是你数据的前三行。
你是不是程序里写的输入文件名跟你实际的输入文件名不符啊,那个出现-1就是读取失败啊。
查看下你的文件名是否对应。
另外,上面这个程序只是测试下能否读取,不一定是最快捷的方式,仅供参考! |
|