回 帖 发 新 帖 刷新版面

主题:【急】新手求助

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

看不懂报错的意思,求大家帮忙

回复列表 (共2个回复)

沙发

(3) : error 431 - Unexpected ',' in assignment
(29) : error 571 - ',' found where ')' was expected
(36) : error 571 - ',' found where ')' was expected
(4) : error 542 - M appears in the dimension of a variable, yet is not a dummy argument, a variable available through USE or CONTAINS association, a COMMON variable, a PARAMETER, or a PURE FUNCTION
(4) : error 542 - N appears in the dimension of a variable, yet is not a dummy argument, a variable available through USE or CONTAINS association, a COMMON variable, a PARAMETER, or a PURE FUNCTION
(4) : error 283 - M must appear in a type declaration because IMPLICIT NONE has been used
(4) : error 283 - N must appear in a type declaration because IMPLICIT NONE has been used

你的错多着呢。
用不同的编译器 出来的 提示不一样

板凳


你用个FTN95吧 比较适合初学者。 我个人认为 这个编译器的 提示是最详细的。

我来回复

您尚未登录,请登录后再回复。点此登录或注册