ファイルからプロパティのリストを読み取るコードを Fortran で作成しており、無効なデータをスキップするために IOSTAT 関数を使用しています。コードの関連セクションは次のとおりです。
do j=1,1000
read(22,*,IOSTAT=ios) step,T,K,U,Tot,P
If(IS_IOSTAT_END(ios)) Exit !exits loop if value is not number or end of file
IF(ios.ne.0) cycle
sumT=sumT+T
sumU=sumU+U
sumK = sumK + K
sumKsq = sumKsq + (K**2.d0)
end if
end do
このコードは、以前は Linux で実行すると問題なく動作しましたが、Mac OSX で実行すると、「IS_IOSTAT_END には暗黙的な型がありません」というエラー メッセージが表示されます。誰かがこれを修正する方法を説明してもらえますか?
ありがとう