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. -INC CCOPTIO
  5. -INC SMELEME
  6. CALL LIROBJ('MAILLAGE',IPT1,1,IRETOU)
  7. IF(IERR.NE.0) RETURN
  8. CALL REGENE(IPT1)
  9. CALL ECROBJ('MAILLAGE',IPT1)
  10. RETURN
  11. END
  12.  
  13.  

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