9.244 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