fortran中maxloc的用法

在 Fortran 中 `MAXLOC` 是一个内置函数，用于返回在给定数组中最大元素的索引。

`MAXLOC` 函数的语法如下：

MAXLOC(array, dim, mask, kind)

其中，`array` 是包含要查找最大值的数组；`dim` 是指定在哪个维度上查找最大值的可选参数，默认值为 1；`mask` 是可选参数，是一个逻辑数组，表示哪些元素应该被考虑；`kind` 是可选参数，表示返回值的数据类型，默认为与数组相同。

下面是一个示例代码：

program maxloc_demo
  implicit none
  
  integer, dimension(3, 3) :: a = reshape([1,2,3,4,5,6,7,8,9], [3, 3])
  integer :: max_index(2)
  
  max_index = maxloc(a)
  write(*,*) "Maximum element of a is at index: ", max_index
  
end program maxloc_demo

输出为：

Maximum element of a is at index:            3           3

在上述示例中，我们定义了一个 3x3 的整数数组 `a`，并使用 `maxloc` 函数找到了最大元素的索引。由于未指定 `dim` 参数，因此默认在第一个维度上查找最大值。最大元素为 9，它的索引为 (3, 3)。