C CRELEM    SOURCE    CHAT      07/10/29    21:17:33     5940           
C     CONVERTIT UN POINT EN L'ELEMENT CONTENANT CE POINT                        
C                                                                               
      SUBROUTINE CRELEM(IRANG)                                                  
      IMPLICIT INTEGER(I-N)
-INC SMELEME                                                                    
-INC CCGEOME                                                                    
      NBNN=1                                                                    
      NBSOUS=0                                                                  
      NBREF=0                                                                   
      NBELEM=1                                                                  
      SEGINI MELEME                                                             
      ITYPEL=1                                                                  
      NUM(1,1)=IRANG                                                            
      ICOLOR(1)=IDCOUL                                                          
      IRANG=MELEME                                                              
      RETURN                                                                    
      END