9.269 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, Вверх: Встроенные процедуры [Содержание][Индекс]