Sources Esope | Cast3M

chanqu
C CHANQU    SOURCE    GOUNAND   24/10/08    21:15:04     12025          
      SUBROUTINE CHANQU
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
      CALL LIROBJ ('MAILLAGE',MELEME,1,IRET)
      IF (IERR.NE.0) RETURN
      CALL LIROBJ ('MAILLAGE',IPT8,0,IRET)
      IF (IRET.EQ.0) THEN
         IPT8=MELEME
      ENDIF
      CALL DEMCHA(IPT8,MELEME)
      CALL ACTOBJ('MAILLAGE',MELEME,1)
      CALL ECROBJ('MAILLAGE',MELEME)
      RETURN
      END