9.241 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, указывающее параметр рода результата.

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

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

Пример:

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

См. также:

SHAPE, RESHAPE