Télécharger gint2.eso

Retour à la liste

Numérotation des lignes :

gint2
  1. C GINT2 SOURCE CHAT 05/01/13 00:18:22 5004
  2. SUBROUTINE GINT2
  3. IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. * -INC CCGIB
  8. C Quand IERR ou unit change
  9. C mise @ jour var gibiane
  10. IERR1=IERR
  11. IOLEC1=IOLEC
  12. IOIMP1=IOIMP
  13. IIMPI1=IIMPI
  14. IECHO1=IECHO
  15. RETURN
  16. END
  17.  
  18.  

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