Fortran中round函数的使用

Fortran中的round函数用于将实数四舍五入为最接近的整数。其语法如下：

real function round(x)
integer, intent(in) :: x
end function round

其中，x为要四舍五入的实数。

下面是一个示例程序，演示了如何使用round函数：

program test_round
  real :: x = 3.6
  write(*,*) 'x = ', x
  write(*,*) 'round(x) = ', round(x)
  x = 3.4
  write(*,*) 'x = ', x
  write(*,*) 'round(x) = ', round(x)
end program test_round

输出结果为：

x =    3.6000000    
round(x) =            4
x =    3.4000000    
round(x) =            3

可以看到，当x为3.6时，round(x)返回4，当x为3.4时，round(x)返回3。