Sources Esope | Cast3M

extr18
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 PPARAM
-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