Esope source files

   1 : C ERREU1    SOURCE    CHAT      06/03/16    21:17:33     5336           
   2 : C                                                                        
   3 : C   RECHERCHE DES MESSAGES D'ERREURS (SUITE)                             
   4 : C                                                                        
   5 :       SUBROUTINE ERREU1(ITYP,CHLU,NIVEAU,NBL)                            
   6 :       IMPLICIT INTEGER(I-N)
   7 : -INC CCNOYAU                                                             
   8 : -INC CCOPTIO                                                             
   9 :       CHARACTER*80 CHLU(2)                                               
  10 :       CHARACTER*4  CHTYP                                                 
  11 :       CHARACTER*87 CHTAMP
  12 : * RECHERCHE DE LA LANGUE
  13 :       DO 156 IK=1,LANGUA(/2)
  14 :        IF( LANGUE.EQ.LANGUA(IK)) THEN
  15 :            ILAN=IK
  16 :            GO TO 157
  17 :         ENDIF
  18 :   156 CONTINUE
  19 :       ILAN=1
  20 : *      WRITE (IOIMP,158)                                                 
  21 : * 158  FORMAT (' ERREUR DE LANGUE DU MESSAGE D''ERREUR') 
  22 : *      NBL=0                                                             
  23 : *      NIVEAU=2 
  24 : *      RETURN        
  25 :  157  CONTINUE                                                           
  26 : *  RECHERCHE DE L'ERREUR                                                 
  27 :       DO 10 I=1,IPMESS(/1)                                               
  28 :        IF (NUMERR(I).EQ.ITYP) GOTO 20                                    
  29 :   10  CONTINUE                                                           
  30 :       WRITE (IOIMP,12)                                                   
  31 :   12  FORMAT (' ERREUR DANS LA RECHERCHE DU MESSAGE D''ERREUR')          
  32 :       NBL=0                                                              
  33 :       NIVEAU=2                                                           
  34 :       RETURN                                                             
  35 :   20  CONTINUE                                                           
  36 :       NIVEAU=NIVERR(I)                                                   
  37 :       MCHERR=IPMESS(I,ILAN)                                              
  38 : *      SEGACT MCHERR
  39 :       CHLU(1)=CHERR1                                                     
  40 :       IF (CHERR2(/1).EQ.0) THEN                                          
  41 :         NBL=1                                                            
  42 :         CHLU(2)=' '                                                      
  43 :       ELSE                                                               
  44 :         NBL=2                                                            
  45 :         CHLU(2)=CHERR2                                                   
  46 :       ENDIF                                                              
  47 : *      SEGDES MCHERR
  48 :       END    
  49 :