Télécharger clicpo.eso

Retour à la liste

Numérotation des lignes :

  1. C CLICPO SOURCE PV 16/11/26 21:15:12 9205
  2. subroutine clicpo(pChpo,jcolac)
  3. C=======================================================================
  4. C COLlaborateur LIer CHamp par POint
  5. C Remplace dans un objet CHPO, les pointeurs vers la pile de
  6. C communication par les pointeurs esope correspondant.
  7. C=======================================================================
  8. integer ipoPi,iPoint
  9. integer iSoupo,nbSoup
  10. -INC CCOPTIO
  11. -INC SMCHPOI
  12. -INC TMCOLAC
  13. pointeur pChpo.MCHPOI
  14. pointeur pSoupo.MSOUPO
  15. pointeur jcolac.ICOLAC
  16. pointeur pilMel.ITLACC
  17.  
  18. C write(ioimp,*) 'Entre dans CLICPO'
  19. pilMel=jcolac.kcola(1)
  20. if (pChpo.ne.0) then
  21. segact pChpo
  22. nbSoup=pChpo.ipchp(/1)
  23. C write(ioimp,*) 'nbSoup',nbSoup
  24. do iSoupo=1,nbSoup
  25. C write(ioimp,*) 'iSoupo',iSoupo
  26. pSoupo=pChpo.ipchp(iSoupo)
  27. C write(ioimp,*) 'pSoupo',pSoupo
  28. segact pSoupo*mod
  29. iPoPi=pSoupo.igeoc
  30. C write(ioimp,*) 'Position dans la pile: ',iPoPi
  31. iPoint=pilMel.itlac(iPoPi)
  32. C write(ioimp,*) 'Pointeur: ',iPoint
  33. pSoupo.igeoc=iPoint
  34. segdes pSoupo
  35. enddo
  36. segdes pChpo
  37. else
  38. write(ioimp,*) 'Erreur: pointeur vers un objet MCHPOI nul'
  39. call erreur(5)
  40. endif
  41. C write(ioimp,*) 'Sortie de CLICPO'
  42. end
  43.  
  44.  
  45.  
  46.  

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