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

Описание:

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

Синтаксис:

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

Аргументы:

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

ПРИМЕЧАНИЯ

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

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/_005fgfortran_005fcaf_005flock.html