Fortran标准函数库.doc

附录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的绝对值1 x Io x:I、R,结果类型同 x; x:C, 结果:RAIMAG(x)求x的实部x:C,结果:RAINT(x[,kind])*对x取整,并转换为实数(kind) o x:R, kind:I, 结果:R(kind)AMAX0(x,X2,x 3,…)*求xi,x 2,x 3,…中最大值x i:I, 结果:RAMIN0(X1,X2,x 3,…)*求xi,x 2,x 3,…中最小值°x i:I, 结果:RANINT(x[,kind])*对x四舍五入取整,并转换为实数(kind)x:R, kind:I, 结果:R(kind)CEILING(x)*求大于等于x的最小整数x:R,结果:ICMPLX(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,结果:CDBLE(x)*将x转换为双精度实数x:I、R C,结果:R(8)DCMPLX(x[,y])将参数转换为 x、(x,0.0)或(x,y) o 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,结果类型同xDPROD(x,y)求x和y的乘积，并转换为双精度实数x:R, y:R,结果:R(8)FLOAT(x)*将x转换为单精度实数x:I,结果:RFLOOR(x)*求小于等于x的最大整数x:R,结果:IIFIX(x)*将x转换为整数(取整)x:R,结果:IIMAG(x)同 AIMAG(x)INT(x[,kind])*将x转换为整数(取整)x:I、R C, kind:I, 结果:I(kind)LOGICAL(x[,kind])*按kind值转换新逻辑值x:L,结果:L(kind)MAX(x,x 2,x 3,…)*求Xi,X 2,X 3,…中最大值。

X I为任意类型，结果类型同XiMAX1(x,X2,X3,…)*求xi,x 2,x 3,…中最大值(取整)o x i：R,结果:1MIN(X1,x 2,x 3,…)*求Xi,X 2,x 3,…中最小值X I为任意类型，结果类型同XiMIN1(X1,X2,X3,…)*求xi,x 2,x 3-•中最小值(取整)o X i：R,结果:IMOD(x,y)*求x/y的余数，值为x-INT(x/y)*y x:I、R, y 的类型同x,结果类型同xMODULO(x,y)求x/y余数,值为x-FLOOR(x/y)*yx:I、R, y 的类型同x,结果类型同xNINT(x[,kind])*将x转换为整数(四舍五入)x:R, kind:I, 结果:I(kind)REAL(x[,kind])*将x转换为实数x:I、R C, kind:I, 结果:R(kind)SIGN(x,y)*求x的绝对值乘以y的符号x:I、R, y 的类型同x,结果类型同xSNGL(x)将双精度实数转换为单精度实数x:R(8),结果:RZEXT(x)用0向左侧扩展xo x:I、L,结果:I表2三角函数函数名说明ACOS(x)*求x的反余弦arccos(x)。

x:R,结果类型同 x,结果值域:0~ nACOSD(x)*求x的反余弦arccos(x)x:R,结果类型同 x,结果值域:0~180 °ASIN(x)*求x的反正弦arcsin(x) x:R,结果类型同 x,结果为弧度,值域:0〜nASIND(x)*求x的反正弦arcsin(x) x:R,结果类型同 x,结果为度,值域:0〜180°ATAN(x)*求x的反正切arctg(x)x:R,结果类型同 x,结果为弧度，值域:-n/2〜n/2ATAND(x)*求x的反正切arctg(x) o x:R,结果类型同 x,结果为度，值域:-90〜90 °ATAN2(y,x)求x的反正切arctg(y/ x)y:R,x和结果类型同x,结果值域:-n〜nATAN2D(y,x)求x的反正切arctg(y/ x)y:R,x和结果类型同x,结果值域:-180〜180 °COS(x)*求x的余弦cos(x) o x:R、C,x取值弧度,结果类型同xCOSD(x)*求x的余弦cos(x) o x:R,x取值度,结果类型同xCOSH(x)求x的双曲余弦ch(x) o x:R,结果类型同 xCOTAN(x)*求x的余切ctg(x) o x:R,x取值度,结果类型同xSIN(x)*求x的正弦sin(x) o x:R、C,x取值弧度，结果类型同xSIND(x)*求x的正弦sin(x) o x:R,x取值度,结果类型同xSINH(x)求x的双曲正弦sh(x) o x:R,结果类型同 xTAN(x)*求x的正切tg(x) o x:R,x取值弧度，结果类型同xTAND(x)*求x的正切tg(x) o x:R,x取值度,结果类型同xTANH(x)求x的双曲正切th(x) o x:R,结果类型同 x注：三角函数名前有 C D的函数为复数、双精度型函数。

表3指数、平方根和对数函数函数名说明ALOG(x)求x的自然对数ln(x) o x:R(4),结果:R(4)ALOG10(x)求x以10为底一般对数log i0(x) o x:R(4),结果:R(4)EXP(x)*求指数,即exo x:R、C,结果类型同xLOG(x)*求自然对数，即exo x:R、C,结果类型同xLOG10(x)*求以10为底对数,即x:R,结果类型同 xSQRT(x)*求x的平方根x:R、C,结果类型同 x注：指数函数名、平方根函数名、对数函数名前有 C D的函数为复数、双精度型函数表4参数查询函数函数名说明ALLOCATED(a)*判定动态数组a是否分配内存a:A,结果:L,分配:.TRUE.,未分配:.FALSE.ASSOCIATED(p[,t])*判定指针p是否指向目标t o p:P,t:AT,结果:L,指向:.TRUE.,未指向:.FALSE.DIGITS(x)查询x的机内编码数值部分二进制位数(除符号位和指数位)x:l、R,结果:IEPSILON(x)*查询x类型可表示的最小正实数x:R,结果类型同X最小正实数：1.1920929E-07HUGE(x)*查询x类型可表示的最大数。

x:I、R,结果类型同 xILEN(x)查询x的反码值x:I,结果类型同 xKIND(x)*查询x的kind参数值x:I、R C CH L,结果:IMAXEXPONENT(x)*查询x的最大正指数值x:R,结果:I(4)MINEXPONENT(x)*查询x的最大负指数值x:R,结果:I(4)PRECISION(x)*查询x类型有效数字位数x:R、C,结果:I(4)PRESENT(x)查询可选形参x是否有对应实参x:AT,结果丄有:.TRUE.,没有:.FALSE.RADIX(x)查询x类型的基数x:I、R,结果丄RANGE(x)*查询x类型的指数范围x:I、R C,结果:I(4)SIZEOF(x)*查询x的存储分配字节数x:AT,结果:I(4)TINY(x)*查询x的最小正值x:R,结果类型同 x表5实数检测和控制函数函数名说明EXPONENT(x)*求实数x机内编码表示的指数值x:R,结果:IFRACTION(x)*求实数x机内编码表示的小数值x:R,结果类型同 xNEAREST(x,s)根据s的正负号求最接近 x的值x:R,结果:R,且不为 0RRSPACING(x)求x与系统最大数之间的差值。

x:R,结果类型同 xSCALE(x,l)*求x乘以2io x:R,i:I,结果类型同 xSET_EXPONENT(x,i)求由x的机内编码小数值与指数i组成的实数x:R,i:I,结果类型同 xSPACING(x)*求x与x最近值的差值绝对值x:R,结果类型同 x表6字符处理函数函数名说明ACHAR(n)将ASCII码n转换为对应字符n:I,n 值域:0~127,结果:CH(1)ADJUSTL(string)*将字符串string左对齐，即去掉左端空格string:CH(*),结果类型同 stringADJUSTR(string)*将字符串string右对齐，即去掉右端空格string:CH(*),结果类型同 stringCHAR(n)*将ASCII码n转换为对应字符n:I,n 值域:0〜255,结果:CH(1)IACHAR(c)*将字符c转换为对应的ASCII码c:CH(1),结果:IICHAR(c)*将字符c转换为对应的ASCII码c:CH(1),结果:IINDEX(s,ss[,b])*求子串ss在串s中起始位置s:CH(*),ss:CH(*),b:L, 结果:I o b 为真从右起LEN(s)*求字符串s的长度。

s:CH(*),结果:ILEN_TRIM(s)*求字符串s去掉尾部空格后的字符数s:CH(*),结果:ILGE(s1,s2)*按ASCII码值判定字符串si大于等于字符串s2o s1:CH(*),s1:CH(*), 结果丄LGT(s1,s2)*按ASCII码值判定字符串si大于字符串s2o s1:CH(*),s1:CH(*), 结果丄LLE(s1,s2)*按ASCII码值判定字符串si小于等于字符串s2o s1:CH(*),s1:CH(*), 结果丄LLT(s1,s2)*按ASCII码值判定字符串si小于字符串s2o s1:CH(*),s1:CH(*), 结果丄REPEAT(s,n)*求字符串s重复n次的新字符串s:CH(*),n:I,结果:CH(*)SCAN(s,st[,b])求串st中任一字符在串 s中的位置s:CH(*),ss:CH(*),b:L, 结果:ITRIM(s)*求字符串s去掉首尾部空格后的字符数s:CH(*),结果:CH(*)VERIFY(s,st[,b])求不在串st中字符在s中位置s:CH（*）,ss:CH（*）,b:L, 结果:I °b 为真右起表7二进制位操作函数函数名说明BIT_SIZE(n)*求n类型整数的最大二进制位数。

n:l,结果类型同 nBTEST(n,p)判定整数n的二进制表示右起第 p位是否为1n:I,p:+I,p 值域:0〜64结果丄IAND(m,n)*对m和n进行按位逻辑“与”运算m:I,n:I,结。