擅长:python、mysql、java
<p>如果您问题中的示例确实是您想要做的,那么可以使用Fortran90内部“pack”:</p>
<pre><code>program pack_example
implicit none
integer, dimension(6) :: x
x = (/ 1,0,2,0,0,3 /)
! you can also use other masks than 'x/=0'
write(*,*) pack(x, x/=0)
end program pack_example
</code></pre>
<p>示例程序的输出为:1 2 3</p>