Télécharger noeud.eso

Retour à la liste

Numérotation des lignes :

  1. C NOEUD SOURCE CHAT 05/01/13 01:58:14 5004
  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. -INC CCOPTIO
  8. -INC SMCOORD
  9. CALL LIRENT(NUMER,0,IRETOU)
  10. IF(IRETOU.EQ.0) GO TO 1
  11. IF (IERR.NE.0) RETURN
  12. interr(1)=numer
  13. IF (NUMER.LT.1) CALL ERREUR(36)
  14. IF (IERR.NE.0) RETURN
  15. IF (NUMER.GT.XCOOR(/1)/(IDIM+1)) CALL ERREUR(36)
  16. IF (IERR.NE.0) RETURN
  17. CALL ECROBJ ('POINT ',NUMER)
  18. RETURN
  19. *
  20. 1 CALL LIROBJ('POINT ',IP,1,IRETOU)
  21. IF (IERR.NE.0) RETURN
  22. CALL ECRENT(IP)
  23. RETURN
  24. END
  25.  
  26.  
  27.  
  28.  

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