Télécharger prrege.eso

Retour à la liste

Numérotation des lignes :

  1. C PRREGE SOURCE CHAT 05/01/13 02:35:29 5004
  2. SUBROUTINE PRREGE
  3. IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. -INC SMELEME
  8. CALL LIROBJ('MAILLAGE',IPT1,1,IRETOU)
  9. IF(IERR.NE.0) RETURN
  10. CALL REGENE(IPT1)
  11. CALL ECROBJ('MAILLAGE',IPT1)
  12. RETURN
  13. END
  14.  
  15.  

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