fortran if

### Fortran 中 `IF` 语句的用法

在 Fortran 编程语言中，`IF` 结构用于条件判断。以下是几种常见的形式及其应用实例。

#### 单行 IF 语句
最简单的形式是单行 `IF` 语句，在这种情况下，如果逻辑表达式的值为真，则执行紧跟其后的单一语句：

IF (expression) action_statement

例如：

IF (X .GT. Y) PRINT *, 'X is greater than Y'

这表示当变量 X 大于 Y 时打印消息[^1]。

#### 块 IF 语句
更复杂的结构允许定义多个可选操作以及处理假情况下的默认行为:

IF (logical_expression) THEN
    ! 执行一组语句...
ELSE IF (another_logical_expression) THEN
    ! 或者另一组不同的语句...
ELSE
    ! 如果以上都不是真的则运行这些语句...
END IF

具体例子如下所示：

INTEGER :: A, B
READ(*,*) A, B

IF (A > B) THEN
   WRITE (*,'(A,I0,A,I0,A)') "The number ", A," is larger than ",B,"."
ELSE IF (A < B) THEN
   WRITE (*,'(A,I0,A,I0,A)') "The number ", B," is larger than ",A,"."
ELSE
   WRITE (*,'(A)') "Both numbers are equal!"
ENDIF

这段程序会读取两个整数并比较它们之间的大小关系[^2]。

#### 动态参数传递中的注意事项
值得注意的是，在某些特定场景下（比如调用外部子程序），可能需要用到非标准函数 `%VAL()` 来作为实参传入，但这不是常规编写 `IF` 语句的方式[^3]。