Télécharger chanqu.eso

Retour à la liste

Numérotation des lignes :

  1. C CHANQU SOURCE CHAT 05/01/12 21:55:49 5004
  2. SUBROUTINE CHANQU
  3. IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. CALL LIROBJ ('MAILLAGE',IRET,1,IRETOU)
  8. IF(IERR.NE.0) RETURN
  9. IRETOU=IRET
  10. CALL DEMCHA( IRET,IRETOU)
  11. CALL ECROBJ ('MAILLAGE',IRETOU)
  12. RETURN
  13. END
  14.  
  15.  
  16.  
  17.  
  18.  

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