fortran里IP=MINLOC(CNB(1,:))

在Fortran中，`MINLOC` 函数用于寻找数组中最小元素的索引位置。`CNB(1,:)` 是一个二维数组，假设 `CNB` 的第一个元素列（第二个维度）包含了我们想要查找最小值的那一列。

Fortran示例:

integer, dimension(:, :) :: CNB
! 假设CNB已经定义并填充了数据

integer :: IP  ! 存储最小值的索引
IP = MINLOC(CNB(1, :))%first  ! 获取最小值所在的行索引
! 如果你想得到最小值所在的列索引，可以这样：
! IP = MINLOC(CNB(:, 1))%second  ! 注意这里取的是列索引

if (IP(1) > 0 .and. IP(2) > 0) then  ! 检查索引是否有效
   write(*, *) "Minimum value found at row ", IP(1), " and column ", IP(2)
else
   write(*, *) "No valid minimum found."
end if

在这个例子中，`MINLOC` 返回一个结构，其中 `%first` 存储最小值的行索引，`%second` 存储列索引。注意，Fortran的一维数组索引是从1开始的，所以要确保索引是有效的。