8.281 UNPACK — Распаковка массива ранга один в массив

Описание:

Сохранение элементов Вектора в массиве более высокого ранга.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = UNPACK(VECTOR, MASK, FIELD)

Аргументы:

`Вектор`	Должен быть массивом любого типа и ранга один. Он должен иметь по крайней мере столько элементов, сколько значений у `Маска`.
`Маска`	Должен быть массивом типа `LOGICAL`.
`Поле`	Должен быть того же типа, что и `Вектор`, и иметь такую же форму, что и `Маска`.

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

Полученный массив соответствует Поле с TRUE элементами Маска, заменёнными значениями из Вектор в порядке элементов массива.

Пример:

PROGRAM test_unpack
  integer :: vector(2)  = (/1,1/)
  logical :: mask(4)  = (/ .TRUE., .FALSE., .FALSE., .TRUE. /)
  integer :: field(2,2) = 0, unity(2,2)

  ! result: unity matrix
  unity = unpack(vector, reshape(mask, (/2,2/)), field)
END PROGRAM

См. также:

PACK — Упаковка массива в массив ранга один, SPREAD — Добавление измерения к массиву

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