Télécharger copie1.eso

Retour à la liste

Numérotation des lignes :

  1. C COPIE1 SOURCE CHAT 05/01/12 22:19:49 5004
  2. SUBROUTINE COPIE1 (IPOIN1,IPOIN2)
  3. ************************************************************************
  4. *
  5. * C O P I E 1
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * CREER UNE COPIE D'UN OBJET DE TYPE "LISTCHPO".
  12. *
  13. * MODE D'APPEL:
  14. * -------------
  15. *
  16. * CALL COPIE1 (IPOIN1,IPOIN2)
  17. *
  18. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  19. * -----------
  20. *
  21. * IPOIN1 ENTIER (E) POINTEUR DE L'OBJET A COPIER.
  22. * IPOIN2 ENTIER (S) POINTEUR DE LA COPIE.
  23. *
  24. * AUTEUR, DATE DE CREATION:
  25. * -------------------------
  26. *
  27. * PASCAL MANIGOT 11 AVRIL 1985
  28. *
  29. * LANGAGE:
  30. * --------
  31. *
  32. * ESOPE + FORTRAN77
  33. *
  34. ************************************************************************
  35. *
  36. IMPLICIT INTEGER(I-N)
  37. -INC SMLCHPO
  38. *
  39. MLCHPO = IPOIN1
  40. SEGINI,MLCHP1=MLCHPO
  41. IPOIN2 = MLCHP1
  42. SEGDES,MLCHP1
  43. *
  44. END
  45.  
  46.  

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