8.207 RESHAPE — Функция изменения формы массива

Описание:

Изменяет форму массива SOURCE в соответствии со значением SHAPE. При необходимости, новый массив может быть дополнен элементами из PAD или переупорядочен в соответствии с ORDER.

Стандарт:

Fortran 95 и более поздние версии

Класс:

Функция преобразования

Синтаксис:

RESULT = RESHAPE(SOURCE, SHAPE[, PAD, ORDER])

Аргументы:

SOURCE	Должен быть массивом любого типа.
SHAPE	Должен быть типа INTEGER и одномерным массивом. Его значения должны быть положительными или нулевыми.
PAD	(Необязательно) должен быть массивом того же типа, что и SOURCE.
ORDER	(Необязательно) должен быть типа INTEGER и массивом той же формы, что и SHAPE. Его значения должны представлять собой перестановку чисел от 1 до n, где n — размер SHAPE. Если ORDER отсутствует, предполагается естественный порядок.

Возвращаемое значение:

Результат — массив формы SHAPE того же типа, что и SOURCE.

Пример:

PROGRAM test_reshape
  INTEGER, DIMENSION(4) :: x
  WRITE(*,*) SHAPE(x)                       ! prints "4"
  WRITE(*,*) SHAPE(RESHAPE(x, (/2, 2/)))    ! prints "2 2"
END PROGRAM

См. также:

SHAPE