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

Описание:

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

Стандарт:

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

Класс:

Подпрограмма коллектива

Синтаксис:

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

Аргументы:

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

Пример:

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

См. также:

CO_MIN, CO_SUM, CO_REDUCE, CO_BROADCAST