Esope source files

   1 : C CRELEM    SOURCE    CHAT      07/10/29    21:17:33     5940           
   2 : C     CONVERTIT UN POINT EN L'ELEMENT CONTENANT CE POINT                        
   3 : C                                                                               
   4 :       SUBROUTINE CRELEM(IRANG)                                                  
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC SMELEME                                                                    
   7 : -INC CCGEOME                                                                    
   8 :       NBNN=1                                                                    
   9 :       NBSOUS=0                                                                  
  10 :       NBREF=0                                                                   
  11 :       NBELEM=1                                                                  
  12 :       SEGINI MELEME                                                             
  13 :       ITYPEL=1                                                                  
  14 :       NUM(1,1)=IRANG                                                            
  15 :       ICOLOR(1)=IDCOUL                                                          
  16 :       IRANG=MELEME                                                              
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :  
  20 :  
  21 :  
  22 :  
  23 :  
  24 :  
  25 :