9.253 SIZE — Определение размера массива

Описание:

Определяет размер МАССИВ по указанному измерению ИЗМЕРЕНИЕ или общее число элементов в МАССИВ, если ИЗМЕРЕНИЕ отсутствует.

Стандарт:

Fortran 90 и позднее, с аргументом KIND Fortran 2003 и позднее

Класс:

Функция запроса

Синтаксис:

RESULT = SIZE(ARRAY[, DIM [, KIND]])

Аргументы:

МАССИВ	Должен быть массивом любого типа. Если МАССИВ является указателем, он должен быть связан, а массивы с возможностью выделения должны быть выделены.
ИЗМЕРЕНИЕ	(Необязательно) должен быть скаляром типа INTEGER и его значение должно быть в диапазоне от 1 до n, где n равно рангу МАССИВ.
KIND	(Необязательно) Выражение инициализации, указывающее параметр вида результата.

Значение возврата:

Значение возврата имеет тип INTEGER и вид KIND. Если KIND отсутствует, значение возврата имеет стандартный целочисленный вид.

Пример:

PROGRAM test_size
  WRITE(*,*) SIZE((/ 1, 2 /))    ! 2
END PROGRAM

См. также:

SHAPE, RESHAPE