Esope source files

   1 : C CHANQU    SOURCE    CHAT      05/01/12    21:55:49     5004           
   2 :       SUBROUTINE CHANQU                                               
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   4 :       CALL LIROBJ ('MAILLAGE',IRET,1,IRETOU)
   5 :       IF(IERR.NE.0) RETURN
   6 :       IRETOU=IRET
   6 :       CALL DEMCHA( IRET,IRETOU)
   6 :       CALL ECROBJ ('MAILLAGE',IRETOU)                                             
   7 :       RETURN                                                                    
   8 :       END 
   9 :  
  10 :  
  11 :  
  12 :