fortran 点数を書き出す

Question

下のコードを打ったところ、エラーが発生しました。

program tennsuu
	implicit none
	character(8) student			!学生の名前
	integer eng, math, phys
	integer point300, point250
	logical :: E0F=.false.
	
	open( 2017, file='input.txt', action='read' )
	open( 2018, file='output.txt', status='replace' )
	
	do while ( E0F == .false. )
	
		read( 2017, *, end=999 ) student, eng, math, phys
		write(*, *) student, eng, math, phys

		point300 = eng + math + phys
		point250 = eng + math * 0.75d0 + phys * 0.75d0
		write( 2018, 22 ) student, point300, point250
		22 format( a9, i4, i4)
		
		enddo
		
		999 E0f= .true.
		
		close( 2017 )
		close( 2018 )
		end program tennsuu 

エラーが以下の通りです

  do while ( E0F == .false. )
            1
Error: Logicals at (1) must be compared with .eqv. instead of ==

input.txtには
naoto 70 0 80
satosi 5 8 10
einstein 99 94 93
tarou 9 100 98

とかいています。
エラー画面が何を言いたいのかわかりません。
回答お願いします。

Answer 1

既に論理型なのであれば比較ではなく

do while ( .not.E0F )

ではないのでしょうか。

Comments

[mercurian-teto]

お二人方のコンパイルが通りました。
ありがとうございました。

Answer 2

エラーメッセージを訳すと「論理値の比較には、== の代わりに .eqv. を使わなければならない」。

これは、Fortranでは、論理値(Logicals)どうしの比較に使える演算子は、.eqv. (等しい）と .neqv.(等しくない)の２つだけで、==は使えないからです。

エラーメッセージに従って、質問のコードの

do while ( E0F == .false. )

の部分を

do while ( E0F .eqv. .false. )

と修正すれば、OK！

Comments

[mercurian-teto]

コンパイルが通りました。ありがとうございました。