FORTRANシンプソンの公式を用いた積分

Question

前提・実現したいこと

プログラミング初心者です。fortran90で4/(1+X**2)をシンプソンの公式を使って積分しようとしています。
ここに質問の内容を詳しく書いてください。
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

エラーメッセージ
```F(X)=4.0/(1.0+X**2.0)の)の下あたりに１と出てきて、unexpected statement function statement at (1)と表示されます。

### 該当のソースコード

```ここに言語名を入力
ソースコード

program simpson
implicit none
integer n, i
real X, h, s2, s4, Sum, F, xi
write(,) 'input n :'
read(,) n
h = 1/n
F(X) = 4.0/(1.0+X**2.0)
s2=F(0)
s4=F(h)
do 10 i=2,n-2,2
xi=real(i)h
s2=s2+F(xi)
s4=s4+F(xi+h)
10 continue
Sum = h(F(0)+F(1)+4s4+2s2)/3
write(,) Sum
end program

試したこと

指数や係数を実数型に合わせてみたのですが、解決できませんでした。解決法を調べてみましたが、解決できませんでした。
ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

エディターはvscodeを使用しています。
ここにより詳細な情報を記載してください。

Answer 1

文関数は、実行文より前に記述する必要があります。

F(X) = 4.0/(1.0+X**2.0)

を5行目に移動させてみましょう。

Comments

[ns12]

その通りにやってみたら解決できました。本当にありがとうございます。