f951.exe:Error:Unexpected end of fileの解決法について

Question

前提

fortranで次の非線形方程式 f(x)=tanh(x)+0.2x+0.3= 0 の数値解をNewton-Raphson 法を用いて求めようとしたところ、コンパイルの段階で次のようなエラーが出てしまいました。何か解決策はありますでしょうか。

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

gfortran keisan.f90
f951.exe:Error:Unexpected end of file in 'keisan.f90'

該当のソースコード

PROGRAM keisan
IMPLICIT REAL(A-H,O-Z)
EXTERNAL FUN1,DIVFUN1
DIMENSION X_D(50,3)

DATA EPS/1.E-7/

AA=0.2
BB=0.3

WRITE(*,*) ' '
write(*,*) '   N          X2           F(X2)            REL_ERROR            THEO_ERROR'

AA=0.2
BB=0.3
XX=1.1
X1=XX
DO N=1,100
	X2=X1-FUN1(X1,AA,BB)/DIVFUN1(X1,AA)
	
	EPSD=ABS(X2-X1)
	EPSX=ABS(EPSD/X1)
	
	WRITE(*,120) N,X2,FUN1(X2,AA,BB),EPSX
120		FORMAT(' ',I3,5E17.7)
		
	IF(EPSX.LT.EPS) EXIT
	X1=X2
ENDDO
WRITE(*,*) ' '

END

REAL FUNCTION FUN1(X,AA,BB)

IMPLICIT REAL(A-H,O-Z)

FUN1=tanh(X)+AA*X+BB

RETURN
END

REAL FUNCTION DIVFUN1(X,AA)

IMPLICIT REAL(A-H,O-Z)

DIVFUN1=(1/cosh(X))**2+AA

RETURN
END

SUBROUTINE BISECTION(NSTEP,EPS,X1,X2,AA,BB,XD,NEND)

試したこと

拡張子をf95に変えてみたり、文字コードを色々変えてみたりしましたが上手くいきませんでした。

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

PCはWindowsを使用しています。

Comments

[melian]

最後の SUBROUTINE BISECTION(NSTEP,EPS,X1,X2,AA,BB,XD,NEND) が完結していないためです。中身と END を追加する必要があります。もしくは SUBROUTINE 行を削除するなど。

[Yoshi1416]

解決しました。ありがとうございます。

Answer 1

最後の行を消したら解決しました。ありがとうございます。