C EXTR18    SOURCE    KICH      11/01/07    21:15:24     6839           
      SUBROUTINE EXTR18(IPCHE1,NZ)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC CCOPTIO
-INC SMCHAML

      nz = 0
      mchelm = ipche1
      segact mchelm
      nz = ichaml(/1)
      if (nz.lt.0) then
        call erreur(5)
        return
      endif
      segdes mchelm
      RETURN
      END