主题:【急】新手求助
program ex01
implicit none
parameter n=160,m=59
integer t1(n,m),t2(n,m),t12(n,m),r6(n,m),r7(n,m),r8(n,m),t(m),r(m)
integer i,j,year1,year2
year1=1951
year2=1951
open(11,file='t1601.txt')
read(11,*)((t1(i,j),i=1,n),j=1,m)
close(11)
open(11,file='t1612.txt')
read(11,*)((t12(i,j),i=1,n),j=1,m)
close(11)
open(11,file='t1602.txt')
read(11,*)((t2(i,j),i=1,n),j=1,m)
close(11)
open(11,file='r1606.txt')
read(11,*)((r6(i,j),i=1,n),j=1,m)
close(11)
open(11,file='r1607.txt')
read(11,*)((r7(i,j),i=1,n),j=1,m)
close(11)
open(11,file='r1608.txt')
read(11,*)((r8(i,j),i=1,n),j=1,m)
close(11)
open(10,file='t.dat')
do j=1,m-1
t(j)=(t12(57,j)+t2(57,j+1)+t1 (57,j+1))/3
write(10,*)(year1,t(j))
year1=year1+1
end do
close(10)
open(20,file='r.dat')
do j=1,m
r(j)=(r6(57,j)+r7(57,j)+r8(57,j))/3
write(20,*)(year2,r(j))
year2=year2+1
end do
close(20)
stop
end
报错:Assertion failed: ( (last != 0) || (node == 0)) && (tree[last>>TREE_SHIFT][last&TREE_MASK].next == 0), file err_treelib.c, line 256
看不懂报错的意思,求大家帮忙
implicit none
parameter n=160,m=59
integer t1(n,m),t2(n,m),t12(n,m),r6(n,m),r7(n,m),r8(n,m),t(m),r(m)
integer i,j,year1,year2
year1=1951
year2=1951
open(11,file='t1601.txt')
read(11,*)((t1(i,j),i=1,n),j=1,m)
close(11)
open(11,file='t1612.txt')
read(11,*)((t12(i,j),i=1,n),j=1,m)
close(11)
open(11,file='t1602.txt')
read(11,*)((t2(i,j),i=1,n),j=1,m)
close(11)
open(11,file='r1606.txt')
read(11,*)((r6(i,j),i=1,n),j=1,m)
close(11)
open(11,file='r1607.txt')
read(11,*)((r7(i,j),i=1,n),j=1,m)
close(11)
open(11,file='r1608.txt')
read(11,*)((r8(i,j),i=1,n),j=1,m)
close(11)
open(10,file='t.dat')
do j=1,m-1
t(j)=(t12(57,j)+t2(57,j+1)+t1 (57,j+1))/3
write(10,*)(year1,t(j))
year1=year1+1
end do
close(10)
open(20,file='r.dat')
do j=1,m
r(j)=(r6(57,j)+r7(57,j)+r8(57,j))/3
write(20,*)(year2,r(j))
year2=year2+1
end do
close(20)
stop
end
报错:Assertion failed: ( (last != 0) || (node == 0)) && (tree[last>>TREE_SHIFT][last&TREE_MASK].next == 0), file err_treelib.c, line 256
看不懂报错的意思,求大家帮忙