Sources Esope | Cast3M

lirobj
C LIROBJ    SOURCE    PV090527  24/01/10    21:15:03     11818          
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 PPARAM
-INC CCOPTIO
      CHARACTER*(*) ITOPE
      CHARACTER*(8) ITYPE
      IRETOU=0
      IRET  =0
      ITYPE =ITOPE
      ICOD  =ICODE
      CALL LIRABJ(ITYPE,IRET,ICOD,IRETOU)
      IF(ITOPE.EQ.' ') ITOPE=ITYPE
 
C     Activation de l'objet lu si possible
C      IF (IRETOU .NE. 0) CALL ACTOBJ(ITYPE,IRET,1)
      RETURN
      END