内容发布更新时间 : 2024/12/28 5:21:23星期一 下面是文章的全部内容请认真阅读。

符

号约定：

l I代表整型;R代表实型;C代表复型;CH代表字符型;S代表字符串;L代表逻辑型;A代表数组;P代表指针;T代表派生类型;AT为任意类型。

l s:P表示s类型为P类型(任意kind值)。s:P(k)表示s类型为P类型(kind值=k)。

l [?]表示可选参数。 l *表示常用函数。

表1 数值和类型转换函数

函数名 ABS(x)* AIMAG(x) 说明 求x的绝对值∣x∣。x:I、R, 结果类型同x; x:C, 结果:R 求x的实部。x:C, 结果:R 对x取整,并转换为实数(kind)。x:R, kind:I, 结AINT(x[,kind])* 果:R(kind) AMAX0(x1,x2,x3,?)* 求x1,x2,x3,?中最大值。xI:I, 结果:R AMIN0(x1,x2,x3,?)* 求x1,x2,x3,?中最小值。xI:I, 结果:R 对x四舍五入取整,并转换为实数(kind)。x:R, kind:I, ANINT(x[,kind])* 结果:R(kind) CEILING(x)* 求大于等于x的最小整数。x:R, 结果:I 将参数转换为x、(x,0.0)或(x,y)。x:I、R、C, y:I、CMPLX(x[,y][,kind])) R,kind:I, 结果:C(kind) CONJG(x) 求x的共轭复数。x:C, 结果:C DBLE(x)* 将x转换为双精度实数。x:I、R、C, 结果:R(8) 将参数转换为x、(x,0.0)或(x,y)。x:I、R、C, y:I、R, DCMPLX(x[,y]) 结果:C(8) DFLOAT(x) 将x转换为双精度实数。x:I, 结果:R(8) 求x-y和0中最大值, 即MAX(x-y,0)。x:I、R, y的类DIM(x,y)* 型同x,结果类型同x 求x和y的乘积,并转换为双精度实数。x:R, y:R, 结DPROD(x,y) 果:R(8) FLOAT(x)* 将x转换为单精度实数。x:I, 结果:R FLOOR(x)* 求小于等于x的最大整数。x:R, 结果:I IFIX(x)* 将x转换为整数(取整)。x:R, 结果:I IMAG(x) 同AIMAG(x) 将x转换为整数(取整)。x:I、R、C, kind:I, 结INT(x[,kind])* 果: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 求x/y的余数,值为x-INT(x/y)*y。x:I、R, y的类型同MOD(x,y)* x, 结果类型同x 求x/y余数,值为x-FLOOR(x/y)*y。x:I、R, y的类型同MODULO(x,y) x, 结果类型同x 将x转换为整数(四舍五入)。x:R, kind:I, 结NINT(x[,kind])* 果:I(kind) REAL(x[,kind])* 将x转换为实数。x:I、R、C, kind:I, 结果:R(kind) 求x的绝对值乘以y的符号。x:I、R, y的类型同x, 结SIGN(x,y)* 果类型同x SNGL(x) 将双精度实数转换为单精度实数。x:R(8), 结果:R ZEXT(x) 用0向左侧扩展x。x:I、L, 结果:I

表2 三角函数

