8.243 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 — Определить размер массива

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/SHAPE.html