8.2.10 _gfortran_caf_lock — Блокировка переменной блокировки

Описание:

Захват блокировки заданного изображения на скалярной переменной блокировки или для заданного элемента массива для переменной массива. Если aquired_lock NULL, функция возвращает значение после получения блокировки. Если она не null, результат присваивается значению true (единица), если блокировка может быть получена, и false (ноль) в противном случае. Блокировка переменной блокировки, которая уже заблокирована тем же изображением, является ошибкой.

Синтаксис:

void _gfortran_caf_lock (caf_token_t token, size_t index, int image_index, int *aquired_lock, int *stat, char *errmsg, int errmsg_len)

Аргументы:

token	intent(in) Непрозрачный указатель, идентифицирующий комассив.
index	Индекс массива; первый индекс массива равен 0. Для скаляров он всегда равен 0.
image_index	Идентификатор удалённого изображения; должен быть положительным числом.
aquired_lock	intent(out) Если не NULL, возвращает, была ли получена блокировка
stat	intent(out) Хранит STAT=; может быть NULL
errmsg	intent(out) При возникновении ошибки устанавливается сообщение об ошибке; может быть NULL
errmsg_len	размер буфера errmsg.

ПРИМЕЧАНИЯ

Эта функция также вызывается для критических блоков; для них индекс массива всегда равен нулю, а индекс изображения равен единице. Библиотекам разрешается использовать другие изображения для переменных блокировки критических блоков.