8.268 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

Далее: TIME, Предыдущее: TANH, Вверх: Встроенные процедуры [Оглавление][Индекс]