Fortran IIFIX 未知符号

Fortran IIFIX unknown symbol

我有一个旧的 Fortran 代码使用 GFORTRAN 编译得很好。

但是当我尝试调用函数时出现以下错误:

undefined symbol: iifix

我在代码中发现了 3 处此函数,它们都在同一上下文中:

(some blah blah blah)
INTEGER*2  IWAH(24)
real*4     AH(9000)

(more blah blah blah)
iwah (3) = iifix (ah (3))

(and the blah blah blah continues...)

搜索“IIFIX”时,我发现只有“IFIX()”可以将实数转换为整数。这对我来说很有意义,因为变量格式符合函数的目的,但是……我不知道。我不知道我在做什么....

如何安全地替换此功能? 或者...我该如何解决这个错误?

我正在使用 gfortran,我的代码以“.f90”结尾

首先,integer*2real*4 不可移植。我会忽略那个问题。您可能想要的是将 iifix(ah(3)) 更改为 int(ah(3),2)