9.31 ATOMIC_DEFINE — Установка переменной атомарно

Описание:

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

Стандарт:

Fortran 2008 и более поздние версии; с STAT, TS 18508 и более поздние версии

Класс:

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

Синтаксис:

CALL ATOMIC_DEFINE (ATOM, VALUE [, STAT])

Аргументы:

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

Пример:

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

См. также:

ATOMIC_REF, ATOMIC_CAS, ISO_FORTRAN_ENV, ATOMIC_ADD, ATOMIC_AND, ATOMIC_OR, ATOMIC_XOR