Esope source files

   1 : C TYPE      SOURCE    CHAT      05/01/13    03:57:33     5004           
   2 :       SUBROUTINE TYPE                                                           
   3 : C---------------------------------------------                                  
   4 : C          DONNE LE TYPE D'UN OBJET                                             
   5 : C---------------------------------------------                                  
   6 :       IMPLICIT INTEGER(I-N)
   7 : -INC CCOPTIO                                                                    
   8 :       CHARACTER*8 MAUX                                                          
   9 : C                                                                               
   9 :       CALL QUETYP(MAUX,0,IRETOU)                                                
  10 :       IF(IRETOU.EQ.0) THEN                                                      
  10 :         CALL ERREUR (533)                                                       
  11 :         RETURN                                                                  
  12 :       ENDIF                                                                     
  12 :       CALL LIROBJ(MAUX,IRET,1,IRETOU)                                           
  13 :       IF(IERR.NE.0) RETURN                                                      
  14 : C                                                                               
  14 :       CALL ECRCHA(MAUX)                                                         
  15 :       RETURN                                                                    
  16 :       END                                                                       
  17 :