, смотрящий на первый ответ, кажется, что нет необходимости создавать производный тип vector
, который на самом деле является всего лишь распределяемым целым массивом:
type ragged_array
integer,allocatable::v(:)
end type ragged_array
type(ragged_array),allocatable::r(:)
allocate(r(3))
allocate(r(1)%v(5))
allocate(r(2)%v(10))
allocate(r(3)%v(15))
это делает запись немного менее громоздкой ..