fortran运行时出错

q863510557

言深深 发表于 2014-4-4 10:25
给全你的错误···unit 几出现的问题？

现在10文件没有错了，但是11文件提示“系统找不到路径”，为什么呢？

言深深

q863510557 发表于 2014-4-5 16:47
现在10文件没有错了，但是11文件提示“系统找不到路径”，为什么呢？

文件名称写对写全没有？你的filename长度貌似定义的不够吧？？？？？？？

q863510557

言深深 发表于 2014-4-5 17:38
文件名称写对写全没有？你的filename长度貌似定义的不够吧？？？？？？？

program main
integer m,n,l,k
parameter(m=144,n=96,l=20)
character*8 filename(l)
real mbl(m,n)

open(10,file='c:\grug\year.txt')
do k=1,l
   read(10,*) filename(k)
enddo

do k=1,l
   open(11,file='c:\grug\year\'//filename(i))
   open(12,file='c:\grug\year\1991_2010.txt')
   read(11,*)((mbl(m,n),i=1,m),j=1,n)
   write(12,*)((mbl(m,n),i=1,m),j=1,n)
   close(11)
enddo
close(12)
stop
end   


文件名称应该是91.txt  92.txt 。。。。这种所以定义8个字符应该是够得吧，名称写的也是对的，但为什么读不了呢？

q863510557

q863510557 发表于 2014-4-5 19:49
program main
integer m,n,l,k
parameter(m=144,n=96,l=20)

忘把i改成k了   我的错  谢谢啦

q863510557

q863510557 发表于 2014-4-5 19:50
忘把i改成k了   我的错  谢谢啦

但是为嘛读出来的数都是0呢？

言深深

q863510557 发表于 2014-4-5 19:49
program main
integer m,n,l,k
parameter(m=144,n=96,l=20)

filename数组用trim限定一下试试看···
还有，你最好自己确认一下，你所打开的是不是你希望打开的文件

q863510557

言深深 发表于 2014-4-5 20:32
filename数组用trim限定一下试试看···
还有，你最好自己确认一下，你所打开的是不是你希望打开的文件

原来是输出的数值太小，f9.5的格式不能满足导致的0值。。。谢谢啦

言深深

q863510557 发表于 2014-4-5 20:54
原来是输出的数值太小，f9.5的格式不能满足导致的0值。。。谢谢啦

额···无语···
不过你发现问题就好···