Télécharger cpoint.eso

Retour à la liste

Numérotation des lignes :

  1. C CPOINT SOURCE CB215821 15/02/12 21:15:00 8396
  2. subroutine CPOINT
  3. C Declaration des variables
  4. character*(8) typNom
  5. integer iretou
  6. integer iPoint
  7. C Variable pour la lecture des entiers
  8. real*8 xval
  9. integer ival
  10. character*512 cval
  11. logical logval
  12. integer iRetPo
  13. C logical SORTYP
  14.  
  15. -INC CCNOYAU
  16. -INC CCOPTIO
  17. SEGMENT LISTYP
  18. integer lisPoi(nobj)
  19. ENDSEGMENT
  20. pointeur liste.LISTYP
  21. C INTEXT est une variable globale (cf CCNOYAU)
  22. C SORTYP = .true.
  23. typNom=' '
  24. nobj= 5
  25. iObj=1
  26. segini liste
  27. C lecture d'un possible premier argume
  28. call quetyp(typNom,0,iretou)
  29. do while(iretou.eq.1)
  30. c------- on controle la validite du type demande
  31. iRetPo=-3
  32. if (typNom.eq.'LOGIQUE ') then
  33. call lirlog(logval,1,iretou)
  34. elseif (typNom.eq.'FLOTTANT') then
  35. call lirree(xval,1,iretou)
  36. elseif (typNom.eq.'ENTIER ') then
  37. call lirent(ival,1,iretou)
  38. elseif (typNom.eq.'MOT ') then
  39. call lircha(cval,1,ival)
  40. else
  41. call lirobj(typNom,iPoint,1,iretou)
  42. iRetPo = iPoint
  43. endif
  44. if (IERR.NE.0) then
  45. segsup liste
  46. return
  47. endif
  48. liste.lisPoi(iObj) = Iretpo
  49. if(iObj.eq.nobj) then
  50. nobj = nobj + 5
  51. segadj liste
  52. endif
  53. iobj = iobj + 1
  54. typNom=' '
  55. call quetyp(typNom,0,iretou)
  56. enddo
  57. nobj = iobj - 1
  58. do iobj=nobj,1,-1
  59. iRetPo = liste.lisPoi(iObj)
  60. call ecrent(iRetPo)
  61. enddo
  62. segsup liste
  63. return
  64. end
  65.  
  66.  
  67.  
  68.  

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