Fortran读入文件的问题

600兜兜小姐

在用fortran读数据后再输出时出现了sever（24）的问题
之后用想用简单的读取语句检测是什么问题

数据是由csv格式转成的txt格式，有一个是逗号分隔，另一个是空格分隔数据是59945*7，这里只试验了前20行


编的程序如下：
program torn
implicit none
integer,parameter::n=20,m=7
integer i,j,tst
dimension torna(n,m)
real torna
open(100,file='test.txt')
do i=1,n
  do j=1,m
  read(100,10,err=200,iostat=tst)torna(i,j)
  print*,tst
  if(tst/=0) exit
  enddo
enddo
!read(100,*)torna
10 format(I5)
200 print*,i,j
!print*,torna(1,1)
close(100)
end


结果输出的tst都为-1，不知道是不是文件中数据的分隔有问题。。

也尝试过只读一个数据，也就是（1,1），得到的结果也是有sever（24）错误的


先谢谢各位啦~~~~~

ningking1986

你的read 语句有问题。赶紧查书！你这样的do 循环使得read每次都从新的一行开始读。

600兜兜小姐

ningking1986 发表于 2015-8-21 04:45
你的read 语句有问题。赶紧查书！你这样的do 循环使得read每次都从新的一行开始读。

read语句在读写一次后不是默认自动换行吗？
我也查过书了，看到的例子也是用循环读取数据的，
后来改成循环行，读入7个数组，也是不可以，
实在不知道应该怎么改，还请说一下改正方法或者例子，十分感谢。

ningking1986

600兜兜小姐 发表于 2015-8-21 11:25
read语句在读写一次后不是默认自动换行吗？
我也查过书了，看到的例子也是用循环读取数据的，
后来改成 ...

1. program torn
   
2. implicit none
   
3. 
   
4. integer,parameter::n=3,m=7
   
5. 
   
6. integer i,j,tst
   
7. 
   
8. !dimension torna(M,N)
   
9. real, DIMENSION (M,N) ::torna
   
10. REAL, DIMENSION (N,M) :: RES
    
11. 
    
12. open(UNIT=100,file='Text1.txt',ACTION='READ',STATUS='OLD',IOSTAT=TST)
    
13. 
    
14. IF (TST /= 0) THEN
    
15.     WRITE(*,*)'OPEN FAILED!'
    
16. ELSE
    
17.     WRITE(*,*) 'OPEN FILE CONDITION:',TST
    
18.    
    
19.     READ(100,*,IOSTAT=TST) torna
    
20.    
    
21. END IF
    
22. WRITE(*,*) 'READ CONDITION:',TST
    
23. RES=TRANSPOSE(TORNA)
    
24. !read(100,*)torna
    
25. !10 format(I5)
    
26. !200 print*,i,j
    
27.    
    
28. print*,torna
    
29. WRITE(*,'(7F7.2)') ((RES(I,J),J=1,7),I=1,3)
    
30. close(100)
    
31. end PROGRAM TORN

复制代码

输入文件是你数据的前三行。
你是不是程序里写的输入文件名跟你实际的输入文件名不符啊，那个出现-1就是读取失败啊。
查看下你的文件名是否对应。
另外，上面这个程序只是测试下能否读取，不一定是最快捷的方式，仅供参考！