这是我的问题：
我在模块中声明了一个3D数组，并使用从0开始的第一个索引进行分配：
REAL*8, POINTER :: QALC(:,:,:)
ALLOCATE(QALC(0:N+1,NR+1,NLVL))
我还有一个指针，我想指向上面的数组：
REAL*8, POINTER :: Q(:,:)
Q=>QALC(0:N+1,1:NR+1,L)
其中L是整数。上面的代码有效但不幸的是Q的索引从1开始而不是从0开始！有没有办法让Q第一个索引为0？
非常感谢， ILIAS
答案 0 :(得分：0)
您可以在指针赋值中指定Q的边界：
Q(0:,:) => QALC(:,:,L)