Fortran if...then...else 结构
if… then 语句可以后跟一个可选的 else 语句, 它执行时，逻辑表达式为假。
语法
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]
如果逻辑表达式的计算结果为代码里面的 if ... then 语句会被执行，对 else 块中的代码，否则该块将被执行 else 块。
流程图
示例
program ifElseProg implicit none ! local variable declaration integer :: a = 100 ! check the logical condition using if statement if (a < 20 ) then ! if condition is true then print the following 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
