9.256 THIS_IMAGE — Функция, возвращающая индекс коподписи этой картинки

Описание:

Возвращает коподпись для данной картинки.

Стандарт:

Fortran 2008 и более поздние версии. С аргументом DISTANCE, Техническое описание (TS) 18508 или более поздние версии

Класс:

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

Синтаксис:

RESULT = THIS_IMAGE()

RESULT = THIS_IMAGE(DISTANCE)

RESULT = THIS_IMAGE(COARRAY [, DIM])

Аргументы:

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

Значение возврата:

Целое значение по умолчанию. Если COARRAY отсутствует, оно является скалярным; если DISTANCE отсутствует или имеет значение 0, его значение равно индексу изображения на вызывающем изображении для текущей команды, для значений, меньших или равных расстоянию до начальной команды, возвращает индекс изображения на предковой команде, находящейся на расстоянии DISTANCE от вызывающей команды. Если DISTANCE больше расстояния до начальной команды, возвращается индекс изображения начальной команды. В противном случае, когда присутствует 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

! Check whether the current image is the initial image
IF (THIS_IMAGE(HUGE(1)) /= THIS_IMAGE())
  error stop "something is rotten here"

См. также:

NUM_IMAGES, IMAGE_INDEX