Télécharger noeud.eso

Retour à la liste

Numérotation des lignes :

  1. C NOEUD SOURCE PV 20/03/30 21:21:36 10567
  2. C CE SOUS PROGRAMME PERMET DE METTRE DANS LA PILE UN POINT DONT ON
  3. C CONNAIT LE NUMERO
  4. C
  5. SUBROUTINE NOEUD
  6. IMPLICIT INTEGER(I-N)
  7.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. -INC SMCOORD
  11. CALL LIRENT(NUMER,0,IRETOU)
  12. IF(IRETOU.EQ.0) GO TO 1
  13. IF (IERR.NE.0) RETURN
  14. interr(1)=numer
  15. IF (NUMER.LT.1) CALL ERREUR(36)
  16. IF (IERR.NE.0) RETURN
  17. IF (NUMER.GT.nbpts) CALL ERREUR(36)
  18. IF (IERR.NE.0) RETURN
  19. CALL ECROBJ ('POINT ',NUMER)
  20. RETURN
  21. *
  22. 1 CALL LIROBJ('POINT ',IP,1,IRETOU)
  23. IF (IERR.NE.0) RETURN
  24. CALL ECRENT(IP)
  25. RETURN
  26. END
  27.  
  28.  
  29.  
  30.  
  31.  

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