Fortran 判断数组的 维度。
program main
integer h(3,4,5)
write(*,*) 'h' , size(h)
write(*,*) 'h dim1' , size(h,dim=1)
write(*,*) 'h dim2' , size(h,dim=2)
write(*,*) 'h dim3' , size(h,dim=3)
end
输出结果是
h 60
h dim1 3
h dim2 4
h dim3 5