Fortran 动态分配数组

program  main

integer  a(3,3)
integer ,allocatable :: arr_out(:,:)
data a /1,2,0,3,4,0,0,0,0/
integer src_size, desc_size

write(*,*) 'src_arr', a

src_size=3
desc_size=2

allocate(arr_out (desc_size, desc_size))
call resize_array(a,src_size, arr_out, desc_size)

write(*,*) "arr_out", arr_out

deallocate(arr_out)

end

subroutine resize_array(src_arr,src_size, desc_arr , desc_size)
integer  src_size,desc_size
integer  desc_arr(desc_size,desc_size)
integer  src_arr(src_size,src_size)

do i=1,desc_size
do j=1,desc_size
desc_arr (i,j) = src_arr(i,j)
end do
end do

end subroutine