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

Описание:

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

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = SHAPE(SOURCE [, KIND])

Аргументы:

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

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

Массив ранга один с количеством элементов, равным количеству измерений 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