8.65 CO_MIN — Минимальное значение на текущем наборе изображений

Описание:

CO_MIN определяет поэлементно минимальное значение A по всем изображениям текущей команды. Если RESULT_IMAGE присутствует, минимальные значения возвращаются в A только для указанного изображения, а значение A для других изображений становится неопределённым. Если RESULT_IMAGE отсутствует, значение возвращается для всех изображений. Если выполнение прошло успешно и STAT присутствует, ему присваивается значение ноль. Если выполнение завершилось неудачно, STAT получает ненулевое значение, а ERRMSG (если присутствует) получает значение, описывающее произошедшую ошибку.

Стандарт:

Техническое задание (TS) 18508 или более поздняя версия

Класс:

Коллективная подпрограмма

Синтаксис:

CALL CO_MIN(A [, RESULT_IMAGE, STAT, ERRMSG])

Аргументы:

`A`	должна быть переменной целого, вещественного или символьного типа, которая имеет одинаковый тип и параметры типа на всех изображениях команды.
`RESULT_IMAGE`	(необязательно) скалярное целое выражение; если присутствует, оно должно иметь одинаковое значение на всех изображениях и ссылаться на изображение текущей команды.
`STAT`	(необязательно) скалярная целочисленная переменная
`ERRMSG`	(необязательно) скалярная символьная переменная

Пример:

program test
  integer :: val
  val = this_image ()
  call co_min (val, result_image=1)
  if (this_image() == 1) then
    write(*,*) "Minimal value", val  ! prints 1
  end if
end program test

См. также:

CO_MAX — Максимальное значение на текущем наборе изображений, CO_SUM — Сумма значений на текущем наборе изображений, CO_REDUCE — Сведение значений на текущем наборе изображений, CO_BROADCAST — Копирование значения на все изображения текущего набора изображений

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/CO_005fMIN.html