动态数组问题！
路过的大侠，如题，下面是FORTRAN上的一个例题，想用一个小程序确定一个未知文件数组的维数及个数，但程序运行时错误，请高手指导，谢谢！程序：
programecheck
implicit none
real,dimension(:), allocatable ::unkown,oldunkown
real a
integer i, n, io
allocate( unkown(0))
n=0
open ( 5,file='unkown_data.data')
do
read (5,*,iostat=io) a
if (io<0)exit
n=n+1
allocate( oldunkown( size(unkown)))
oldunkown=unkown
deallocate(unkown)
allocate(unkown(n))
unkown = oldunkown
unkown(n)=a
deallocate(oldunkown)
end do
print*,(unkown(i),i=1,n)
print*,'data_number=',n
end
读入的文件，随意写的！
1 8 9
2
3
4
6
DAT格式。
我在再试试看能不能把附件传上去，不好意思！ 那位大侠指导一下，怎么没有大侠路过？ unkown = oldunkown改成
unkown(1:n-1) = oldunkown
[ 本帖最后由 saillee 于 2008-1-26 23:13 编辑 ] 非常感谢！
页:
[1]