9.211 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