Re: Index of array from mask



Paul van Delst wrote:
Michael Metcalf wrote:
"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
....

v = (/103,102,103,104,105/)
a = 102
b = 105
write (*,*) pack((/(i,i=1,5)/), mask = v > 102 .and. v <105)
....
1 3 4


I tend to forget pack() far too often...sharp!

--
.



Relevant Pages

  • Re: Index of array from mask
    ... MAXLOC() but that would return the locations of array elements meeting the ... mask conditions... ... implicit none ...
    (comp.lang.fortran)
  • Re: Index of array from mask
    ... MAXLOC() but that would return the locations of array elements meeting the ... mask conditions... ... implicit none ...
    (comp.lang.fortran)