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