Télécharger crech1b.eso

Retour à la liste

Numérotation des lignes :

  1. C CRECH1B SOURCE CB215821 16/09/30 21:15:06 9105
  2. * nettoyage du preconditionnement si le maillage est plus grand que les coordonnees
  3. subroutine crech1b
  4. -INC CCOPTIO
  5. -INC CCPRECO
  6. -INC SMELEME
  7. -INC SMCOORD
  8.  
  9. segact mcoord
  10. ** write (6,*) ' premel avant ',(premel(i),i=1,nbemel)
  11. do 30 i=1,nbemel
  12. if (premel(i).eq.0) goto 40
  13. meleme=premel(i)
  14. segact meleme
  15. 30 continue
  16. 40 continue
  17. call ooogll(1)
  18. nbpts=xcoor(/1)/(idim+1)
  19. do 10 i=1,nbemel
  20. if (premel(i).eq.0) goto 20
  21. meleme=premel(i)
  22. do j=1,num(/2)
  23. if (num(1,j).gt.nbpts) premel(i)=0
  24. enddo
  25. 10 continue
  26. 20 continue
  27. il=0
  28. do i=1,nbemel
  29. if (premel(i).ne.0) then
  30. il=il+1
  31. premel(il)=premel(i)
  32. nbso(il)=nbso(i)
  33. endif
  34. enddo
  35. do i=il+1,nbemel
  36. premel(i)=0
  37. enddo
  38. call ooogll(0)
  39. segdes mcoord
  40. ** write (6,*) ' premel apres ',(premel(i),i=1,nbemel)
  41. return
  42. end
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales