Fortran 動態分配數組

參考連接： 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