Télécharger copie4.eso

Retour à la liste

Numérotation des lignes :

  1. C COPIE4 SOURCE CHAT 05/01/12 22:19:59 5004
  2. SUBROUTINE COPIE4 (IPOIN1,IPOIN2)
  3. ************************************************************************
  4. *
  5. * C O P I E 4
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * CREER UNE COPIE D'UN OBJET DE TYPE "LISTREEL".
  12. *
  13. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  14. * -----------
  15. *
  16. * IPOIN1 ENTIER (E) POINTEUR DE L'OBJET A COPIER.
  17. * IPOIN2 ENTIER (S) POINTEUR DE LA COPIE.
  18. *
  19. * AUTEUR, DATE DE CREATION:
  20. * -------------------------
  21. *
  22. * LIONEL VIVAN 1 AVRIL 1988
  23. *
  24. * LANGAGE:
  25. * --------
  26. *
  27. * ESOPE + FORTRAN77
  28. *
  29. ************************************************************************
  30. *
  31. IMPLICIT INTEGER(I-N)
  32. -INC SMLREEL
  33. *
  34. MLREEL = IPOIN1
  35. SEGINI,MLREE1=MLREEL
  36. IPOIN2 = MLREE1
  37. SEGDES,MLREE1
  38. *
  39. END
  40.  
  41.  

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