Télécharger ecrcha.eso

Retour à la liste

Numérotation des lignes :

  1. C ECRCHA SOURCE PV 18/10/17 11:54:59 9965
  2. SUBROUTINE ECRCHA(MCH)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCNOYAU
  5. -INC CCASSIS
  6. CHARACTER*(*) MCH
  7. DIMENSION ITEMP(2)
  8. ith=0
  9. if (nbesc.ne.0) ith=oothrd
  10. if (ith.eq.0) then
  11. IL=LEN(MCH)
  12. ITEMP(2)=0
  13. CALL POSCHA(MCH,IRET)
  14. ITEMP(1)=IRET
  15. 60 CONTINUE
  16. CALL ECPI(ITEMP,'MOT ')
  17. RETURN
  18. else
  19. * cas de l'esclave
  20. mescla=imescl(ith)
  21. call ecresc(i)
  22. esoplu(i)=.false.
  23. esopty(i)='MOT'
  24. esopch(i)=mch
  25. endif
  26. END
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  

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