Numérotation des lignes :

lirobj
C LIROBJ    SOURCE    PV090527  24/01/10    21:15:03     11818          C           LIROBJ ( ITOPE , IRET , ICODE , IRETOU )C           --------------------------------------CC  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 SERVEURC    RENCONTRE UNE DONNEE QUI N'EST PAS UN OBJET.DANS LE CAS DE LECTUREC    IMPERATIVE IL TOMBE EN ERREUR (MESSAGE: PAS D'OBJET DE CE TYPE )CC    LISTE DES ARGUMENTS :C         ITYPE(2)  - ENTREE :  PRECISE LE TYPE DE L'OBJET. SI ITYPE(2)C                               EST MIS A BLANC LE TYPE EST INDIFFERENTC                   - SORTIE :  DONNE EN RETOUR LE TYPE DE L'OBJET.CC         IRET      - SORTIE :  VALEUR ATTACHEE A L'OBJET.CC         ICODE     - ENTREE :  PRECISE PAR 1 OU 0 SI LA LECTURE ESTC                               IMPERATIVE OU NON.CC        IRETOU     - SORTIE :  PRECISE PAR 1 OU 0 SI LA LECTURE A EUC                               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 possibleC      IF (IRETOU .NE. 0) CALL ACTOBJ(ITYPE,IRET,1)      RETURN      END   

© Cast3M 2003 - Tous droits réservés.
Mentions légales