Télécharger mshexo.eso

Retour à la liste

Numérotation des lignes :

  1. C MSHEXO SOURCE CHAT 05/01/13 01:53:12 5004
  2. C
  3.  
  4. SUBROUTINE MSHEXO(NOMPRG,IMESS,IERR,IENTIE,REEL,CARAC)
  5. C **********************************************************************
  6. C OBJET MSHEXO : MESSAGES D'ERREUR DE HEXOS
  7. C
  8. C EN ENTREE :
  9. C NOMPRG: NOM DU PROGRAMME
  10. C IMESS : NUMERO DU MESSAGE
  11. C IERR : TYPE DE MESSAGE (ERREUR, INTERRUPTION, ECHO, TRACE...'
  12. C IENTIE: TABLEAU D'ENTIERS
  13. C REEL : TABLEAU DE REELS
  14. C CARAC : TABLEAU DE CARACTERES
  15. C
  16. C **********************************************************************
  17. IMPLICIT INTEGER(I-N)
  18. CHARACTER*(*) NOMPRG
  19. INTEGER IERR,IMESS
  20. INTEGER IENTIE(*)
  21. REAL REEL(*)
  22. CHARACTER*(*) CARAC(*)
  23. C
  24. C ---------------------------
  25. IF((IMESS.GE.11).AND.(IMESS.LE.32))THEN
  26. CALL ERREUR(IMESS+796)
  27. ELSE
  28. CALL ERREUR(26)
  29. ENDIF
  30. C
  31. 9999 END
  32.  
  33.  
  34.  
  35.  

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