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

Описание:

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

Синтаксис:

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

Аргументы:

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

ПРИМЕЧАНИЯ

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