C LIROBJ    SOURCE    CHAT      06/03/30    21:15:28     5364           
C           LIROBJ ( ITOPE , IRET , ICODE , IRETOU )                     
C           --------------------------------------                       
C                                                                        
C  CE SERVEUR FAIT PARTIE DU NOYAU DE GESTION DES OBJETS.(GIBI 1.00)     
C    IL A POUR BUT DE RAMENER UNE DONNEE DE TYPE ITYPE.                  
C    LA LECTURE EST IMPERATIVE OU NON.                                   
C    LA LECTURE DES DONNEES EST EFFECTUEE JUSQU'A CE QUE LE SERVEUR      
C    RENCONTRE UNE DONNEE QUI N'EST PAS UN OBJET.DANS LE CAS DE LECTURE  
C    IMPERATIVE IL TOMBE EN ERREUR (MESSAGE: PAS D'OBJET DE CE TYPE )    
C                                                                        
C    LISTE DES ARGUMENTS :                                               
C         ITYPE(2)  - ENTREE :  PRECISE LE TYPE DE L'OBJET. SI ITYPE(2)  
C                               EST MIS A BLANC LE TYPE EST INDIFFERENT  
C                   - SORTIE :  DONNE EN RETOUR LE TYPE DE L'OBJET.      
C                                                                        
C         IRET      - SORTIE :  VALEUR ATTACHEE A L'OBJET.               
C                                                                        
C         ICODE     - ENTREE :  PRECISE PAR 1 OU 0 SI LA LECTURE EST     
C                               IMPERATIVE OU NON.                       
C                                                                        
C        IRETOU     - SORTIE :  PRECISE PAR 1 OU 0 SI LA LECTURE A EU    
C                               LIEU OU NON.                             
C                                                                               
      SUBROUTINE LIROBJ( ITOPE , IRET , ICODE , IRETOU )                 
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                             
      CHARACTER*(*) ITOPE                                                
      CHARACTER*(8) ITYPE                                                
      IRETOU=0                                                           
      IRET=0                                                             
      ITYPE =ITOPE                                                       
      ICOD=ICODE                                                         
      CALL LIRABJ(ITYPE,IRET,ICOD,IRETOU) 
      RETURN                                                             
      END