Télécharger la plaquette Cast3M


fr en

Télécharger mshexo.eso

Retour à la liste

Numérotation des lignes : 

mshexo

  1. C MSHEXO    SOURCE    PV        22/04/25    21:15:09     11344          
  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*8        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.  
  36.  

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