2.1 标准 Fortran 95 的通用内函数

本节中介绍的 Fortran 95 通用内函数按其在 Fortran 95 标准中的功能进行分组。

所示参数是在采用关键字形式时可以用作参数关键字的名称，如 cmplx(Y=B, KIND=M, X=A) 中所示。

有关这些通用内过程的详细说明，请查阅 Fortran 95 标准。

2.1.1 参数存在查询函数

通用内函数名说明

PRESENT存在参数

2.1.2 数值函数

通用内函数名说明

ABS (A)绝对值

AIMAG (Z)复数的虚部

AINT (A [, KIND])整数截尾

ANINT (A [, KIND])最近的整数

CEILING (A [, KIND])大于或等于数值的最小整数

CMPLX (X [, Y, KIND])转换为复数类型

CONJG (Z)共轭复数

DBLE (A)转换为双精度实数类型

DIM (X, Y)正偏差

DPROD (X, Y)双精度实数乘积

FLOOR (A [, KIND])小于或等于数值的最大整数

INT (A [, KIND])转换为整数类型

MAX (A1, A2 [, A3,...])最大值

MIN (A1, A2 [, A3,...])最小值

MOD (A, P)余数函数

MODULO (A, P)模数函数

NINT (A [, KIND])最近的整数

REAL (A [, KIND])转换为实数类型

SIGN (A, B)符号传输

2.1.3 数学函数

通用内函数名说明

ACOS (X)反余弦

ASIN (X)反正弦

ATAN (X)反正切

ATAN2 (Y, X)反正切

COS (X)余弦

COSH (X)双曲余弦

EXP (X)指数

LOG (X)自然对数

LOG10 (X)常用对数(10 为基数)

SIN (X)正弦

SINH (X)双曲正弦

SQRT (X)平方根

TAN (X)正切

TANH (X)双曲正切

2.1.4 字符函数

通用内函数名说明

ACHAR (I)按 ASCII 整理序列排列时给定位置的字符

ADJUSTL (STRING)齐左调整

ADJUSTR (STRING)齐右调整

CHAR (I [, KIND])按处理器整理序列排列时给定位置的字符

IACHAR (C)按 ASCII 整理序列排列时字符的位置

ICHAR (C)按处理器整理序列排列时字符的位置

INDEX (STRING, SUBSTRING [, BACK])子串的起始位置

LEN_TRIM (STRING)长度不包含结尾的空白字符

LGE (STRING_A, STRING_B)词法上大于或等于

LGT (STRING_A, STRING_B)词法上大于

LLE (STRING_A, STRING_B)词法上小于或等于

LLT (STRING_A, STRING_B)词法上小于

REPEAT (STRING, NCOPIES)重复并置

SCAN (STRING, SET [, BACK])扫描字符串以查找集中的某个字符

TRIM (STRING)删除结尾的空白字符

VERIFY (STRING, SET [, BACK])检验字符串中的字符集

2.1.5 字符查询函数

通用内函数名说明

LEN (STRING)字符实体的长度

2.1.6 种类函数

通用内函数名说明

KIND (X)种类类型参数值

SELECTED_INT_KIND (R)指定范围的整数种类类型参数

SELECTED_REAL_KIND ([P, R])指定精度和范围的实数种类类型参数值

2.1.7 逻辑函数

通用内函数名说明

LOGICAL (L [, KIND])在种类类型参数不相同的逻辑类型对象之间转换

2.1.8 数值查询函数

通用内函数名说明

DIGITS (X)模型的有效数字数

EPSILON (X)与此相比几乎可以忽略的数值

HUGE (X)模型中最大的数值

MAXEXPONENT (X)模型的最大指数

MINEXPONENT (X)模型的最小指数

PRECISION (X)十进制精度

RADIX (X)模型的基数

RANGE (X)十进制指数范围

TINY (X)模型中最小的正数

2.1.9 位查询函数

通用内函数名说明

BIT_SIZE (I)模型中的位数

2.1.10 位操作函数

通用内函数名说明

BTEST (I, POS)位测试

IAND (I, J)逻辑 AND

IBCLR (I, POS)清除位

IBITS (I, POS, LEN)提取位

IBSET (I, POS)设置位

IEOR (I, J)互斥 OR

IOR (I, J)包容 OR

ISHFT (I, SHIFT)逻辑移位

ISHFTC (I, SHIFT [, SIZE])循环移位

NOT (I)逻辑补充

2.1.11 传送函数

通用内函数名说明

TRANSFER (SOURCE, MOLD [, SIZE])处理第一个参数，就好象它与第二个参数属于同一种类型

2.1.12 浮点处理函数

