SUBROUTINE  equilibrage(  nt,  mon_numproc,  mon_rang,  deb,  fin)
      USE numerics
      IMPLICIT  NONE
      INTEGER,  INTENT(IN)   ::  nt
      INTEGER,  INTENT(OUT)  ::  deb,  fin
      INTEGER,  INTENT(IN)   ::  mon_numproc
      INTEGER,  INTENT(IN)   ::  mon_rang
      END  SUBROUTINE  equilibrage