Esope source files

   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
  17 :         CALL DSCHAI(IO,
  18 :      >      'ERR -1  DONNEES INCORRECTES DANS :',MODULE)
  19 :       ELSE
  20 :         IF( NUM .EQ. -2 )THEN
  20 :           CALL DSCHAI(IO,
  21 :      >         'ERR -2  PROBLEME MEMOIRE DANS :',MODULE)
  22 :         ELSE
  23 :           IF( NUM .EQ. -3 )THEN
  23 :             CALL DSCHAI(IO,
  24 :      >           'ERR -3  NON ENCORE IMPLEMENTE DANS :',MODULE)
  25 :           ELSE
  26 :             PRINT *,NUM
  27 :           ENDIF
  28 :         ENDIF
  29 :       ENDIF      
  29 :       CALL DSCHAI(IO,MESSAG,' ')
  30 :  9999 END
  31 :  
  32 :