fortran - Fortran 中的 CEILING 和 FLOOR 函数 - 它们不应该返回整数吗？

Question

关于 Fortran 90/95 中 CEILING 和 FLOOR 函数的一个快速问题。

基于文档:https://gcc.gnu.org/onlinedocs/gfortran/CEILING.html

我的印象是他们接受 REAL，但返回 INTEGER。但是，作为一个例子，对于这个简单的程序，我得到:

PROGRAM example
REAL:: X=-3.4
nintx = NINT(x)
ceilx = CEILING(X)
floorx = FLOOR(X)
WRITE(*,*) nintx, ceilx, floorx
END PROGRAM

我得到 -3、-3.00000 和 -4.00000。但是根据文档，所有返回类型都是整数。那么为什么 CEILING 和 FLOOR 结果显示时带有小数点和尾随零？

Answer 1

CEILING 和 FLOOR 确实返回整数结果。但是，您并没有打印这些结果:您打印的是真实类型的变量 celix 和 floorx。

由于隐式类型，这些变量是真实的。将此与 nintx 进行对比，后者确实是一个整数变量。

列表导向的输出(write(*,*) 部分)具有格式化真实变量的自然结果，如您所见。如果你直接打印函数结果

write(*,*) NINT(x), CEILING(X), FLOOR(X)

你不会那么惊讶。

显而易见的事情是:不要使用隐式类型。有作为你的第二行 implicit none 。