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	скаляр типа integer по умолчанию (необязательный). Если присутствует, 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, Вверх: Встроенные процедуры [Содержание][Индекс]