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