Sources Esope | Cast3M

chanqu
C CHANQU    SOURCE    CHAT      05/01/12    21:55:49     5004
      SUBROUTINE CHANQU
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
      CALL LIROBJ ('MAILLAGE',IRET,1,IRETOU)
      IF(IERR.NE.0) RETURN
      IRETOU=IRET
      CALL DEMCHA( IRET,IRETOU)
      CALL ECROBJ ('MAILLAGE',IRETOU)
      RETURN
      END