Fortran - 定位函数

下表描述了定位函数:

函数	描述
maxloc(array, mask)	返回array数组中最大元素的位置，如果仅包含满足mask条件的mask，则返回position，结果为整数向量。
minloc(array, mask)	返回array数组中最小元素的位置，如果仅包含满足mask条件的元素，则返回position，结果为整数向量。

示例

以下示例演示了这个概念:

program arrayLocation
implicit none

   real, dimension(1:6) :: a = (/ 21.0, 12.0,33.0, 24.0, 15.0, 16.0 /)
   Print *, maxloc(a)
   Print *, minloc(a)
   
end program arrayLocation

当上面的代码被编译并执行时，会产生以下结果: