Sources Esope | Cast3M

crech1b
C CRECH1B   SOURCE    OF166741  24/10/21    21:15:08     12042          
*  nettoyage du  preconditionnement si le maillage est plus grand que les coordonnees
      subroutine crech1b
 
-INC PPARAM
-INC CCOPTIO
-INC CCPRECO
-INC SMELEME
-INC SMCOORD
 
      ith=oothrd
**    write (6,*) ' premel avant ',(premel(i,ith),i=1,nbemel)
      do 30 i=1,nbemel
       if (premel(i,ith).eq.0) goto 40
       meleme=premel(i,ith)
       segact meleme
  30  continue
  40  continue
      do 10 i=1,nbemel
        if (premel(i,ith).eq.0) goto 20
        meleme=premel(i,ith)
        do j=1,num(/2)
         if (num(1,j).gt.nbpts) premel(i,ith)=0
        enddo
  10  continue
  20  continue
      il=0
      do i=1,nbemel
       if (premel(i,ith).ne.0) then
        il=il+1
        premel(il,ith)=premel(i,ith)
        nbso(il,ith)=nbso(i,ith)
        hash1(il,ith)=hash1(i,ith)
        hash2(il,ith)=hash2(i,ith)
       endif
      enddo
      do i=il+1,nbemel
       premel(i,ith)=0
      enddo
**    write (6,*) ' premel apres ',(premel(i,ith),i=1,nbemel)
 
c      return
      end