例如，如果我有一个1d数组
indices=(/1, 1, 1, 2 , 2 ,10, 11 /)
我想知道1发生了多少次(答案应该是3(。
数字2应该是2倍，数字10应该是1，数字11也应该是1。
我已经试着找出是否存在内在函数，但count函数的工作方式不同。
您可以将count内在函数与比较运算符一起使用，例如
integer :: indices(7)
indices = [1, 1, 1, 2, 2, 10, 11]
write(*,*) count(indices==1)