46、Fortran 程序声明与接口详解

Fortran 程序声明与接口详解

1. 语句函数示例

以下是一些语句函数的示例：

CHARACTER(5)  ZIP_5            !Notice these are scalar
CHARACTER(10) ZIP_CODE         !  character strings.
ZIP_5(ZIP_CODE) = ZIP_CODE(1:5)
INTEGER TO_POST, MOVE
TO_POST(MOVE) = MOD(MOVE, 10)
REAL FAST_ABS
COMPLEX Z
FAST_ABS(Z) = ABS(REAL(Z)) + ABS(AIMAG(Z))

2. 替代入口（Alternate Entries）

通常，一个子程序定义一个单一的过程（不包括只能在子程序内部使用的内部过程或语句函数）。如果一个子程序中有 ENTRY 语句，它可以定义多个过程，一个由函数或子程序语句定义，其余的由每个 ENTRY 语句定义。每个 ENTRY 语句指定一个过程名、一组虚参和过程执行的起始位置，这些通常被称为替代入口。

ENTRY 语句（R1235）的形式为：

ENTRY entry-name [ ( [ dummy-argument-list ] ) [ entry-suffix ] ]

其中，入口后缀