Télécharger clip2s.eso

Retour à la liste

Numérotation des lignes :

  1. C CLIP2S SOURCE PV 16/11/26 21:15:15 9205
  2. SUBROUTINE clip2s (jcolac,argume)
  3. C=======================================================================
  4. C COLlaborateur LIste: numero Pile vers numero Segment
  5. C La routine renumerote la liste des arguments et remplace la position
  6. C dans pile par le pointeur Esope
  7. C=======================================================================
  8. integer iArgu
  9. integer nArg
  10. integer iPile
  11. integer nObj,iPoint,iPoPi
  12. character*8 typNom
  13. C-INC CCOPTIO
  14. -INC TMCOLAC
  15. segment LISARG
  16. character*8 nom(nArg)
  17. integer adress(nArg)
  18. endsegment
  19. pointeur pile.ITLACC
  20. pointeur argume.LISARG
  21. pointeur jcolac.ICOLAC
  22. nArg = argume.adress(/1)
  23. C pour chaque argument
  24. do iArgu =1,nArg
  25. C recuperer son type
  26. typNom = argume.nom(iArgu)
  27. C recuper le numero de pile associe
  28. call typfil (typNom,iPile)
  29. C chercher le numero de segment dans ilisse
  30. if(iPile.lt.24.or.iPile.gt.27) then
  31. pile = jcolac.kcola(iPile)
  32. nObj = pile.itlac(/1)
  33. iPoPi = argume.adress(iArgu)
  34. if(iPoPi.gt.0.and.iPoPi.le.nObj) then
  35. iPoint=pile.itlac(iPoPi)
  36. else
  37. iPoint=0
  38. endif
  39. argume.adress(iArgu)=iPoint
  40. endif
  41. enddo
  42. C write(ioimp,*) 'Sortie de CLIP2S'
  43. END
  44.  
  45.  
  46.  
  47.  

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