通用内函数名说明

EXPONENT (X)型号的指数部分

FRACTION (X)数值的小数部分

NEAREST (X, S)指定的方向最近的不同处理器

RRSPACING (X)接近指定数值的型号相对间隔的倒数

SCALE (X, I)实数乘以基数得出整数幂

SET_EXPONENT (X, I)设置数值的指数部分

SPACING (X)接近指定数值的型号的绝对间隔

2.1.13 向量和矩阵乘法函数

通用内函数名说明

DOT_PRODUCT (VECTOR_A, VECTOR_B)两个一级数组的点乘积

MATMUL (MATRIX_A, MATRIX_B)矩阵乘法

2.1.14 约简数组函数

通用内函数名说明

ALL (MASK [, DIM])如果所有的值为 True 则为 True

ANY (MASK [, DIM])如果任意值为 True 则为 True

COUNT (MASK [, DIM])数组中 True 元素数

MAXVAL (ARRAY, DIM [, MASK])

或 MAXVAL (ARRAY [, MASK])数组中的最大值

MINVAL (ARRAY, DIM [, MASK])

或 MINVAL (ARRAY [, MASK])数组中的最小值

PRODUCT (ARRAY, DIM [, MASK])

或 PRODUCT (ARRAY [, MASK])数组元素的乘积

SUM (ARRAY, DIM [, MASK])

或 SUM (ARRAY [, MASK])数组元素的求和

2.1.15 数组查询函数

通用内函数名说明

ALLOCATED (ARRAY)数组分配状态

LBOUND (ARRAY [, DIM])数组的维数下界

SHAPE (SOURCE)数组或标量的形式

SIZE (ARRAY [, DIM])数组中的元素总数

UBOUND (ARRAY [, DIM])数组的维数上界

2.1.16 数组构造函数

通用内函数名说明

MERGE (TSOURCE, FSOURCE, MASK)在屏蔽下合并

PACK (ARRAY, MASK [, VECTOR])在屏蔽下将数组压缩为一级数组

SPREAD (SOURCE, DIM, NCOPIES)增加维数以复制数组

UNPACK (VECTOR, MASK, FIELD)在屏蔽下将一级数组解压缩为数组

2.1.17 数组整形函数

通用内函数名说明

RESHAPE (SOURCE, SHAPE[, PAD, ORDER])数组整形

2.1.18 数组处理函数

通用内函数名说明

CSHIFT (ARRAY, SHIFT [, DIM])循环移位

