Télécharger climel.eso

Retour à la liste

Numérotation des lignes :

  1. C CLIMEL SOURCE PV 16/11/26 21:15:14 9205
  2. subroutine climel(pMelem,jcolac)
  3. C=======================================================================
  4. C COLlaborateur LIer MELeme
  5. C Restaure les pointeurs du maillage pMelem
  6. C=======================================================================
  7. integer nbsous, nbref
  8. integer iRef,iSous,nbnn,nbelem
  9. integer ipoPi,iPoint
  10. integer iNoeud,jNoeud
  11. -INC CCOPTIO
  12. -INC SMELEME
  13. -INC TMCOLAC
  14. pointeur pMelem.MELEME
  15. pointeur jcolac.ICOLAC
  16. pointeur pile.ITLACC
  17. C write(ioimp,*) 'Entre dans CLIMEL'
  18. if (pMelem.ne.0) then
  19. pile=jcolac.kcola(1)
  20. segact pMelem*mod
  21. nbsous=pMelem.lisous(/1)
  22. C write(ioimp,*) 'nbsous: ',nbsous
  23. nbref =pMelem.lisref(/1)
  24. C write(ioimp,*) 'nbref: ',nbref
  25. nbnn =pMelem.num(/1)
  26. nbelem=pMelem.num(/2)
  27. do iSous=1,nbsous
  28. C write(ioimp,*) 'Sous maillage :',iSous
  29. iPoPi=pMelem.lisous(iSous)
  30. C write(ioimp,*) 'Position dans la pile: ',iPoPi
  31. iPoint=pile.itlac(iPoPi)
  32. C write(ioimp,*) 'Pointeur: ',iPoint
  33. pMelem.lisous(iSous)=iPoint
  34. enddo
  35. do iRef=1,nbref
  36. C write(ioimp,*) 'Reference :',iRef
  37. iPoPi=pMelem.lisref(iRef)
  38. C write(ioimp,*) 'Position dans la pile: ',iPoPi
  39. iPoint=pile.itlac(iPoPi)
  40. C write(ioimp,*) 'Pointeur: ',iPoint
  41. C & pMelem.lisref(iRef)
  42. pMelem.lisref(iRef)=iPoint
  43. enddo
  44. c write(ioimp,*) 'Traduction'
  45. pile=jcolac.kcola(32)
  46. do jNoeud=1,nbelem
  47. do iNoeud=1,nbnn
  48. C write(ioimp,*) 'element',jNoeud,'noeud',iNoeud
  49. iPoPi=pMelem.num(iNoeud,jNoeud)
  50. pMelem.num(iNoeud,jNoeud)=pile.itlac(iPoPi)
  51. enddo
  52. enddo
  53. segdes pMelem
  54. else
  55. write(ioimp,*) 'Erreur: pointeur vers un objet MELEME nul'
  56. call erreur(5)
  57. endif
  58. C write(ioimp,*) 'Sortie de CLIMEL'
  59. end
  60.  
  61.  
  62.  
  63.  

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