9.204 PACK — Упаковка массива в массив ранга один

Описание:

Хранит элементы массива ARRAY в массиве ранга один.

Начало результирующего массива состоит из элементов, чья маска MASK равна TRUE. Последующие позиции заполняются элементами, взятыми из VECTOR.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = PACK(ARRAY, MASK[,VECTOR])

Аргументы:

ARRAY	Должен быть массивом любого типа.
MASK	Должен быть массивом типа LOGICAL и иметь тот же размер, что и ARRAY. В качестве альтернативы, это может быть LOGICAL скаляр.
VECTOR	(Необязательно) должен быть массивом того же типа, что и ARRAY, и ранга один. Если присутствует, количество элементов в VECTOR должно быть равно или больше количества истинных элементов в MASK. Если MASK является скалярным, количество элементов в VECTOR должно быть равно или больше количества элементов в ARRAY.

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

Результат — массив ранга один и того же типа, что и ARRAY. Если VECTOR присутствует, размер результата соответствует размеру VECTOR, количество TRUE значений в MASK в противном случае.

Пример:

Сбор элементов, отличных от нуля, из массива:

PROGRAM test_pack_1
  INTEGER :: m(6)
  m = (/ 1, 0, 0, 0, 5, 0 /)
  WRITE(*, FMT="(6(I0, ' '))") pack(m, m /= 0)  ! "1 5"
END PROGRAM

Сбор элементов, отличных от нуля, из массива и добавление элементов из VECTOR:

PROGRAM test_pack_2
  INTEGER :: m(4)
  m = (/ 1, 0, 0, 2 /)
  WRITE(*, FMT="(4(I0, ' '))") pack(m, m /= 0, (/ 0, 0, 3, 4 /))  ! "1 2 3 4"
END PROGRAM

См. также:

UNPACK

Далее: PARITY, Предыдущий: OR, Вверх: Встроенные процедуры [Содержание][Индекс]