Esope source files

   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                                                                    
   8 :       CALL LIRENT(NUMER,0,IRETOU)                                               
   9 :       IF(IRETOU.EQ.0) GO TO 1                                                   
  10 :       IF (IERR.NE.0) RETURN  
  11 :       interr(1)=numer                                                   
  11 :       IF (NUMER.LT.1) CALL ERREUR(36)                                           
  12 :       IF (IERR.NE.0) RETURN                                                     
  12 :       IF (NUMER.GT.XCOOR(/1)/(IDIM+1)) CALL ERREUR(36)                          
  13 :       IF (IERR.NE.0) RETURN                                                     
  13 :       CALL ECROBJ ('POINT   ',NUMER)                                            
  14 :       RETURN                                                                    
  15 : *                                                                               
  15 :   1   CALL LIROBJ('POINT   ',IP,1,IRETOU)                                       
  16 :       IF (IERR.NE.0) RETURN                                                     
  16 :       CALL ECRENT(IP)                                                           
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 : 
  20 :  
  21 :