Télécharger ecrcha.eso

Retour à la liste

Numérotation des lignes :

  1. C ECRCHA SOURCE PV 11/04/08 21:15:26 6934
  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) call ooonth(ith)
  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.  

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