Esope source files

   1 : C PRREGE    SOURCE    CHAT      05/01/13    02:35:29     5004           
   2 :       SUBROUTINE  PRREGE                                                        
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   5 : -INC SMELEME                                                                    
   5 :       CALL LIROBJ('MAILLAGE',IPT1,1,IRETOU)                                     
   6 :       IF(IERR.NE.0) RETURN                                                      
   6 :       CALL REGENE(IPT1)                                                         
   6 :       CALL ECROBJ('MAILLAGE',IPT1)                                              
   7 :       RETURN                                                                    
   8 :       END                                                                       
   9 :