题目
FORTRAN程序一直提示Q1为定义但是前面已经在主程序定了COMMON/Q/Q1(LND,LND),
SUBROUTINE BHALG(t,U,X1,Y1,B)
M=t-1
DO 10 I=3,M
IF(U(N,H).GT.X1(I)) GOTO 10
IF(ABS(U(N,H)-X1(I-1)).GE.ABS(U(N,H)-X1(I))) GOTO 20
J=I-1
GOTO 15
10 CONTINUE
I=t-1
GOTO 20
15 I=J
20 P=(U(N,H)-X1(I))* (U(N,H)-X1(I+1))/(X1(I-1) -X1(I))/(X1(I-1)-X1(I+1))
Q=(U(N,H)-X1(I-1))*(U(N,H)-X1(I+1))/(X1(I)-X1(I-1))/(X1(I)-X1(I+1))
R=(U(N,H)-X1(I-1))*(U(N,H)-X1(I))/(X1(I+1)-X1(I-1))/(X1(I+1)-X1(I))
Q1(N,H)=P*Y1(I-1)+Q*Y1(I)+R*Y1(I+1)
RETURN
END
SUBROUTINE BHALG(t,U,X1,Y1,B)
M=t-1
DO 10 I=3,M
IF(U(N,H).GT.X1(I)) GOTO 10
IF(ABS(U(N,H)-X1(I-1)).GE.ABS(U(N,H)-X1(I))) GOTO 20
J=I-1
GOTO 15
10 CONTINUE
I=t-1
GOTO 20
15 I=J
20 P=(U(N,H)-X1(I))* (U(N,H)-X1(I+1))/(X1(I-1) -X1(I))/(X1(I-1)-X1(I+1))
Q=(U(N,H)-X1(I-1))*(U(N,H)-X1(I+1))/(X1(I)-X1(I-1))/(X1(I)-X1(I+1))
R=(U(N,H)-X1(I-1))*(U(N,H)-X1(I))/(X1(I+1)-X1(I-1))/(X1(I+1)-X1(I))
Q1(N,H)=P*Y1(I-1)+Q*Y1(I)+R*Y1(I+1)
RETURN
END
提问时间:2020-12-07
答案
77风格的看着真头大,可能的话,用module来共享数据吧.
具体到这个错误,我印象中common是需要在用到的所有程序单元里在写一遍的,在子程序开头再加一个COMMON/Q/Q1(LND,LND)试试
具体到这个错误,我印象中common是需要在用到的所有程序单元里在写一遍的,在子程序开头再加一个COMMON/Q/Q1(LND,LND)试试
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1在五个0.5之间填上符号或括号,使等式成立.
- 2把《答谢中书书》和《记承天寺夜游》分别缩写成诗
- 3have you finished (read) the book yet
- 4“银”字左右结构,除过左边的金字旁,右边单独那个叫什么?麻烦给拼音
- 5This is how i do it,that’s my style!这句话的中文怎么读?
- 6一个长方体游泳池,长20米,宽15米,深2米,现要将它的每个面先抹上水泥,再贴上边长4分米瓷砖,需要这样的瓷砖多少块?如果每平方米用水泥5千克,要用去多少水泥?
- 7已知abc≠0,且a+b+c=0,则代数式a^2/bc+b^2/ac+c^2/ab的值为多少?
- 8几道语文成语练习题
- 9学校组织远足活动,原计划每小时走4.5千米,3小时到达目的地,实际2.5小时走完了原定路程,实际每小时
- 10请用两个四字词语替换“欢呼”一词中人们当时的心情