fortran中的if语句

Fortran中的if语句可以用来根据条件执行不同的代码块。其基本语法如下：

if (condition) then
    ! code block to be executed if condition is true
else
    ! code block to be executed if condition is false
endif

其中，condition是一个逻辑表达式，可以包含变量、算术表达式和逻辑运算符。如果condition的值为true，则执行if语句后面的代码块；否则执行else后面的代码块（如果存在else语句）。

举个例子，下面的代码展示了如何使用if语句判断一个数的正负性并输出相应的信息：

program if_example
    implicit none
    integer :: x
    print *, "Please enter an integer: "
    read *, x
    if (x > 0) then
        print *, x, "is positive."
    else if (x < 0) then
        print *, x, "is negative."
    else
        print *, x, "is zero."
    endif
end program if_example

在这个例子中，我们首先通过read语句从用户输入中读取一个整数x，然后使用if语句判断x的正负性并输出相应的信息。注意，在if语句中，我们使用了else if语句来判断x是否为零，这是因为在Fortran中，if-else语句可以有多个else if分支。