《Fortran95 程序设计》学习笔记 by 柳柳

? MOD(a,b) ，取余a%b ? REAL(a) ，转成浮点

? Epsilon(x) 给一个特小的数，输入x无所谓。用于浮点数相等的误差 ? HUGE(x) x可记录的最大值

? PRESENT(x) 看看x是否有参数传递进来 (Ruby : if x!= nil) ★ 数组专用：

? ANY (a==3) ，a中是否有等于3的？ ANY(mask [,dim]) ? ALL(a>5) a中全大于5， ALL(a<4,2) 二维全小于4 ? Count(a==3 [,dim]) 看看a中有多少等于3的 ? CSHIFT(array, shift [,dim]) 循环平移shift位 ? DOT_PRODUCT(a,b) 求a和b的内积

? EOSHIFT(array, shift [,boundary] [,dim]) 移位后用boundary填充空位 ? LBOUND(array [,dim]) 求下限；UBOUND(array [,dim]) 求上限 ? Size(array [,dim]) 返回数组的大小 ? MATMUL(a,b) 矩阵a*b

? Minval / Maxval (array [,dim] [,mask]) 找最小值最大值，mask可以有条件 ? MinLOC / MaxLOC (array [,dim] [,mask]) 找最小值最大值的位置 ★ 两个常用子程序

? Data_and_time(data,time[,zone,value]) 获得时间。其中data,time是字符串 ? Random_Seed(),Random_number(r) 随机数，可输入数组

第 16 页 共 16 页