Sources Esope | Cast3M

noeud
C NOEUD     SOURCE    PV        20/03/30    21:21:36     10567          
C   CE SOUS PROGRAMME PERMET DE METTRE DANS LA PILE UN POINT DONT ON
C    CONNAIT LE NUMERO
C
      SUBROUTINE NOEUD
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
-INC SMCOORD
      CALL LIRENT(NUMER,0,IRETOU)
      IF(IRETOU.EQ.0) GO TO 1
      IF (IERR.NE.0) RETURN
      interr(1)=numer
      IF (NUMER.LT.1) CALL ERREUR(36)
      IF (IERR.NE.0) RETURN
      IF (NUMER.GT.nbpts) CALL ERREUR(36)
      IF (IERR.NE.0) RETURN
      CALL ECROBJ ('POINT   ',NUMER)
      RETURN
*
  1   CALL LIROBJ('POINT   ',IP,1,IRETOU)
      IF (IERR.NE.0) RETURN
      CALL ECRENT(IP)
      RETURN
      END