Esope source files

   1 : C LIROBJ    SOURCE    CHAT      06/03/30    21:15:28     5364           
   2 : C           LIROBJ ( ITOPE , IRET , ICODE , IRETOU )                     
   3 : C           --------------------------------------                       
   4 : C                                                                        
   5 : C  CE SERVEUR FAIT PARTIE DU NOYAU DE GESTION DES OBJETS.(GIBI 1.00)     
   6 : C    IL A POUR BUT DE RAMENER UNE DONNEE DE TYPE ITYPE.                  
   7 : C    LA LECTURE EST IMPERATIVE OU NON.                                   
   8 : C    LA LECTURE DES DONNEES EST EFFECTUEE JUSQU'A CE QUE LE SERVEUR      
   9 : C    RENCONTRE UNE DONNEE QUI N'EST PAS UN OBJET.DANS LE CAS DE LECTURE  
  10 : C    IMPERATIVE IL TOMBE EN ERREUR (MESSAGE: PAS D'OBJET DE CE TYPE )    
  11 : C                                                                        
  12 : C    LISTE DES ARGUMENTS :                                               
  13 : C         ITYPE(2)  - ENTREE :  PRECISE LE TYPE DE L'OBJET. SI ITYPE(2)  
  14 : C                               EST MIS A BLANC LE TYPE EST INDIFFERENT  
  15 : C                   - SORTIE :  DONNE EN RETOUR LE TYPE DE L'OBJET.      
  16 : C                                                                        
  17 : C         IRET      - SORTIE :  VALEUR ATTACHEE A L'OBJET.               
  18 : C                                                                        
  19 : C         ICODE     - ENTREE :  PRECISE PAR 1 OU 0 SI LA LECTURE EST     
  20 : C                               IMPERATIVE OU NON.                       
  21 : C                                                                        
  22 : C        IRETOU     - SORTIE :  PRECISE PAR 1 OU 0 SI LA LECTURE A EU    
  23 : C                               LIEU OU NON.                             
  24 : C                                                                               
  25 :       SUBROUTINE LIROBJ( ITOPE , IRET , ICODE , IRETOU )                 
  26 :       IMPLICIT INTEGER(I-N)
  27 : -INC CCOPTIO                                                             
  28 :       CHARACTER*(*) ITOPE                                                
  29 :       CHARACTER*(8) ITYPE                                                
  30 :       IRETOU=0                                                           
  31 :       IRET=0                                                             
  32 :       ITYPE =ITOPE                                                       
  33 :       ICOD=ICODE                                                         
  33 :       CALL LIRABJ(ITYPE,IRET,ICOD,IRETOU) 
  34 :       RETURN                                                             
  35 :       END                                                                
  36 :  
  37 :  
  38 :