关于 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
结果显示时带有小数点和尾随零?
最佳答案
CEILING
和 FLOOR
确实返回整数结果。但是,您并没有打印这些结果:您打印的是真实类型的变量 celix
和 floorx
。
由于隐式类型,这些变量是真实的。将此与 nintx
进行对比,后者确实是一个整数变量。
列表导向的输出(write(*,*)
部分)具有格式化真实变量的自然结果,如您所见。如果你直接打印函数结果
write(*,*) NINT(x), CEILING(X), FLOOR(X)
你不会那么惊讶。
显而易见的事情是:不要使用隐式类型。有作为你的第二行
implicit none
。
关于fortran - Fortran 中的 CEILING 和 FLOOR 函数 - 它们不应该返回整数吗?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29378282/