8.67 CO_SUM — Сумма значений на текущем наборе изображений

Description:

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

Standard:

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

Class:

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

Syntax:

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

Arguments:

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

Example:

program test
  integer :: val
  val = this_image ()
  call co_sum (val, result_image=1)
  if (this_image() == 1) then
    write(*,*) "The sum is ", val ! prints (n**2 + n)/2,
                                  ! with n = num_images()
  end if
end program test

See also:

CO_MAX, CO_MIN, CO_REDUCE, CO_BROADCAST