Télécharger extr18.eso

Retour à la liste

Numérotation des lignes :

  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
  14. call erreur(5)
  15. return
  16. endif
  17. segdes mchelm
  18. RETURN
  19. END
  20.  
  21.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales