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

Описание:

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

Стандарт:

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

Класс:

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

Синтаксис:

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

Аргументы:

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

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

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

Пример:

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

См. также:

SHAPE, RESHAPE