7.2.8 _gfortran_caf_register — Регистрация coarrays

Регистрирует память для coarray и создаёт токен для идентификации coarray. Эта процедура вызывается как для coarrays с атрибутом SAVE , так и при использовании явного ALLOCATE оператора. Если произошла ошибка и STAT является NULL указателем, функция прервётся с выводом сообщения об ошибке и запуском завершения по ошибке. Если ошибки не произошло и STAT присутствует, он будет установлен в ноль. В противном случае он будет установлен в положительное значение, и, если не NULL, ERRMSG будет установлен в строку, описывающую сбой. Процедура зарегистрирует память, предоставленную в DATA-компоненте описания массива DESC, если эта компонента не NULL, иначе она выделит достаточно памяти и предоставит указатель на неё в DATA-компоненте DESC. Описание массива имеет ранг ноль, когда требуется зарегистрировать скалярный объект, и описание массива может стать недействительным после вызова _gfortran_caf_register. Когда массив должен быть выделен, описание сохраняется.

Для CAF_REGTYPE_COARRAY_STATIC и CAF_REGTYPE_COARRAY_ALLOC, переданный размер — это запрашиваемый размер в байтах. Для CAF_REGTYPE_LOCK_STATIC, CAF_REGTYPE_LOCK_ALLOC и CAF_REGTYPE_CRITICAL это размер массива или единица для скаляра.

Когда используется CAF_REGTYPE_COARRAY_ALLOC_REGISTER_ONLY, создаётся только токен для компоненты, объявленной как allocatable или указатель. Параметр SIZE при этом не используется. Напротив, когда указан CAF_REGTYPE_COARRAY_ALLOC_ALLOCATE_ONLY, токен token необходимо зарегистрировать с помощью предыдущего вызова с типом regtype CAF_REGTYPE_COARRAY_ALLOC_REGISTER_ONLY, и либо регистрируется память, указанная в data-ptr описания DESC, либо происходит выделение, если data-ptr NULL.

void caf_register (size_t size, caf_register_t type, caf_token_t *token, gfc_descriptor_t *desc, int *stat, char *errmsg, size_t errmsg_len)

Не-allocatable coarrays должны быть зарегистрированы до использования из удалённых изображений. Для обеспечения этого они должны быть зарегистрированы до начала основной программы. Это можно достичь, создав функции-конструкторы. Именно это делает GCC, чтобы память также выделялась для не-allocatable coarrays и не использовалась статическая память. Токен позволяет идентифицировать coarray; для процессора токен — это неперекрывающийся указатель. Библиотека может, например, хранить базовый адрес coarray в токене, некотором обработчике или более сложном структуре. Библиотека также может хранить описание массива DESC, когда его ранг не нулевой.

Для типов блокировок значение используется только для проверки статуса выделения. Обратите внимание, что для критических блоков блокировка требуется только на одном изображении; в операторе блокировки процессор всегда должен передать индекс изображения единицу для переменных блокировки критических блоков (CAF_REGTYPE_CRITICAL). Для типов блокировок и переменных критических блоков начальное значение должно быть разблокировано (соответственно, не в критической секции), например, значение false; для типов событий — начальное состояние — отсутствие события, например, ноль.