fortran 95内在过程

《fortran 95内在过程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、附录BFortran95内在过程FORTRAN95标准提供了115个内在过程，其中包括109个内在函数和6个内在子例行子程序。很多编译系统还提供额外的内在过程。按照形式，内在过程分为如下两类：通用过程；专用过程。所谓通用过程是一个集合名称，通用过程与专用过程是一个集合与其元素的关系。一个通用过程由两个或多个专用过程组成。在所有的115个内在过程当中，除了如下4个内在函数外，其他都是通用过程：LGE、LGT、LLE和LLT。专用过程针对具体类型与种别的变量。例如，求一个变量的绝对值的通用过程为AB

2、S（X），而求一个整型变量的绝对值的专用过程为IABS（X），求一个复型变量的绝对值的专用过程为CABS（X），如此等等。所以，每个通用过程属下的专用过程都必定具有相应的类型，种别，甚至维的属性。这些专用过程的名称的主要用途是作为实元来传递，这时就必须使用专用过程名称。注意，在表中注明了少数专用过程不能作为实元。按照功能，FORTRAN95的内在过程主要分为如下5类：查询与数字操作函数；转换，置空以及传递函数；计算函数；数组函数；内在子例行程序。如果从 功能的角度来对内在过程分类，那么除了上面的

3、比较具体的5类之外，还可以从内在过程对数组的作用方式的角度，把内在过程分为两大类：逐元过程和变换过程。所谓逐元过程，就是从数学的观点来看，这些专用过程的计算对象并不是数组，但是可以运用一种自然的方式使得这专用过程能够作用于数组对象，并且得到相同形状的数组结果。也就是使得该过程分别作用于数组的每个元素，把所有的过程结果再集合起来作为结果数组。内在过程当中的大部分都属于逐元过程，包括：转换函数；计算函数(除了REPEAT，TRIM，DOT_PRODUCT，MATMUL之外)；子例行程序MVBITS。

4、其他的所有内在过程就都不是逐元过程了。所谓变换过程，就是内在过程里面逐元过程之外的所有过程都称为变换过程，因为从它们的定义的实质上看，就是作用于一个数组数据对象，得到一个标量或者数组结果，也就是一个变换的过程，而不是单独地作用于每个元素。因此除了函数NULL之外，所有的变换过程或者是具有一个取数组值的哑元，或者是具有一个取数组值的实元，它们对数组的作用都是某种整体变换作用。例如对于向量的乘积，就不能逐个元素地进行。内在过程的引用正如一般过程的引用一样，可以使用关键词变量。由于某些内在过程的变量是

5、可选项，因此使用关键词能够省略相应的实元。常见的关键词哑元名称含义如下：●DIM：DIM主要用于数组简化函数以及其他一些数组函数，表示在函数的作用对象不是整个数组的情况下，数组的哪个维被过程作用。DIM取值为标量整型值，并且常常是可选变量。●   KIND：KIND一般用于转换函数，说明转换结果的种别参数。KIND实元必须是一个标量整型初始化表达式，一般是可选的。●   BACK：BACK作为一个可选的逻辑型变量用来表示逆序过程，即它所出现的内在过程的对于数据对象的反方向操作。例如,如果在内在过

6、程INDEX当中出现了BACK=.TRUE.，那么INDEX的搜索操作就必须与正常方向相反，即从字符串的右端开始。注意内在函数的非指针哑元都具有INTENT(IN)的属性，而指针哑元则不能改变其关联的实元或目标。 表B.1 专用过程的过程名称以及相应的变量属性通用过程名称专用过程名称及其变量专用过程变量类型ABSABS(A)CABS(A)DABS(A)IABS(A)默认实型默认复型双精度实型默认整型ACOSACOS(X)DACOS(X)默认实型双精度实型AIMAGAIMAG(Z)默认复型AINT

7、AINT(A)DINT(A)默认实型双精度实型ANINTANINT(A)DNINT(A)默认实型双精度实型ASINASIN(X)DSIN(X)默认实型双精度实型ATANATAN(A)DTAN(A)默认实型双精度实型ATAN2ATAN2(A)DTAN2(A)默认实型双精度实型CHAR*CHAR(I)默认整型COSCOS(X)CCOS(X)DCOS(X)默认实型默认复型双精度实型CONJGCONJG(X)默认复型COSHCOSH(X)DCOSH(X)默认实型双精度实型DIMDIM(X，Y)IDIM(

8、X，Y)默认实型默认整型DPRODDPROD(X，Y)默认实型EXPEXP(X)CEXP(X)DEXP(X)默认实型默认复型双精度实型ICHAR*ICHAR(C)默认字符型INDEXINDEX(STRING，SUBSTRING)默认字符型INT*INT(A)*IFIX(A)*IDINT(A)默认实型默认实型双精度实型LENLEN(STRING)默认字符型LGE*LGE(STRING_A，STRING_B)默认字符型LGT*LGT(STRING_A，STRING_B)默认字符型LLE*LLE(ST