Télécharger prextr.eso

Retour à la liste

Numérotation des lignes :

  1. C PREXTR SOURCE CHAT 05/01/13 02:26:13 5004
  2. C CE SOUS PROGRAMME APPELLE LA ROUTINE EXTREL
  3. C SI LE MOT CLE APPUY A ETE LU ET SI AUCUN ELEMENT N A PU ETRE EXTRAIT
  4. C ALORS IRR VAUT 1 ET UN MESSAGE D ERREUR EST IMPRIME
  5. SUBROUTINE PREXTR
  6. IMPLICIT INTEGER(I-N)
  7. CALL EXTREL(IRR,1,IEL)
  8. IF (IRR.EQ.1) CALL ERREUR(26)
  9. RETURN
  10. END
  11.  
  12.  

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