Fortran - lbound 抛出错误 6366“数组表达式的形状不符合”

Question

所以我又被 Fortran 搞糊涂了。去搞清楚。无论如何，我正在尝试编写一个非常简单的例程，将值从数组的末尾剥离。一切复杂的工作都很好，除了我想编写子例程，这样我就不必将输入数组的下限传递给它。这是子程序：

    subroutine Strip(list,lstart, index)        
        implicit none 
        integer :: i, index, isize, tsize, lstart, istart
        real, dimension(:), allocatable, intent(inout) :: list
        real, dimension(:), allocatable :: tlist             
        isize = size(list)             
        tsize = index-1                
        print *, 'index', index 
        print *, 'isize', isize
        print*, 'lbound', INT(lbound(list))
        print*, 'tsize', tsize      
        istart = lbound(list) !<---- This lines throws the error 
        !These are commented out because everything below here works 
        !allocate(tlist(lstart:tsize))
        !tlist = list(lstart:index-1)
        !deallocate(list) 
        !call move_alloc(tlist,list) 
    end subroutine Strip 

现在我将输入列表的下限传递给子例程 (lstart)，但我不想这样做。反正这段代码没有编译通过，编译器抛出错误6366: The shapes of the array expressions do not conform [ISTART]

我不知道如何解决这个问题。有什么建议？

Answer 1

Lbound() 返回一个数组！阅读 Fortran 手册 (RTFM)，地址为 https://gcc.gnu.org/onlinedocs/gfortran/LBOUND.html

它返回一个数组，其元素数量与数组的秩（“维度”1D、2D、...）一样多。

要获取单个数字，对于特定维度，请使用可选参数 DIM。

istart = lbound(list, 1)