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.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. SEGMENT ISLIS(NP)
  11. *
  12. CHARACTER*8 MOTYP
  13. *
  14. * LECTURE DU TYPE ET DU POINTEUR
  15. *
  16. CALL LIRCHA(MOTYP,1,IRETOU)
  17. IF(IERR.NE.0) RETURN
  18. *
  19. CALL LIRENT(IPOIN,1,IRETOU)
  20. IF(IERR.NE.0) RETURN
  21. *
  22. * ANALYSE DU POINTEUR ( CF MENAG1 )
  23. *
  24. CALL OOOLIS(ISLIS)
  25. DO 1 I=1,ISLIS(/1)
  26. IF(IPOIN.EQ.ISLIS(I)) GO TO 2
  27. 1 CONTINUE
  28. *
  29. CALL ERREUR(597)
  30. RETURN
  31. *
  32. 2 CONTINUE
  33. *
  34. CALL ECROBJ(MOTYP,IPOIN)
  35. RETURN
  36. END
  37.  
  38.  

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