9.234 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