8.210 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 — Функция, преобразующая косубскрипт в индекс изображения

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/NUM_005fIMAGES.html