77風格的看著真頭大,可能的話,用module來共享數(shù)據(jù)吧.
具體到這個錯誤,我印象中common是需要在用到的所有程序單元里在寫一遍的,在子程序開頭再加一個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
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
其他人氣：163 ℃時間：2020-05-26 15:36:17
優(yōu)質解答
我來回答
類似推薦
- Fortran中common的用法 COMMON /a/b,/c/d/e ,f
- 請教FORTRAN中COMMON/w2/ x,y,是定義全局變量嗎?
- fortran中的::
- Fortran 中intent表示什么意思
- 已知x=—2是關于x的一元一次方程4x=3x-a的解,那么a是多少
- 三個連續(xù)奇數(shù)的和是81,這個三位數(shù)分別是?
- 設A=｛x|x=2k,k∈Z｝,B=｛x|x=2k－1,k∈Z｝,C=｛x|x=2(k＋1),k∈Z｝
- fresh experience dies 翻譯
- 力矩的方向代表什么?
- 莊子回避混亂的現(xiàn)實,而孔子說：“天下有道,丘不與易也.”孔子認為,天下越是混亂,
- 是This is my blue pen 還是This is my a blue pen
- i can't decide which pair of jeans i should buy i can't decide which pair of jeans() ()
猜你喜歡
- 1已知z、ω為復數(shù)，（1+3i）z為實數(shù)，ω=z/2+i，且|ω|＝52，求z，ω．
- 2解釋一句VOA的含義
- 3I wonder if this is how it is for everyone my age.My life?請分析句型
- 4為什么人眼看物體是正立的而照相機成像是倒立的
- 5君臨天下這個詞到底是形容什么?
- 6兩個數(shù)的和是91,小明計算這道題時,把其中的一個加數(shù)個位上的0漏掉了,結果算出的和是37.這兩個數(shù)分別是
- 7某商場用36萬元購進A、B兩種商品,銷售完后共獲利6萬元
- 8方程式
- 9毋庸置疑還是毋庸質疑,
- 1020課真理誕生于一百個問號之后的小練筆 200字左右 不準抄襲
- 11it用作形式主語時,后面的不定式是真正的主語,請問此時it與不定式是什么關系?同位語?
- 12兩只外形相同、額定功率不同的普通白熾燈泡，在它們的銘牌上只能看清“220V”字樣，如何用三種不同的方法判斷哪只燈泡的額定功率較大？ 方法一： 方法二： 方法三：