linux - 错误 : 'b' argument of 'sign' intrinsic at (1) must be the same type and kind as 'a'

Question

我是 Fortran 新手。所以我需要帮助。我在 SUSE 上使用 gfortran 编译我的代码并收到以下错误:

DELTAL = SIGN (.1,(GFIX-GAMFLT))

1

Error: 'b' argument of 'sign' intrinsic at (1) must be the same type and kind as 'a'

代码的主要文件附在下面的链接中，其中 3509 行显示错误

https://files.engineering.com/getfile.aspx?folder=d55e28c0-10bf-4c50-b07f-c1de071c9567&file=sftol.f

如何解决这个问题？

Answer 1

这个问题最终解决如下:

DELTAL = SIGN (0.1D0,(GFIX-GAMFLT))

这似乎保留了原始代码的基本数据类型。它编译成功。

感谢大家的建议。