Re: Index of array from mask

Sorry, I misunderstood the question. Cancel this.

Mike Metcalf

"Michael Metcalf" <michaelmetcalf@xxxxxxxxxxxxxx> wrote in message
news:cP2Sj.5006$uS1.3579@xxxxxxxxxxx

"dpb" <none@xxxxxxx> wrote in message news:fvad2l$tmh$3@xxxxxxxxxxx
Thomas Koenig wrote:

I think he was looking for an intrinsic on the order of COUNT() or
MAXLOC() but that would return the locations of array elements meeting
the
mask conditions...

That isn't available directly...

Maybe:

program main
implicit none
integer, dimension(5) :: v
integer :: a, b, i
v = (/103,102,103,104,105/)
a = 102
b = 105
write (*,*) pack(v, mask = v > 102 .and. v <105)
end program main



Regards,



Mike Metcalf





.