Télécharger pucher.eso

Retour à la liste

Numérotation des lignes :

  1. C PUCHER SOURCE CB215821 20/11/04 21:20:44 10766
  2. SUBROUTINE PUCHER(IPCHE1,XPU,IPCHPU,IRET)
  3. *_______________________________________________________________________
  4. *CB215821 : Plus valide ==> Utiliser OPOBJE (OPCHE1 a la place)
  5. *_______________________________________________________________________
  6. *
  7. IMPLICIT INTEGER(I-N)
  8. IMPLICIT REAL*8(A-H,O-Z)
  9.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12.  
  13. CALL ERREUR(5)
  14.  
  15. RETURN
  16. END
  17.  
  18.  

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