[問題] 函數反解帶入數值
各位先進:
不好意思，我又來問各位了
小弟我練習寫了一個函數，想藉由得到函數值而來反解帶入函數的數值為何?
但是compile出現錯誤，訊息為
Syntax error, found INTEGER_CONSTANT '5' when expecting one of: <LABEL>
<END-OF-STATEMENT> ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER...
5.0=F(C)+F(D)
以下為程式，不知道哪裡出了問題@@"，不知道可不可以用函數去逆推帶入的數值??
program fund
IMPLICIT NONE
REAL A,B,C,D
REAL, EXTERNAL :: F
A=1.0
C=A+1.0
D=B+1.0
5.0=F(C)+F(D)
WRITE (*,*) B
END PROGRAM
function F(X)
IMPLICIT NONE
REAL X,F
F=2*X
RETURN
END
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.125.202.117
→
03/07 22:56, , 1F
03/07 22:56, 1F
推
03/08 05:16, , 2F
03/08 05:16, 2F
→
03/08 10:10, , 3F
03/08 10:10, 3F
→
03/08 16:06, , 4F
03/08 16:06, 4F
→
03/08 17:38, , 5F
03/08 17:38, 5F
推
03/09 00:31, , 6F
03/09 00:31, 6F