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. -INC CCOPTIO
  5. CALL LIROBJ ('MAILLAGE',IRET,1,IRETOU)
  6. IF(IERR.NE.0) RETURN
  7. IRETOU=IRET
  8. CALL DEMCHA( IRET,IRETOU)
  9. CALL ECROBJ ('MAILLAGE',IRETOU)
  10. RETURN
  11. END
  12.  
  13.  
  14.  
  15.  
  16.  

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