FORTRAN程序一直提示Q1为定义但是前面已经在主程序定了COMMON/Q/Q1(LND,LND),

FORTRAN程序一直提示Q1为定义但是前面已经在主程序定了COMMON/Q/Q1(LND,LND),

题目
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
答案
77风格的看着真头大,可能的话,用module来共享数据吧.
具体到这个错误,我印象中common是需要在用到的所有程序单元里在写一遍的,在子程序开头再加一个COMMON/Q/Q1(LND,LND)试试
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点

超级试练试题库

© 2017-2019 超级试练试题库,All Rights Reserved.