Question

fortran中三维数组沿第三维求和怎么实现

fortran中想实现三维数组A(125，125，500)沿第三维方向求和得到一个B（125,125）的数组怎么实现，求大神指点

Answer 1

普通学生：
do K=1,500
do I=1，125
do J=1，125
B(I,J)=B(I,J)+A(I,J,K)
enddo
enddo
enddo
大牛：
do I=1,125
do J=1,125
B(I,J)=sum(A(I,J,:),dim=1)
enddo
enddo

学霸：
forall(I=1:125,J=1:125)B(I,J)=sum(A(I,J,:),dim=1)

学酥：
老师布置的作业好难，还是问问百度吧
学渣：
等下抄谁呢？