正确地将多维C数组传递给fortran，使得size函数（在fortran中）在每个维度中获得正确的大小？

I have a fortran subroutine like this which expects a 3d array and prints the size along each dimension:I have a fortran subroutine like this which exp