附录 FORTRAN 90标准函数 符号约定： I 代表整型;R 代表实型;C 代表复型;CH 代表字符型;S 代表字符串;L 代表逻辑型;A 代表数组;P 代表指针;T 代表派生类型;AT 为任意类型。 s:P 表示s 类型为P 类型(任意kind 值 )。 s:P(k)表示s 类型为P 类型(kind 值 =k)。 [„]表示可选参数。 *表示常用函数。 表 1 数值和类型转换函数 函数名 说明 ABS(x)* 求 x 的绝对值∣x∣。x:I、 R,结果类型同x; x:C,结果:R AIMAG(x) 求 x 的实部。x:C,结果:R AINT(x[,kind])* 对 x 取整,并转换为实数(kind)。 x:R, kind:I,结果:R(kind) AMAX0(x1,x2,x3,„)* 求 x1,x2,x3,„中最大值。xI:I,结果:R AMIN0(x1,x2,x3,„)* 求 x1,x2,x3,„中最小值。xI:I,结果:R ANINT(x[,kind])* 对 x 四舍五入取整,并转换为实数(kind)。 x:R, kind:I,结果:R(kind) CEILING(x)* 求大于等于x 的最小整数。x:R,结果:I CMPLX(x[,y][,kind])) 将参数转换为x、 (x,0.0)或 (x,y)。 x:I、 R、 C, y:I、 R,kind:I,结果:C(kind) CONJG(x) 求 x 的共轭复数。x:C,结果:C DBLE(x)* 将 x 转换为双精度实数。x:I、 R、 C,结果:R(8) DCMPLX(x[,y]) 将参数转换为x、 (x,0.0)或 (x,y)。 x:I、 R、 C, y:I、 R,结果:C(8) DFLOAT(x) 将 x 转换为双精度实数。x:I,结果:R(8) DIM(x,y)* 求 x-y 和 0中最大值,即 MAX(x-y,0)。 x:I、 R, y 的类型同x,结果类型同x DPROD(x,y) 求 x 和 y 的乘积,并转换为双精度实数。x:R, y:R,结果:R(8) FLOAT(x)* 将 x 转换为单精度实数。x:I,结果:R FLOOR(x)* 求小于等于x 的最大整数。x:R,结果:I IFIX(x)* 将 x 转换为整数(取整)。 x:R,结果:I IMAG(x) 同 AIMAG(x) INT(x[,kind])* 将 x 转换为整数(取整)。 x:I、 R、 C, kind:I,结果:I(kind) LOGICAL(x[,kind])* 按 kind 值转换新逻辑值。x:L,结果:L(kind) MAX(x1,x2,x3,„)* 求 x1,x2,x3,„中最大值。xI为任意类型,结果类型同xI MAX1(x1,x2,x3,„)* 求 x1,x2,x3,„中最大值(取整)。 xI:R,结果:I MIN(x1,x2,x3,„)* 求 x1,x2,x3,„中最小值。xI为任意类型,结果类型同xI MIN1(x1,x2,x3,„)* 求 x1,x2,x3„中最小值(取整)。 xI:R,结果:I MOD(x,y)* 求 x/y 的余数,值为x-INT(x/y)*y 。 x:I、 R, y 的类型同x,结果类型同x MODULO(x,y) 求 x/y ...
