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-13.3.0/gfortran/SHAPE.html