常用地Fortran函数.docVIP

常用的Fortran77函数 函数名 含 义 应用例子 相当数学上的运算 ABS EXP SIN COS ASIN ACOS TAN ATAN LOG LOGlO INT MOD SIGN REAL MAX MIN 求绝对值 指数运算 正弦值 余弦值 反正弦 反余弦 正切 反正切 自然对数 常用对数 取整 求余 求符号 转换为实型 求最大值 求最小值 ABS(X) EXP(X) SIN(X) COS(X) ASIN(X) ACOS(X) TAN(X) ATAN(X) ALOG(X) ALOG10(X) INT(X) MOD(X1，X2) SIGN(Xl，X2) REAL(I) MAX0(I1，I2，I3) MIN(Xl，X2，X3) ，取的整数部分 (当)，(当) F90数组运算内在函数表 函数名称 描述 ALL(mask[,dim]) 判断全部数组值在指定维上是否都满足mask的条件 ANY(mask[,dim]) 判断是否有数组值在指定维上满足mask的条件 COUNT(mask[,dim]) 统计在指定维上满足mask的条件的元素个数 CSHIFT(array,shift[,dim]) 进行指定维上的循环替换 DOT_PRODUCT(vector_a,vector_b) 进行两个向量的点乘 EOSHIFT(array,shift[,boundary][,dim]) 在指定维上替换掉数组末端，复制边界值到数组末尾 LBOUND(array[,dim]) 返回指定维上的下界 MATMUL(matrix_a,matrix_b) 进行两个矩阵(二维数组)的乘积 MAXLOC(array[,dim][,mask]) 返回数组的全部元素或指定维元素当满足mask条件的最大值的位置 MAXVAL(array[,dim][,mask]) 返回在指定维上满足mask条件的最大值 MERGE(tsource,fsource,mask) 按mask条件组合两个数组 MINLOC(array[,dim][,mask]) 返回数组的全部元素或指定维元素当满足mask条件的最小值的位置 MINVAL(array[,dim][,mask]) 返回在指定维上满足mask条件的最小值 PACK(array,mask[,vector]) 使用mask条件把一个数组压缩至vector大小的向量 PRODUCT(array[,dim][,mask]) 返回在指定维上满足mask条件的元素的乘积 RESHAPE(source,shape[,pad][,order]) 使用顺序order和补充pad数组元素来改变数组形状 SHAPE(source) 返回数组的形状 SIZE(array[,dim]) 返回数组在指定维上的长度 SPREAD(source,dim,ncopies) 通过增加一维来复制数组 SUM(array[,dim][,mask]) 返回在指定维上满足mask条件的元素的和 TRANSPOSE(matrix) 转置二维数组 UBOUND(array[,dim]) 返回指定维上的上界 UNPACK(vector,mask,field) 把向量在mask条件下填充field的元素解压至数组