Télécharger lircha.eso

Retour à la liste

Numérotation des lignes :

  1. C LIRCHA SOURCE PV 11/04/08 21:16:08 6934
  2. SUBROUTINE LIRCHA(ITYP , ICODE , IRETOU )
  3. C
  4. C EN RETOUR IRETOU EST NUL SI PAS DE MOT TROUVE SINON C'EST LA LONGUEU
  5. C DU MOT
  6. C
  7. IMPLICIT INTEGER(I-N)
  8. -INC CCNOYAU
  9. -INC CCOPTIO
  10. -INC CCASSIS
  11. external long
  12. CHARACTER*(*) ITYP
  13. CHARACTER*(8) ICHA
  14. ICHA='MOT'
  15. CALL LIRABJ(ICHA,IRAT,ICODE,IRETOU)
  16. IF(IERR.NE.0) RETURN
  17. IF(IRETOU.EQ.0) RETURN
  18. * initialisation de lotesc
  19. lotesc=.false.
  20. ith=0
  21. if (nbesc.ne.0) call ooonth(ith)
  22. if (ith.ne.0) lotesc=.true.
  23. * write (6,*) ' dans lircha ',ith
  24. if (.not. lotesc) then
  25. if(nbesc.ne.0) segact ipiloc
  26. IL=LEN(ITYP)
  27. JF=IPCHAR(IRAT+1)
  28. ID=IPCHAR(IRAT)
  29. ILO=MIN(IL,JF-ID)
  30. ITYP=ICHARA(ID:JF-1)
  31. IRETOU=ILO
  32. if(nbesc.ne.0) segdes ipiloc
  33. else
  34. mescla=imescl(ith)
  35. ityp=esopch(irat)
  36. iretou=long(ityp)
  37. endif
  38. RETURN
  39. END
  40.  
  41.  
  42.  
  43.  
  44.  

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