我正在尝试做类似的事情：
integer, dimension(:), allocatable :: abfi
real, dimension(5),target :: testt
real, pointer :: testp(:)
testt=(/2,.1,.2,1,1/)
.
.
allocate( abfi( count(testt.ge..5) ) )
abfi=pack([(ix,ix=1,size(testt))],testt.ge..5)
testp => testt(abfi)
所以，我想直接指出一个蒙面的子阵列，但似乎不可能。 有什么建议？ 谢谢