Télécharger dserre.eso

Retour à la liste

Numérotation des lignes :

  1. C DSERRE SOURCE CHAT 05/01/12 22:56:27 5004
  2. C
  3. C
  4. SUBROUTINE DSERRE(IO,NUM,MODULE,MESSAG)
  5. C *****************************************************************
  6. C OBJET : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
  7. C *****************************************************************
  8. IMPLICIT INTEGER(I-N)
  9. CHARACTER*(*) MESSAG,MODULE
  10. INTEGER NUM
  11. INTEGER IO
  12. C
  13. C ---- C'EST LA PROCEDURE "ERREUR" DE CASTEM QUI PREND LE RELAI
  14. C
  15. GOTO 9999
  16. C
  17. IF( NUM .EQ. -1 )THEN
  18. CALL DSCHAI(IO,
  19. > 'ERR -1 DONNEES INCORRECTES DANS :',MODULE)
  20. ELSE
  21. IF( NUM .EQ. -2 )THEN
  22. CALL DSCHAI(IO,
  23. > 'ERR -2 PROBLEME MEMOIRE DANS :',MODULE)
  24. ELSE
  25. IF( NUM .EQ. -3 )THEN
  26. CALL DSCHAI(IO,
  27. > 'ERR -3 NON ENCORE IMPLEMENTE DANS :',MODULE)
  28. ELSE
  29. PRINT *,NUM
  30. ENDIF
  31. ENDIF
  32. ENDIF
  33. CALL DSCHAI(IO,MESSAG,' ')
  34. 9999 END
  35.  
  36.  
  37.  

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