如果可用数组等级/大小，是否有任何理由使用假定大小的数组？

Question

如果我知道传递给函数或子例程的数组的大小和/或大小，是否有任何理由使用假定形状或假定大小的数组？ 例如，如果我可以替换

function f(a,m,n)
   real,dimension(*),intent(inout) :: a
   ! ...
end function

与

function f(a,m,n)
    real,dimension(m,n),intent(inout) :: a
    ! ...
end function

有什么理由（在Fortran 90或更高版本中）不这样做？

Answer 1

评论太久，没有太多答案...

这个

function f(a,m,n)
    real,dimension(m,n),intent(inout) :: a
    ! ...
end function

不会使a的假设形状阵列，它具有明确的形状(m,n) 这些天我写

function f(a)
    real,dimension(:,:),intent(inout) :: a
    ! ...
end function

在这个版本中a绝对假定形。 在（越来越）罕见的情况下，我需要在过程中使用数组的大小或形状，可以通过编写shape(a)等获得它。