CSHIFT中参数的形状不一致

Question

我无法执行以下4-D阵列的移位。 该程序显示：The shapes of the arguments are inconsistent or non - conformable.

fin和fout的尺寸：

fin (1:15,1:3,1:3,1:3)
fout (1:15,1:3,1:3,1:3)

exlD3 = (/ 0 , 1 , 0 , -1 , 0 , 0 , 0 , 1 , 1, 1, 1, -1, -1, -1, -1 /)
eylD3 = (/ 0 , 0 , 1 , 0 , -1 , 0 , 0 , 1 , 1, -1, -1, 1, 1, -1, -1 /) 
ezlD3 = (/ 0 , 0 , 0 , 0 , 0 , 1 , -1 , 1 , -1, -1, 1, -1, 1, 1, -1 /)

do k = 1,q
    cshiftx = exlD3(k)
    cshifty = eylD3(k)
    cshiftz = ezlD3(k)
    fin(k,:,:,:) = cshift( fout(k,:,:,:), SHIFT = (/0, cshifty, cshiftx, cshiftz/) )
end do