您所在位置：主题：[原创]文件读入失败
emitdeng
[专家分：0] 发布于 2010-03-22 15:51:00
program ex
implicit none
integer::i,j,m
character(len=30) datafile
write(*,*) "please input file name"
read(*,*) datafile
open(unit=20,file=datafile,status='old',form='formatted')
read(20,*)m
!read(10,*)((jd(i,j),i=1,2),j=1,10)
close(20)
!write(*,"(2(5x,i4))")((jd(i,j),i=1,2),j=1,10)
print *,m
end
就像看下ivf在电脑上读取文件数据是否正常，结果我把一个数‘2’存储在文件deng.txt中，crlt+f5编译时，提示输入文件名，我输入deng.txt结果却提醒文件找不到，这是为什么
截图如附件所示
并且奇怪的是同样的代码出错是在win7的ivf上运行；在xp的cvf上却可以。
是不是说ivf有bug还是win7系统的问题，导致编译时不能找到指定的文本文件
implicit none
integer::i,j,m
character(len=30) datafile
write(*,*) "please input file name"
read(*,*) datafile
open(unit=20,file=datafile,status='old',form='formatted')
read(20,*)m
!read(10,*)((jd(i,j),i=1,2),j=1,10)
close(20)
!write(*,"(2(5x,i4))")((jd(i,j),i=1,2),j=1,10)
print *,m
end
就像看下ivf在电脑上读取文件数据是否正常，结果我把一个数‘2’存储在文件deng.txt中，crlt+f5编译时，提示输入文件名，我输入deng.txt结果却提醒文件找不到，这是为什么
截图如附件所示
并且奇怪的是同样的代码出错是在win7的ivf上运行；在xp的cvf上却可以。
是不是说ivf有bug还是win7系统的问题，导致编译时不能找到指定的文本文件
