Fortran数组大小分配

Question

我希望获取数据并创建形状相同的新数组。但是，我似乎让Fortran对这种语法感到不满：

例如，我想创建一个与输入数据大小相同的数组：

function allocate_size(input_data)
    IMPLICIT NONE
    REAL, INTENT(in) :: input_data
    REAL, DIMENSION(SIZE(input_data, DIM=1), SIZE(input_data, DIM=2), SIZE(input_data, DIM=3), SIZE(input_data, DIM=4), &
        SIZE(input_data, DIM=5)) :: new_data
end function allocate_size

或当其中一个SIZE（input_data，DIM = x）将被整数替换时略有不同的那个。这是一种不正确的方法吗？