Fortran - If-then-else 构造
if…then 语句后面可以跟一个可选的 else 语句，该语句在逻辑表达式为 false 时执行。
语法
>if...then...else语句的基本语法是 −
if (logical expression) then statement(s) else other_statement(s) end if
但是，如果为 if 块命名，则命名的 if-else 语句的语法将类似于 −
[name:] if (logical expression) then ! various statements . . . else !other statement(s) . . . end if [name]
如果逻辑表达式的计算结果为true，那么将执行if…then语句内的代码块，否则将执行else块内的代码块 。
流程图
示例
program ifElseProg
implicit none
! 局部变量声明
integer :: a = 100
! 使用 if 语句检查逻辑条件
if (a < 20 ) then
! 如果条件为 true 则打印以下内容
print*, "a is less than 20"
else
print*, "a is not less than 20"
end if
print*, "value of a is ", a
end program ifElseProg
当上面的代码被编译并执行时，会产生以下结果 −
a is not less than 20 value of a is 100
