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

Описание:

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

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = SHAPE(SOURCE [, KIND])

Аргументы:

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

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

А 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