8.242 THIS_IMAGE — Функция, возвращающая индекс коподстроки данного изображения

Описание:

Возвращает коподстроку для данного изображения.

Стандарт:

Fortran 2008 и более поздние версии

Класс:

Функция преобразования

Синтаксис:

RESULT = THIS_IMAGE()

RESULT = THIS_IMAGE(COARRAY [, DIM])

Аргументы:

COARRAY	Массив косортировки любого типа (необязательно; если присутствует DIM, требуется).
DIM	скаляр целого типа по умолчанию (необязательно). Если присутствует, DIM должен быть целым числом от одного до ранга косортировки COARRAY.

Значение возвращаемого значения:

Целое число по умолчанию. Если COARRAY отсутствует, возвращается скалярное значение, равное индексу вызывающего изображения. В противном случае, если DIM отсутствует, возвращается одномерный массив с количеством элементов, равным рангу косортировки, содержащий коподстроки для COARRAY, указывающие вызывающее изображение. Если DIM присутствует, возвращается скалярное значение, равное элементу с индексом DIM в THIS_IMAGE(COARRAY).

Пример:

INTEGER :: value[*]
INTEGER :: i
value = THIS_IMAGE()
SYNC ALL
IF (THIS_IMAGE() == 1) THEN
  DO i = 1, NUM_IMAGES()
    WRITE(*,'(2(a,i0))') 'value[', i, '] is ', value[i]
  END DO
END IF

См. также:

NUM_IMAGES, IMAGE_INDEX