Esope source files

   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
  25 :         CALL ERREUR(IMESS+796)
  26 :       ELSE
  26 :         CALL ERREUR(26)
  27 :       ENDIF
  28 : C
  29 :  9999 END      
  30 :  
  31 :  
  32 :