9.66 CO_REDUCE — Сведение значений на текущем наборе изображений

Описание:

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

Стандарт:

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

Класс:

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

Синтаксис:

CALL CO_REDUCE(A, OPERATOR, [, RESULT_IMAGE, STAT, ERRMSG])

Аргументы:

A	является аргументом INTENT(INOUT), и должен быть не полиморфным. Если он является распределяемым, он должен быть распределён; если это указатель, он должен быть связан. A должен иметь тот же тип и типы параметров на всех изображениях команды; если это массив, он должен иметь одинаковую форму на всех изображениях.
OPERATOR	чистая функция с двумя скалярными нераспределяемыми аргументами, которые должны быть не полиморфными и иметь тот же тип и типы параметров, что и A. Функция должна возвращать скаляр, не являющийся распределяемым, того же типа и типов параметров, что и A. Функция должна быть одинаковой на всех изображениях и относительно аргументов математически коммутативной и ассоциативной. Обратите внимание, что OPERATOR не может быть элементарной функцией, за исключением встроенных функций.
RESULT_IMAGE	(необязательно) скалярное целочисленное выражение; если присутствует, оно должно иметь одинаковое значение на всех изображениях и ссылаться на изображение текущей команды.
STAT	(необязательно) скалярная целочисленная переменная
ERRMSG	(необязательно) скалярная символьная переменная

Пример:

program test
  integer :: val
  val = this_image ()
  call co_reduce (val, result_image=1, operator=myprod)
  if (this_image() == 1) then
    write(*,*) "Product value", val  ! prints num_images() factorial
  end if
contains
  pure function myprod(a, b)
    integer, value :: a, b
    integer :: myprod
    myprod = a * b
  end function myprod
end program test

Примечание:

Хотя правила допускают в принципе встроенную функцию, ни одна из встроенных функций в стандарте не соответствует критериям наличия определённой функции, которая принимает два аргумента одного типа и возвращает этот тип в результате.

См. также:

CO_MIN, CO_MAX, CO_SUM, CO_BROADCAST

Далее: CO_SUM, Предыдущее: CO_MIN, Вверх: Встроенные процедуры [Оглавление][Индекс]