9.32 ATOMIC_FETCH_ADD — Атомарная операция ADD с предварительным извлечением

Описание:

ATOMIC_FETCH_ADD(ATOM, VALUE, OLD) атомарно сохраняет значение ATOM в OLD и добавляет значение VAR к переменной ATOM. Если STAT присутствует и вызов был успешным, ему присваивается значение 0. Если он присутствует и вызов завершился неудачно, ему присваивается положительное значение; в частности, для коиндексированной ATOM, если удалённый образ остановился, ему присваивается значение ISO_FORTRAN_ENV’s STAT_STOPPED_IMAGE и если удалённый образ завершился ошибкой, присваивается значение STAT_FAILED_IMAGE.

Стандарт:

TS 18508 или более поздняя версия

Класс:

Атомарная подпрограмма

Синтаксис:

CALL ATOMIC_FETCH_ADD (ATOM, VALUE, old [, STAT])

Аргументы:

ATOM	Скалярная комассивная или коиндексированная переменная целочисленного типа со значением ATOMIC_INT_KIND kind. ATOMIC_LOGICAL_KIND kind.
VALUE	Скаляр того же типа, что и ATOM. Если kind отличается, значение преобразуется к kind ATOM.
OLD	Скаляр того же типа и kind, что и ATOM.
STAT	(необязательно) Скалярная целочисленная переменная с типом по умолчанию.

Пример:

program atomic
  use iso_fortran_env
  integer(atomic_int_kind) :: atom[*], old
  call atomic_add (atom[1], this_image(), old)
end program atomic

См. также:

ATOMIC_DEFINE, ATOMIC_ADD, ISO_FORTRAN_ENV, ATOMIC_FETCH_AND, ATOMIC_FETCH_OR, ATOMIC_FETCH_XOR