subroutine pair_impair
use parall 
  implicit none


  if (mod(irangp,2) == 0) then
     print *,'Coucou, je suis le processus pair   ',irangp
  else
     print *,'Coucou, je suis le processus impair ',irangp
  end if


end subroutine pair_impair