Télécharger ltitre.eso

Retour à la liste

Numérotation des lignes :

  1. C LTITRE SOURCE CHAT 05/01/13 01:25:48 5004
  2. SUBROUTINE LTITRE
  3. IMPLICIT INTEGER(I-N)
  4. CHARACTER*72 ICARB
  5. CHARACTER*(8) ICAR
  6. REAL*8 XPO
  7. -INC SMTEXTE
  8. -INC CCOPTIO
  9. TITREE=' '
  10. ILON=0
  11. 1 CONTINUE
  12. CALL QUETYP(ICAR,0,IRETOU)
  13. IF(IRETOU.EQ.0) GO TO 10
  14. IF(ICAR.EQ.'ENTIER ')THEN
  15. CALL LIRENT(IPO,1,IRETOU)
  16. IF(IERR.NE.0) GO TO 1010
  17. IF(ABS(IPO).LT.10000) THEN
  18. IF(ILON+6.GT.72) GO TO 1000
  19. WRITE(TITREE(ILON+1:ILON+5),FMT='(I5)') IPO
  20. ILON=ILON+6
  21. ELSE
  22. IF(ILON+12.GT.72) GO TO 1000
  23. WRITE(TITREE(ILON+1:ILON+11),FMT='(I9)') IPO
  24. ILON=ILON+12
  25. ENDIF
  26. GO TO 1
  27. ELSEIF (ICAR.EQ.'FLOTTANT') THEN
  28. CALL LIRREE(XPO,1,IRETOU)
  29. IF(IERR.NE.0) GO TO 1010
  30. IF( ILON +13.GT.500) GO TO 1000
  31. WRITE(TITREE(ILON+1:ILON+12),FMT='(1PG12.5)')XPO
  32. ILON=ILON+13
  33. GO TO 1
  34. ELSEIF(ICAR.EQ.'MOT ') THEN
  35. CALL LIRCHA(ICARB,1,IRETOU)
  36. IF(IERR.NE.0) GOTO 1010
  37. DO 25 IFI=72,1,-1
  38. IF(ICARB(IFI:IFI).NE.' ') GO TO 26
  39. 25 CONTINUE
  40. 26 IFI=IFI+1
  41. IFI=MIN(IFI,72)
  42. IF(ILON+IFI.GT.72) GO TO 1000
  43. TITREE(ILON+1:ILON+IFI)=ICARB(1:IFI)
  44. ILON=ILON+IFI
  45. GO TO 1
  46. ENDIF
  47. 10 CONTINUE
  48. RETURN
  49. 1000 CONTINUE
  50. CALL ERREUR(425)
  51. RETURN
  52. 1010 CONTINUE
  53. CALL ERREUR(5)
  54. RETURN
  55. END
  56.  
  57.  

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