Télécharger lircha.eso

Retour à la liste

Numérotation des lignes :

lircha
  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.  
  9. -INC PPARAM
  10. -INC CCNOYAU
  11. -INC CCOPTIO
  12. -INC CCASSIS
  13.  
  14. external long
  15. CHARACTER*(*) ITYP
  16. CHARACTER*(8) ICHA
  17.  
  18. ICHA='MOT'
  19. CALL LIRABJ(ICHA,IRAT,ICODE,IRETOU)
  20. IF(IERR .NE. 0) RETURN
  21. IF(IRETOU.EQ. 0) RETURN
  22.  
  23. * initialisation de lotesc
  24. lotesc=.false.
  25. ith = 0
  26. if (nbesc.ne.0) ith=oothrd
  27. if (ith.ne.0) lotesc=.true.
  28. * write (6,*) ' dans lircha ',ith
  29. if (.not. lotesc) then
  30. if(nbesc.ne.0) SEGACT,IPILOC
  31. IL = LEN(ITYP)
  32. JF = IPCHAR(IRAT+1)
  33. ID = IPCHAR(IRAT)
  34. ILO = MIN(IL,JF-ID)
  35. ITYP = ICHARA(ID:JF-1)
  36. IRETOU= ILO
  37. if(nbesc.ne.0) SEGDES,IPILOC
  38.  
  39. else
  40. mescla= imescl(ith)
  41. ityp = esopch(irat)
  42. iretou= long(ityp)
  43. endif
  44. END
  45.  

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