Télécharger lirobj.eso

Retour à la liste

Numérotation des lignes :

lirobj
  1. C LIROBJ SOURCE PV090527 24/01/10 21:15:03 11818
  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.  
  28. -INC PPARAM
  29. -INC CCOPTIO
  30. CHARACTER*(*) ITOPE
  31. CHARACTER*(8) ITYPE
  32. IRETOU=0
  33. IRET =0
  34. ITYPE =ITOPE
  35. ICOD =ICODE
  36. CALL LIRABJ(ITYPE,IRET,ICOD,IRETOU)
  37. IF(ITOPE.EQ.' ') ITOPE=ITYPE
  38.  
  39. C Activation de l'objet lu si possible
  40. C IF (IRETOU .NE. 0) CALL ACTOBJ(ITYPE,IRET,1)
  41. RETURN
  42. END
  43.  
  44.  
  45.  

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