有关四维数组的问题

vvt

[Fortran] 纯文本查看 复制代码

real :: a(4,4) , b(2,2,2,2)
b = reshape( a , shape(b) )

vvt

不需要用循环语句。学东西不要像孔乙己那样。