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

Описание:

Определяет размер ARRAY по указанному измерению DIM или общее количество элементов в ARRAY, если DIM отсутствует.

Стандарт:

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

Класс:

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

Синтаксис:

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

Аргументы:

ARRAY	Должен быть массивом любого типа. Если ARRAY — указатель, он должен быть связан, а распределяемые массивы должны быть распределены.
DIM	(Необязательно) должен быть скаляром типа INTEGER и его значение должно быть в диапазоне от 1 до n, где n равно рангу ARRAY.
KIND	(Необязательно) выражение инициализации INTEGER, указывающее параметр рода результата.

Возвращаемое значение:

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

Пример:

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

См. также:

SHAPE, RESHAPE