Télécharger ecrent.eso

Retour à la liste

Numérotation des lignes :

  1. C ECRENT SOURCE PV 11/04/08 21:15:30 6934
  2. SUBROUTINE ECRENT( IRET )
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCASSIS
  5. DIMENSION ITEMP(2)
  6. ith=0
  7. if (nbesc.ne.0) call ooonth(ith)
  8. if (ith.eq.0) then
  9. C POUR INHIBER LA LECTURE DE CARTES
  10. ITEMP(2)=0
  11. C
  12. ITEMP(1)=IRET
  13. 60 CALL ECPI(ITEMP,'ENTIER ')
  14. RETURN
  15. else
  16. * cas de l'esclave
  17. call ooonth(ith)
  18. mescla=imescl(ith)
  19. call ecresc(i)
  20. esoplu(i)=.false.
  21. esopty(i)='ENTIER'
  22. esopva(i)=iret
  23. endif
  24. END
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  

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