在循环中为数组分配不同的大小

Question

我想在循环中分配不同大小的数组。我正在尝试这样做。

  program generate

  implicit none

  real, allocatable :: stored_data(:)

  integer n, ii

  n = 256

  do ii = 1, 64

     allocate(stored_data(n*ii))

     ***** some operations ******

     deallocate(stored_data)

  end do

  stop
  end program generate

它不起作用。这种方法不可能吗？如果没有，我该怎么办？

谢谢