Télécharger manuob.eso

Retour à la liste

Numérotation des lignes :

  1. C MANUOB SOURCE CHAT 05/01/13 01:29:53 5004
  2. SUBROUTINE MANUOB
  3. *
  4. * PERMET DE DONNER UN NOM A UN POINTEUR
  5. *
  6. IMPLICIT INTEGER(I-N)
  7. -INC CCOPTIO
  8. SEGMENT ISLIS(NP)
  9. *
  10. CHARACTER*8 MOTYP
  11. *
  12. * LECTURE DU TYPE ET DU POINTEUR
  13. *
  14. CALL LIRCHA(MOTYP,1,IRETOU)
  15. IF(IERR.NE.0) RETURN
  16. *
  17. CALL LIRENT(IPOIN,1,IRETOU)
  18. IF(IERR.NE.0) RETURN
  19. *
  20. * ANALYSE DU POINTEUR ( CF MENAG1 )
  21. *
  22. CALL OOOLIS(ISLIS)
  23. DO 1 I=1,ISLIS(/1)
  24. IF(IPOIN.EQ.ISLIS(I)) GO TO 2
  25. 1 CONTINUE
  26. *
  27. CALL ERREUR(597)
  28. RETURN
  29. *
  30. 2 CONTINUE
  31. *
  32. CALL ECROBJ(MOTYP,IPOIN)
  33. RETURN
  34. END
  35.  
  36.  

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