8.219 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