Télécharger clicpo.eso

Retour à la liste

Numérotation des lignes :

clicpo
  1. C CLICPO SOURCE CB215821 20/11/25 13:21:01 10792
  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.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC SMCHPOI
  14. -INC TMCOLAC
  15. pointeur pChpo.MCHPOI
  16. pointeur pSoupo.MSOUPO
  17. pointeur jcolac.ICOLAC
  18. pointeur pilMel.ITLACC
  19.  
  20. C write(ioimp,*) 'Entre dans CLICPO'
  21. pilMel=jcolac.kcola(1)
  22. if (pChpo.ne.0) then
  23. segact pChpo
  24. nbSoup=pChpo.ipchp(/1)
  25. C write(ioimp,*) 'nbSoup',nbSoup
  26. do iSoupo=1,nbSoup
  27. C write(ioimp,*) 'iSoupo',iSoupo
  28. pSoupo=pChpo.ipchp(iSoupo)
  29. C write(ioimp,*) 'pSoupo',pSoupo
  30. segact pSoupo*mod
  31. iPoPi=pSoupo.igeoc
  32. C write(ioimp,*) 'Position dans la pile: ',iPoPi
  33. iPoint=pilMel.itlac(iPoPi)
  34. C write(ioimp,*) 'Pointeur: ',iPoint
  35. pSoupo.igeoc=iPoint
  36. segdes pSoupo
  37. enddo
  38. segdes pChpo
  39. else
  40. write(ioimp,*) 'Erreur: pointeur vers un objet MCHPOI nul'
  41. call erreur(5)
  42. endif
  43. C write(ioimp,*) 'Sortie de CLICPO'
  44. end
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  

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