Télécharger crech1b.eso

Retour à la liste

Numérotation des lignes :

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

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