如果 数组 arr 是2*2的，如
1,3
2,4

调用子程序 fun()

但是子程序里面的数组的长度和外面的数组不匹配时， 就会可能不是你想要的结果。

这里分成两种情况，

情况1， 函数里面比外面的大。
如 将 2*2 的数组，传入 3*3的数组。
2*2是这样的：
1,3
2,4

那么 3*3就会变成
1，4，0
2，0，0
3，0，0

这是因为数组中数据的存放导致的。

情况2，将大数组，传入 小数组。
如3*3是
1，4，7
2，5，8
3，6，9
那么2*2 就变成了
1，3
2，4

那么问题来了，如果想把一个大数组，传给小数组，但是希望小数组，等于大数组 左上角的那一块 ，怎么操作了。 可以使用 申请动态数组的方法

i=1,dimen
            do j=1,dimen
                desc_arr(i,j) = src_arr(i,j)
            end do
        end

通过两层循环，让新的数组，为坐上角的值 。然后把新的 小一点数组，传给 函数就可以了。

文字表述真的 好蹩脚啊。