C CRECH1B   SOURCE    PV        14/01/10    21:15:04     7903           
*  nettoyage du  preconditionnement si le maillage est plus grand que les coordonnees
      subroutine crech1b
-INC CCOPTIO
-INC CCPRECO
-INC SMELEME
-INC SMCOORD

      segact mcoord
**    write (6,*) ' premel avant ',(premel(i),i=1,nbemel)
      do 30 i=1,nbemel
       if (premel(i).eq.0) goto 40
       meleme=premel(i)
       segact meleme
  30  continue
  40  continue
      call ooogll(1)
      nbpts=xcoor(/1)/(idim+1)
      do 10 i=1,nbemel
        if (premel(i).eq.0) goto 20
        meleme=premel(i)
        do j=1,num(/2)
         if (num(1,j).gt.nbpts) premel(i)=0
        enddo
  10  continue
  20  continue
      il=0
      do i=1,nbemel
       if (premel(i).ne.0) then
        il=il+1
        premel(il)=premel(i)
       endif
      enddo
      do i=il+1,nbemel
       premel(i)=0
      enddo
      call ooogll(0)
      segdes mcoord
**    write (6,*) ' premel apres ',(premel(i),i=1,nbemel)
      return
      end