查找Fortran数组中非零元素的索引。

下面是一个使用Fortran语言的示例代码，用于查找一个数组中非零元素的索引：

program find_nonzero_indices
  implicit none
  integer, parameter :: n = 10  ! 数组的大小
  integer :: a(n)  ! 数组
  integer :: i, count
  integer, dimension(n) :: indices  ! 保存非零元素的索引

  ! 初始化数组
  a = [0, 1, 0, 3, 0, 5, 0, 7, 0, 0]

  ! 初始化索引计数器
  count = 0

  ! 查找非零元素的索引
  do i = 1, n
     if (a(i) /= 0) then
        count = count + 1
        indices(count) = i
     end if
  end do

  ! 打印非零元素的索引
  do i = 1, count
     print *, "非零元素的索引：", indices(i)
  end do

end program find_nonzero_indices

在这个示例代码中，我们定义了一个大小为10的整数数组a，并初始化为[0, 1, 0, 3, 0, 5, 0, 7, 0, 0]。然后，我们使用一个循环遍历数组中的每个元素，如果元素的值不等于0，则将该元素的索引保存到另一个整数数组indices中。最后，我们打印出indices数组中的所有非零元素的索引。