如何知道Fortran数组中非零元素的数量？

Question

所以我有这样的事情：

INTEGER i
REAL value(10)

DO i = 1,5 
  value(i) = 1
ENDDO

所以现在我的值=（1,1,1,1,1,0,0,0,0,0）。给定size = 5（不带零的数组的大小）的函数是什么？

Answer 1

只计算非零元素

print *, count(value/=0)