Sources Esope | Cast3M

chanli
C CHANLI    SOURCE    GOUNAND   24/10/08    21:15:03     12025          
      SUBROUTINE CHANLI
 
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
-INC SMELEME
      logical ltelq
      SEGMENT INOO
      INTEGER INOU(NA)
      ENDSEGMENT
 
      CALL LIROBJ('MAILLAGE',IPT1,1,IRETOU)
      IF(IERR.NE.0) RETURN
      CALL CHANL2(IPT1,IPT2)
      IF (IERR.NE.0) RETURN
      CALL ECROBJ('MAILLAGE',IPT2)
      RETURN
      END