Télécharger clirig.eso

Retour à la liste

Numérotation des lignes :

  1. C CLIRIG SOURCE PV 16/11/26 21:15:16 9205
  2. subroutine clirig(pRigi,jcolac)
  3. C=======================================================================
  4. C COLlaborateur LIer RIGidite
  5. C Restauration des liens entre la pile et les pointeurs esope
  6. C=======================================================================
  7. integer ipoPi,iPoint
  8. integer nrigel
  9. integer jrigel
  10. -INC CCOPTIO
  11. -INC SMRIGID
  12. -INC TMCOLAC
  13. pointeur pRigi.MRIGID
  14. pointeur jcolac.ICOLAC
  15. pointeur pilMel.ITLACC
  16.  
  17. C write(ioimp,*) 'Entre dans CLIRIG'
  18. pilMel=jcolac.kcola(1)
  19. if (pRigi.ne.0) then
  20. segact pRigi*mod
  21. nrigel=pRigi.coerig(/1)
  22. do jrigel=1,nrigel
  23. iPoPi=pRigi.irigel(1,jrigel)
  24. if(iPoPi.gt.0) then
  25. iPoint=pilMel.itlac(iPoPi)
  26. else
  27. iPoint=0
  28. endif
  29. pRigi.irigel(1,jrigel)=iPoint
  30. iPoPi=pRigi.irigel(2,jrigel)
  31. if(iPoPi.gt.0) then
  32. iPoint=pilMel.itlac(iPoPi)
  33. else
  34. iPoint=0
  35. endif
  36. pRigi.irigel(2,jrigel)=iPoint
  37. enddo
  38. segdes pRigi
  39. else
  40. write(ioimp,*) 'Erreur: pointeur vers un objet RIGIDITE nul'
  41. call erreur(5)
  42. endif
  43. C write(ioimp,*) 'Sortie de CLIRIG'
  44. end
  45.  
  46.  
  47.  
  48.  

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