Esope source files

   1 : C EXTR18    SOURCE    KICH      11/01/07    21:15:24     6839           
   2 :       SUBROUTINE EXTR18(IPCHE1,NZ)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 : 
   6 : -INC CCOPTIO
   7 : -INC SMCHAML
   8 : 
   9 :       nz = 0
  10 :       mchelm = ipche1
  11 :       segact mchelm
  12 :       nz = ichaml(/1)
  13 :       if (nz.lt.0) then
  13 :         call erreur(5)
  14 :         return
  15 :       endif
  16 :       segdes mchelm
  17 :       RETURN
  18 :       END
  19 :