program find_max_value implicit none integer :: array(5) = [1, 5, 3, 2, 4] integer :: max_value integer :: i max_value = array(1) do i = 2, size(array) if (array(i) > max_value) then max_value = array(i) end if
FUNCTION max_value (num,iarray) FUNCTION gamma(x) 此语句声明用户定义的Fortran函数。函数的类型可以在语句中,也可以在单独的类型声明语句中声明。该函数通过在调用程序中的表达式中命名来执行。形参是执行函数时传递的调用参数的占位符。如果一个函数有参数,在声明它的时候仍然必须使用一对空括号[例如name...
MAXLOC (ARRAY, MASK) 返回MASK为真对应的ARRAY中的元素的最大值的位置,结果是带有一个元素的一维数组,这个数组元素是ARRAY中的下标值(MASK是可选的) MAXVAL (ARRAY, MASK)* 返回MASK为真对应的ARRAY中的元素的最大值(MASK是可选的) MINLOC (ARRAY, MASK) 返回符合MASK为具的ARRAY中的元素的最小值的位置,...
其目的是在maxloc中使用这个交集作为掩码,这样我就可以从一个数组中将最大的几个元素拉到另一个数组中(类似于在最大堆中重复根删除的行为)。目前,我只是在将索引的值插入第二个数组之后,将maxloc找到的索引的值设置为零,但我希望Fortran有一个与掩码相关的聪明方法。(在这个最大的检索过程中保持原始数组的完整...
或MAXLOC (ARRAY [, MASK]) 数组中最大值的位置 MINLOC (ARRAY, DIM [, MASK]) 或MINLOC (ARRAY [, MASK]) 数组中最小值的位置 2.1.20 指针关联状态函数通用内函数名 说明 ASSOCIATED (POINTER [, TARGET]) 关联状态查询或比较 NULL ([MOLD]) 返回分离的指针 2.1...
Fortran - 快速指南 转载自https://iowiki.com/fortran/,在此基础上做了一些补充。 Fortran - Overview Fortran,源自公式翻译系统,是一种通用的命令式编程语言。 它用于数字和科学计算。 Fortran最初由IBM在20世纪50年代开发用于科学
bigmax_align:spec native:spec max_align 为目标平台声明最大字节对齐。允许的值为 1、2、4、8 和 16。对齐适用于 Fortran VAX 结构和 Fortran 派生类型,它们使用依赖于平台的对齐来获得与 C 语言结构的兼容性。 little 指定平台上的 "little-endian" 文件,其中最大字节对齐为 max_align。例如,little4 ...
MAXLOC Transformational Intrinsic Function (Generic): Returns the location of the maximum value of all elements in an array, a set of elements in an array, or elements in a specified dimension of an array.Syntax result = MAXLOC (array [, dim] [, mask] )array (Input) Must ...
其他常用运算函数:MAX, MIN, MOD(X,Y)(等价于C语言中的 X%Y) READ(*,*)语句读取多个数据时,从新的一行开始读取(键盘或文件),以空格分界。例如: program example_101 implicit none INTEGER::I,J,K,L,M,N READ(*,*) I,J,K READ(*,*) L,M READ(*,*) N WRITE(*,*) "I = ",I,", J...
Array reduction functions all, sum Array inquiry functions allocated Array construction functions merge, pack Array reshape function reshape Array manipulation functions cshift Array location functions maxloc Pointer association status functions associated Intrinsic subroutines cpu_time A program unit consists ...