fortran sqrtコンパイルエラー

質問

プログラムを書き直していて以下の様なエラーが出てしまいます。
以前sqrt関数を書いたときは以下の様なエラーは出てこなかったのですが、最近やたらFunctionのエラーがよく出ます。コンパイルに問題があるのでしょうか？自分のコンパイルを調べるにはどうしたらわかるのでしょうか？よろしくお願いします。

In file init.f90:52

rf = sqrt((nx-5)**2+(ny-5)**2+(nz-5)**2)
1
Error: Type of argument 'x' in call to 'sqrt' at (1) should be REAL(4), not INTEGER(4)
In file init.f90:52

rf = sqrt((nx-5)**2+(ny-5)**2+(nz-5)**2)
1
Error: Function 'sqrt' at (1) has no implicit type

回答No.1

A88No8 · ベストアンサー

こんにちは
　素直にエラーメッセージを理解するとsqrtの引数はInteger型じゃなくてReal型だ！と怒っているようですが．．

　実数型しか扱えないsqrt関数って考えにくいですけど fortran の場合は、実数型か複素数型でなければならない仕様なんですよね(^^; JIS X 3001-1：2009 (ISO/IEC 1539-1：2004)

　実数型の場合 0.0以上でなければならないっていうし．．

お礼

ご指摘ありがとうございます。sqrtの引数を実数に訂正したらうまくコンパイルできました。ありがとうございました。