在fortran中仅为2D数组分配一个维度

Question

假设我有一个2D数组A（：，2），其中只有第一维的大小未知。 是否可以仅为A的第一维分配？ 如果没有，我必须去＆＃34;分配（A（n，2））＆＃34;每次将A视为A（：，:)。

Answer 1

如果第二个维度的大小总是为2，那么您可以创建一个包含两个变量的数据类型，然后分配它们的数组：

program main
    implicit none

    type two_things
        integer :: first
        integer :: second
    end type two_things

    type(two_things), dimension(:), allocatable :: A

    allocate(A(100))

    A(1)%first = 1
    A(1)%second = 2

    print*, A(1)%first, A(1)%second, shape(A)

    deallocate(A)

end program main