Télécharger lircha.eso

Retour à la liste

Numérotation des lignes :

  1. C LIRCHA SOURCE PV 18/10/17 11:50:38 9965
  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) ith=oothrd
  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.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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