Télécharger eserro.eso

Retour à la liste

Numérotation des lignes :

  1. C ESERRO SOURCE CHAT 06/03/29 21:20:39 5360
  2. C
  3. C
  4. SUBROUTINE ESERRO(IO,NUM,MODULE,IMESS)
  5. C *****************************************************************
  6. C OBJET : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
  7. C *****************************************************************
  8. IMPLICIT INTEGER(I-N)
  9. CHARACTER*(*) IMESS,MODULE
  10. INTEGER NUM
  11. INTEGER IO
  12. C
  13. IF( NUM .EQ. -1 )THEN
  14. CALL ESECHA(IO,
  15. > 'ERR -1 DONNEES INCORRECTES DANS :',MODULE)
  16. ELSE
  17. IF( NUM .EQ. -2 )THEN
  18. CALL ESECHA(IO,
  19. > 'ERR -2 PROBLEME MEMOIRE DANS :',MODULE)
  20. ELSE
  21. IF( NUM .EQ. -3 )THEN
  22. CALL ESECHA(IO,
  23. > 'ERR -3 NON ENCORE IMPLEMENTE DANS :',MODULE)
  24. ELSE
  25. PRINT *,NUM
  26. ENDIF
  27. ENDIF
  28. ENDIF
  29. call erreur(21)
  30. CALL ESECHA(IO,IMESS,' ')
  31. END
  32.  
  33.  
  34.  
  35.  

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