9.244 SHAPE — Определение формы массива

Описание:

Определяет форму массива.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = SHAPE(SOURCE [, KIND])

Аргументы:

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

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

Массив INTEGER ранга один с количеством элементов, соответствующим числу измерений SOURCE. Элементы результирующего массива соответствуют размеру SOURCE вдоль соответствующих измерений. Если SOURCE является скаляром, результатом является массив ранга один размером ноль. Если KIND отсутствует, возвращаемое значение имеет стандартный целочисленный тип. В противном случае, указанный тип.

Пример:

PROGRAM test_shape
  INTEGER, DIMENSION(-1:1, -1:2) :: A
  WRITE(*,*) SHAPE(A)             ! (/ 3, 4 /)
  WRITE(*,*) SIZE(SHAPE(42))      ! (/ /)
END PROGRAM

См. также:

RESHAPE, SIZE