52、Fortran 内置过程与模块详解

Fortran 内置过程与模块详解

1. 内置过程概述

在 Fortran 编程中，内置过程是非常重要的一部分，它们提供了丰富的功能，涵盖了从数据查询到数值计算等多个方面。一些内置过程会使用掩码（MASK）参数，该参数需与被掩码的数组相匹配，通常为可选参数。另外，部分字符内置函数会使用可选逻辑参数 BACK，例如在 INDEX 函数中，若 BACK=.TRUE.，则会查找目标子串最右侧的出现位置，而非最左侧。

每个内置过程允许的参数类型在相关描述中会有明确规定。很多情况下，若未明确指定参数的种类（kind），则默认允许该类型的所有可用种类；但也有部分内置过程对参数种类有限制，如内置函数 DPROD 的参数就被限制为默认实型。结果的类型和种类在相关描述中也会明确给出，有时与参数相同，有时由 KIND 参数指定，有时则为默认种类。

2. 查询函数

查询函数并不对参数进行计算，而是返回关于参数状态或性质的信息，返回值与参数的具体值无关，因此引用此类函数时，实际参数无需预先定义。不过，某些查询内置函数（如 ASSOCIATED、EXTENDS_TYPE_OF 和 SAME_TYPE_AS）在引用时，其参数的指针关联状态必须明确。查询函数是非元素性的。

2.1 字符和位查询函数

函数	返回值
BIT_SIZE	位模型中的位数
LEN