Esope source files

   1 : C ESERRO    SOURCE    CHAT      06/03/29    21:20:39     5360           
   2 : C
   3 : C
   4 :       SUBROUTINE ESERRO(IO,NUM,MODULE,IMESS)
   5 : C     *****************************************************************
   6 : C     OBJET  : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
   7 : C     *****************************************************************
   8 :       IMPLICIT INTEGER(I-N)
   9 :       CHARACTER*(*) IMESS,MODULE
  10 :       INTEGER NUM
  11 :       INTEGER IO
  12 : C
  13 :       IF( NUM .EQ. -1 )THEN
  13 :         CALL ESECHA(IO,
  14 :      >      'ERR -1  DONNEES INCORRECTES DANS :',MODULE)
  15 :       ELSE
  16 :         IF( NUM .EQ. -2 )THEN
  16 :           CALL ESECHA(IO,
  17 :      >         'ERR -2  PROBLEME MEMOIRE DANS :',MODULE)
  18 :         ELSE
  19 :           IF( NUM .EQ. -3 )THEN
  19 :             CALL ESECHA(IO,
  20 :      >           'ERR -3  NON ENCORE IMPLEMENTE DANS :',MODULE)
  21 :           ELSE
  22 :             PRINT *,NUM
  23 :           ENDIF
  24 :         ENDIF
  25 :       ENDIF
  25 :       call erreur(21)      
  25 :       CALL ESECHA(IO,IMESS,' ')
  26 :       END
  27 :  
  28 :  
  29 :