EOSHIFT (ARRAY, SHIFT [, BOUNDARY, DIM]结束移位

TRANSPOSE (MATRIX)调换两级数组

2.1.19 数组位置函数

通用内函数名说明

MAXLOC (ARRAY, DIM [, MASK])

或 MAXLOC (ARRAY [, MASK])数组中最大值的位置

MINLOC (ARRAY, DIM [, MASK])

或 MINLOC (ARRAY [, MASK])数组中最小值的位置

2.1.20 指针关联状态函数

通用内函数名说明

ASSOCIATED (POINTER [, TARGET])关联状态查询或比较

NULL ([MOLD])返回分离的指针

2.1.21 系统环境调节过程

通用内函数名说明

COMMAND_ARGUMENT_COUNT ()返回命令参数的数目

GET_COMMAND ([COMMAND, LENGTH, STATUS])返回调用程序的整个命令

GET_COMMAND_ARGUMENT (NUMBER [, VALUE, LENGTH, STATUS])返回一个命令参数

GET_ENVIRONMENT_VARIABLE (NAME [, VALUE, LENGTH, STATUS, TRIM_NAME])获得环境变量的值。

2.1.22 内子例程

通用内函数名说明

CPU_TIME (TIME)获取处理器的时间

DATE_AND_TIME ([DATE, TIME,

ZONE, VALUES])获取日期和时间

MVBITS (FROM, FROMPOS,

LEN, TO, TOPOS)将位从一个整数复制到另一个整数

RANDOM_NUMBER (HARVEST)返回伪随机数值

RANDOM_SEED ([SIZE, PUT, GET])初始化或重新启动伪随机数据产生器

SYSTEM_CLOCK ([COUNT,

COUNT_RATE, COUNT_MAX])从系统时钟中获取数据

2.1.23 内函数的专用名称

表 2–1 Fortran 95 内函数的专用名称和通用名称专用名称通用名称参数类型

ABS (A)ABS (A)缺省实数

ACOS (X)ACOS (X)缺省实数

AIMAG (Z)AIMAG (Z)缺省复数

AINT (A)AINT (A)缺省实数

ALOG (X)LOG (X)缺省实数

ALOG10 (X)LOG10 (X)缺省实数

#AMAX0 (A1, A2 [, A3,...])REAL (MAX (A1, A2 [, A3,...]))缺省整数

#AMAX1 (A1, A2 [, A3,...])MAX (A1, A2 [, A3,...])缺省实数

#AMIN0 (A1, A2 [, A3,...])REAL (MIN (A1, A2 [, A3,...]))缺省整数

#AMIN1 (A1, A2 [, A3,...])MIN (A1, A2 [, A3,...])缺省实数

AMOD (A, P)MOD (A, P)缺省实数

ANINT (A)ANINT (A)缺省实数

ASIN (X)ASIN (X)缺省实数

ATAN (X)ATAN (X)缺省实数

ATAN2 (Y, X)ATAN2 (Y, X)缺省实数

CABS (A)ABS (A)缺省复数

CCOS (X)COS (X)缺省复数

CEXP (X)EXP (X)缺省复数

#CHAR (I)CHAR (I)缺省整数

CLOG (X)LOG (X)缺省复数

CONJG (Z)CONJG (Z)缺省复数

COS (X)COS (X)缺省实数

COSH (X)COSH (X)缺省实数

CSIN (X)SIN (X)缺省复数

CSQRT (X)SQRT (X)缺省复数

DABS (A)ABS (A)双精度

DACOS (X)ACOS (X)双精度

DASIN (X)ASIN (X)双精度

DATAN (X)ATAN (X)双精度

DATAN2 (Y, X)ATAN2 (Y, X)双精度

DCOS (X)COS (X)双精度

DCOSH (X)COSH (X)双精度

DDIM (X, Y)DIM (X, Y)双精度

DEXP (X)EXP (X)双精度

DIM (X, Y)DIM (X, Y)缺省实数

DINT (A)AINT (A)双精度

DLOG (X)LOG (X)双精度

DLOG10 (X)LOG10 (X)双精度

#DMAX1 (A1, A2 [, A3,...])MAX (A1, A2 [, A3,...])双精度

#DMIN1 (A1, A2 [, A3,...])MIN (A1, A2 [, A3,...])双精度

DMOD (A, P)MOD (A, P)双精度

DNINT (A)ANINT (A)双精度

DPROD (X, Y)DPROD (X, Y)缺省实数

DSIGN (A, B)SIGN (A, B)双精度

DSIN (X)SIN (X)双精度

DSINH (X)SINH (X)双精度

DSQRT (X)SQRT (X)双精度

DTAN (X)TAN (X)双精度

DTANH (X)TANH (X)双精度

EXP (X)EXP (X)缺省实数

#FLOAT (A)REAL (A)缺省整数

IABS (A)ABS (A)缺省整数

#ICHAR (C)ICHAR (C)缺省字符

IDIM (X, Y)DIM (X, Y)缺省整数

#IDINT (A)INT (A)双精度

IDNINT (A)NINT (A)双精度

#IFIX (A)INT (A)缺省实数

INDEX (STRING, SUBSTRING)INDEX (STRING, SUBSTRING)缺省字符

#INT (A)INT (A)缺省实数

ISIGN (A, B)SIGN (A, B)缺省整数

LEN (STRING)LEN (STRING)缺省字符

#LGE (STRING_A, STRING_B)LGE (STRING_A, STRING_B)缺省字符

#LGT (STRING_A, STRING_B)LGT (STRING_A, STRING_B)缺省字符

#LLE (STRING_A, STRING_B)LLE (STRING_A, STRING_B)缺省字符

#LLT (STRING_A, STRING_B)LLT (STRING_A, STRING_B)缺省字符

#MAX0 (A1, A2 [, A3,...])MAX (A1, A2 [, A3,...])缺省整数

#MAX1 (A1, A2 [, A3,...])INT (MAX (A1, A2 [, A3,...]))缺省实数

#MIN0 (A1, A2 [, A3,...])MIN (A1, A2 [, A3,...])缺省整数

#MIN1 (A1, A2 [, A3,...])INT (MIN (A1, A2 [, A3,...]))缺省实数

MOD (A, P)MOD (A, P)缺省整数

NINT (A)NINT (A)缺省实数

#REAL (A)REAL (A)缺省整数

SIGN (A, B)SIGN (A, B)缺省实数

SIN (X)SIN (X)缺省实数

SINH (X)SINH (X)缺省实数

#SNGL (A)REAL (A)双精度

SQRT (X)SQRT (X)缺省实数

TAN (X)TAN (X)缺省实数

TANH (X)TANH (X)缺省实数

标有 # 号的函数不能用作实际参数。“双精度”表示双精度实数。