函数名 ACOS(x)* ACOSD(x)* ASIN(x)* ASIND(x)* ATAN(x)* ATAND(x)* ATAN2(y,x) ATAN2D(y,x) COS(x)* COSD(x)* 说明 求x的反余弦arccos(x)。x:R,结果类型同x,结果值域:0~π 求x的反余弦arccos(x)。x:R,结果类型同x,结果值域:0~180° 求x的反正弦arcsin(x)。x:R,结果类型同x,结果为弧度,值域:0~π 求x的反正弦arcsin(x)。x:R,结果类型同x,结果为度,值域:0~180° 求x的反正切arctg(x)。x:R,结果类型同x,结果为弧度,值域:-π/2~π/2 求x的反正切arctg(x)。x:R,结果类型同x,结果为度,值域:-90~90° 求x的反正切arctg(y/x)。y:R,x和结果类型同x,结果值域:-π~π 求x的反正切arctg(y/x)。y:R,x和结果类型同x,结果值域:-180~180° 求x的余弦cos(x)。x:R、C,x取值弧度,结果类型同x 求x的余弦cos(x)。x:R,x取值度,结果类型同x COSH(x) COTAN(x)* SIN(x)* SIND(x)* SINH(x) TAN(x)* TAND(x)* TANH(x) 求x的双曲余弦ch(x)。x:R,结果类型同x 求x的余切ctg(x)。x:R,x取值度,结果类型同x 求x的正弦sin(x)。x:R、C,x取值弧度,结果类型同x 求x的正弦sin(x)。x:R,x取值度,结果类型同x 求x的双曲正弦sh(x)。x:R,结果类型同x 求x的正切tg(x)。x:R,x取值弧度,结果类型同x 求x的正切tg(x)。x:R,x取值度,结果类型同x 求x的双曲正切th(x)。x:R,结果类型同x 注：三角函数名前有C、D的函数为复数、双精度型函数。

表3 指数、平方根和对数函数

函数名 ALOG(x) ALOG10(x) EXP(x)* LOG(x)* LOG10(x)* SQRT(x)* 说明 求x的自然对数ln(x)。x:R(4),结果:R(4) 求x以10为底一般对数log10(x)。x:R(4),结果:R(4) 求指数,即ex。x:R、C,结果类型同x 求自然对数,即ex。x:R、C,结果类型同x 求以10为底对数,即。x:R,结果类型同x 求x的平方根。x:R、C,结果类型同x 注：指数函数名、平方根函数名、对数函数名前有C、D的函数为复数、双精度型函数。

表4 参数查询函数

说明 判定动态数组a是否分配内存。a:A,结果:L,分配:.TRUE.,ALLOCATED(a)* 未分配:.FALSE. 判定指针p是否指向目标t。p:P,t:AT,结果:L,指ASSOCIATED(p[,t])* 向:.TRUE.,未指向:.FALSE. 查询x的机内编码数值部分二进制位数(除符号位和指数DIGITS(x) 位)。x:I、R,结果:I 查询x类型可表示的最小正实数。x:R,结果类型同x。最小EPSILON(x)* 正实数:1.1920929E-07 HUGE(x)* 查询x类型可表示的最大数。x:I、R,结果类型同x ILEN(x) 查询x的反码值。x:I,结果类型同x KIND(x)* 查询x的kind参数值。x:I、R、C、CH、L,结果:I MAXEXPONENT(x)* 查询x的最大正指数值。x:R,结果:I(4) MINEXPONENT(x)* 查询x的最大负指数值。x:R,结果:I(4) 函数名 PRECISION(x)* PRESENT(x) RADIX(x) RANGE(x)* SIZEOF(x)* TINY(x)*

查询x类型有效数字位数。x:R、C,结果:I(4) 查询可选形参x是否有对应实参。x:AT,结果:L。有:.TRUE.,没有:.FALSE. 查询x类型的基数。x:I、R,结果:L 查询x类型的指数范围。x:I、R、C,结果:I(4) 查询x的存储分配字节数。x:AT,结果:I(4) 查询x的最小正值。x:R,结果类型同x 表5 实数检测和控制函数

函数名 EXPONENT(x)* FRACTION(x)* NEAREST(x,s) RRSPACING(x) SCALE(x,I)* 说明 求实数x机内编码表示的指数值。x:R,结果:I 求实数x机内编码表示的小数值。x:R,结果类型同x 根据s的正负号求最接近x的值。x:R,结果:R,且不为0 求x与系统最大数之间的差值。x:R,结果类型同x 求x乘以2i。x:R,i:I,结果类型同x 求由x的机内编码小数值与指数i组成的实数。x:R,i:I,结SET_EXPONENT(x,i) 果类型同x SPACING(x)* 求x与x最近值的差值绝对值。x:R,结果类型同x

