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的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 一个等腰梯形,上底为 a m,下底长比上低长多3m,周长为5a m,求他的腰长为多少米
- 抛物线y=x2-(2m-1)x-2m与x轴的两个交点为A(x1,0),B(x2,0),若|x1x2|=1,则m的值为( ) A.-12 B.±12 C.0 D.12
- 经销商以每件100元的进价购进了一批服装,标价是200元,出售时打八折,则每件服装的售价是?利润?利润率
- 设等比数列{an}的公比为q,前n项和为Sn,若Sn+1,Sn,Sn+2成等差数列,则q等于多少?若an=1,求sn前n项和tn
- 甲、乙两地相距100千米,一辆汽车和一台拖拉机都从甲地开往乙地,汽车出发时,拖拉机已开出15千米;当汽
- 如图,三角形ABC中,AC的垂直平分线MN交AB于点D,交AC于点O,CE平行于AB交MN于点E
- 土壤盐碱度不同,土壤动物群落结构有差异这句话对吗
- 221.下面哪一位科学家被计算机界称誉为“计算机之父”
- 一个正方形和一个圆的周长相等,已知正方形的边长是5厘米,圆的面积是多少平方厘米?
- 成语(百里之外)的意思是什么
热门考点