isnan函数 fortran

Fortran中的isnan函数用于判断一个实数是否为NaN（Not a Number）。

isnan函数需要一个实数作为输入参数，并返回一个逻辑值（.TRUE.或.FALSE.），指示该实数是否为NaN。如果输入参数为NaN，则返回值为.TRUE.，否则返回值为.FALSE.。

下面是一个简单的Fortran程序示例，展示了如何使用isnan函数：

program test_isnan
  implicit none
  real :: x = sqrt(-1.0) ! x为NaN
  logical :: is_nan
  is_nan = isnan(x)
  if (is_nan) then
    write(*,*) 'x是NaN'
    write(*,*) 'x不是NaN'
  end if
end program test_isnan
在上面的程序中，我们定义了一个实数x，它被赋值为sqrt(-1.0)，这是一个NaN值。然后，我们调用isnan函数，并将返回值存储在逻辑变量is_nan中。最后，我们使用if语句检查is_nan的值，并输出相应的信息。
希望这个例子能够帮助您理解Fortran中isnan函数的用法。