ceiling(x)：进一取整

进一取整函数

声明

语法

retval = ceiling(x)
elemental integer function ceiling(x)

参数

输入值 x 可以是实数或整数类型。

返回值

返回值是整数类型和最接近它的更大整数。

描述

ceiling(x) 返回大于或等于 x 的最小整数。

类型

支持的输入参数类型是整数和实数。

interface ceiling
    module procedure sceiling, dceiling
end interface

contains

elemental integer function sceiling(x)
real(sp), intent(in) :: x
end function

elemental integer function dceiling(x)
real(dp), intent(in) :: x
end function

示例

program intrinsics_ceiling
   implicit none
   real :: x = 63.29
   print *, ceiling(x)
   print *, ceiling(-63.29)
end program

结果：

64
-63

也可以看看

floor，mod。