9.245 SPREAD — Добавить измерение массиву

Описание:

Дублирует массив SOURCE NCOPIES раз вдоль указанного измерения DIM.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = SPREAD(SOURCE, DIM, NCOPIES)

Аргументы:

SOURCE	Должен быть скаляром или массивом любого типа и ранга менее семи.
DIM	Должен быть скаляром типа INTEGER со значением в диапазоне от 1 до n+1, где n равно рангу SOURCE.
NCOPIES	Должен быть скаляром типа INTEGER.

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

Результат — массив того же типа, что и SOURCE, и имеет ранг n+1, где n равно рангу SOURCE.

Пример:

PROGRAM test_spread
  INTEGER :: a = 1, b(2) = (/ 1, 2 /)
  WRITE(*,*) SPREAD(A, 1, 2)            ! "1 1"
  WRITE(*,*) SPREAD(B, 1, 2)            ! "1 1 2 2"
END PROGRAM

См. также:

UNPACK