Recherche:

Re-,

program test
real, dimension(7) :: vmask, b
vmask=(/0.75, 0.23, 0.1, 1., 2., 3., 4./)
where ( vmask <=0.5 )
b=1.
elsewhere
b=0.
endwhere

Bonjour,


Je ne sais pas si c'est votre problème, mais maxloc ne va retourner que l'indice du premier maximum rencontré.

Il y a peut-être aussi une erreur d'implémentation

do jpm=1, ny_c
...