9.99 EVENT_QUERY — Запрос о выполнении события комассива

Описание:

EVENT_QUERY присваивает переменной COUNT количество событий, которые были опубликованы в переменной EVENT и еще не были удалены вызовом EVENT WAIT. Если присутствует STAT и вызов был успешным, ему присваивается значение 0. Если он присутствует и вызов не удался, ему присваивается положительное значение, а COUNT присваивается значение -1.

Стандарт:

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

Класс:

подпрограмма

Синтаксис:

CALL EVENT_QUERY (EVENT, COUNT [, STAT])

Аргументы:

EVENT	(intent(IN)) Скаляр типа EVENT_TYPE, определенный в ISO_FORTRAN_ENV; не должен быть индексирован по комассивам.
COUNT	(intent(out))Скалярный целочисленный тип с точностью по крайней мере стандартного целого типа.
STAT	(необязательно) Скалярная переменная целого типа по умолчанию.

Пример:

program atomic
  use iso_fortran_env
  implicit none
  type(event_type) :: event_value_has_been_set[*]
  integer :: cnt
  if (this_image() == 1) then
    call event_query (event_value_has_been_set, cnt)
    if (cnt > 0) write(*,*) "Value has been set"
  elseif (this_image() == 2) then
    event post (event_value_has_been_set[1])
  end if
end program atomic