Re: Index of array from mask

On 2008-04-30, hiphop <ratel.gilles@xxxxxxx> wrote:

Suppose V = (/103,102,103,104,105/)

a = 102
b = 105

I am interested get index for (V > a ) .AND. (V < b) ==> answer:
1,3, 4

program main
implicit none
integer, dimension(5) :: v
integer :: a, b, i

v = (/103,102,103,104,105/)
a = 102
b = 105
do i = 1, size(v)
if (v(i) > a .and. v(i) < b) write (*,'(1X,I0)',advance='no') i
end do
write (*,*)
end program main

Or am I missing something here?
.