Télécharger la plaquette Cast3M


fr en

Télécharger copie4.eso

Retour à la liste

Numérotation des lignes : 

copie4

  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