Télécharger lirobj.eso

Retour à la liste

Numérotation des lignes :

  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
  34. CALL LIRABJ(ITYPE,IRET,ICOD,IRETOU)
  35. RETURN
  36. END
  37.  
  38.  
  39.  
  40.  

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