9.209 NUM_IMAGES — Функция, возвращающая количество изображений

Описание:

Возвращает количество изображений.

Стандарт:

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

Класс:

Трансформационная функция

Синтаксис:

RESULT = NUM_IMAGES(DISTANCE, FAILED)

Аргументы:

DISTANCE	(необязательно, intent(in)) Неотрицательное скалярное целое число
FAILED	(необязательно, intent(in)) Скалярное логическое выражение

Значение результата:

Скалярное целое число стандартной точности. Если DISTANCE не указан или имеет значение 0, возвращается количество изображений в текущей команде. Для значений, меньших или равных расстоянию до начальной команды, возвращается количество индексов изображений в предковой команде, которая находится на расстоянии DISTANCE от вызывающей команды. Если DISTANCE больше, чем расстояние до начальной команды, возвращается количество изображений начальной команды. Если FAILED не указан, возвращается общее количество изображений; если он имеет значение .TRUE., возвращается количество ошибочных изображений, в противном случае возвращается количество изображений, не имеющих статуса ошибки.

Пример:

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

См. также:

THIS_IMAGE, IMAGE_INDEX