Esope source files

   1 : C QUETYP    SOURCE    CHAT      06/06/01    21:19:56     5450           
   2 :       SUBROUTINE QUETYP(ICHA , ICODE , IRETOU )                                 
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   5 :       CHARACTER*(*) ICHA                                                        
   5 :       IF(LEN(ICHA).NE.8) CALL ERREUR (5)                                        
   6 :       ICHA=' '                                                                  
   7 :       ICOD=ICODE                                                                                                                    
   7 :       CALL LIRABJ(ICHA ,IRAT,ICOD,IRETOU)                                       
   8 :       IF(IERR.NE.0) RETURN 
   9 :       IF (IRETOU.EQ.0) RETURN                            
   9 :       CALL REFUS                                                                
  10 :       RETURN                                                                    
  11 :       END                                                                       
  12 :  
  13 :  
  14 :  
  15 :