fortran - gfortran错误: Function 'inint' at (1) has no IMPLICIT type

Question

我正在使用 gfortran(来自 gcc-4.8.1)编译 .f90 源文件，并遇到错误:

Error: Function 'inint' at (1) has no IMPLICIT type

我做了一些搜索，发现 GNU website说 [ININT]

This intrinsic is not yet implemented. The name is, however, reserved as an intrinsic.

在SGI documentation中，据说

ININT returns the nearest INTEGER*2 to its REAL*4 argument.

我的问题是:

ININT 是 Fortran77/90/95/2003 标准函数吗？

在 gfortran 中，为 INIT 编写替换函数的正确/符合标准的方法是什么？

Answer 1

我以前从未使用过ININT，而且它可能不符合任何标准。相反，我建议使用 NINT (FORTRAN 77)，它采用可选的 KIND 参数 (Fortran 90):

RESULT = NINT(A [, KIND]) 

(取自 the GCC docs )

选择 KIND 来反射(reflect) INTEGER*2，无论它适合您的特定编译器...但是当您使用它时，请尝试 SELECTED_INT_KIND 。