表6 字符处理函数

函数名 ACHAR(n) 说明 将ASCII码n转换为对应字符。n:I,n值域:0~127,结果:CH(1) 将字符串string左对齐,即去掉左端空格。string:CH(*),结ADJUSTL(string)* 果类型同string 将字符串string右对齐,即去掉右端空格。string:CH(*),结ADJUSTR(string)* 果类型同string CHAR(n)* 将ASCII码n转换为对应字符。n:I,n值域:0~255,结果:CH(1) IACHAR(c)* 将字符c转换为对应的ASCII码。c:CH(1),结果:I ICHAR(c)* 将字符c转换为对应的ASCII码。c:CH(1),结果:I 求子串ss在串s中起始位置。s:CH(*),ss:CH(*),b:L,结INDEX(s,ss[,b])* 果:I。b为真从右起 LEN(s)* 求字符串s的长度。s:CH(*),结果:I LEN_TRIM(s)* 求字符串s去掉尾部空格后的字符数。s:CH(*),结果:I 按ASCII码值判定字符串s1大于等于字符串s2。LGE(s1,s2)* s1:CH(*),s1:CH(*),结果:L LGT(s1,s2)* 按ASCII码值判定字符串s1大于字符串s2。s1:CH(*),s1:CH(*),结果:L 按ASCII码值判定字符串s1小于等于字符串s2。LLE(s1,s2)* s1:CH(*),s1:CH(*),结果:L 按ASCII码值判定字符串s1小于字符串s2。LLT(s1,s2)* s1:CH(*),s1:CH(*),结果:L REPEAT(s,n)* 求字符串s重复n次的新字符串。s:CH(*),n:I,结果:CH(*) 求串st中任一字符在串s中的位置。s:CH(*),ss:CH(*),b:L,SCAN(s,st[,b]) 结果:I TRIM(s)* 求字符串s去掉首尾部空格后的字符数。s:CH(*),结果:CH(*) 求不在串st中字符在s中位置。s:CH(*),ss:CH(*),b:L,结VERIFY(s,st[,b]) 果:I。b为真右起

表7 二进制位操作函数

函数名 BIT_SIZE(n)* 说明 求n类型整数的最大二进制位数。n:I,结果类型同n 判定整数n的二进制表示右起第p位是否为1。n:I,p:+I,pBTEST(n,p) 值域:0~64结果:L IAND(m,n)* 对m和n进行按位逻辑“与”运算。m:I,n:I,结果类型同m 将整数n二进制表示右起第p位值取反。n:I,p:+I,p值IBCHNG(n,p) 域:0~64结果类型同n 将整数n二进制表示右起第p位置0。n:I,p:+I,p值域:0~64IBCLR(n,p) 结果类型同n 从整数n二进制表示右起第p位开始取l位。IBITS(i,p,l) n:I,p:+I,l:+I,结果类型同n 将整数n二进制表示右起第p位置1。n:I,p:+I,p值域:0~64IBSET(n,p) 结果类型同n 对m和n进行按位逻辑“异或”运算。m:I,n:I,结果类型IEOR(m,n)* 同m IOR(m,n)* 对m和n进行按位逻辑“或”运算。m:I,n:I,结果类型同m 对n向左(s为正)或向右(s为负)移动s位(算术移位)。ISHA(n,s)* n:I,s:I,结果类型同n 对n向左(s为正)或向右(s为负)移动s位(循环移位)。ISHC(n,s)* n:I,s:I,结果类型同n 对n向左(s为正)或向右(s为负)移动s位(逻辑移位)。ISHFT(n,s)* n:I,s:I,结果类型同n 对n最右边size位向左(s为正)或向右(s为负)移动s位ISHFTC(n,s[,size]) (循环移位) 对n向左(s为正)或向右(s为负)移动s位(逻辑移位)。ISHL(n,s) n:I,s:I,结果类型同n