Télécharger la plaquette Cast3M


fr en

Télécharger copie6.eso

Retour à la liste

Numérotation des lignes : 

copie6

  1. C COPIE6    SOURCE    CHAT      05/01/12    22:20:07     5004
  2.       SUBROUTINE COPIE6 (IPOIN1,IPOIN2)
  3. ************************************************************************
  4. *
  5. *                             C O P I E 6
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     CREER UNE COPIE D'UN OBJET DE TYPE "TABLE".
  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        11 MAI 1990
  23. *
  24. * LANGAGE:
  25. * --------
  26. *
  27. *     ESOPE + FORTRAN77
  28. *
  29. ************************************************************************
  30. *
  31.       IMPLICIT INTEGER(I-N)
  32. -INC SMTABLE
  33. *
  34.       MTAB1 = IPOIN1
  35.       SEGINI,MTABLE=MTAB1
  36.       IPOIN2 = MTABLE
  37.       SEGDES,MTABLE
  38. *
  39.       END
  40.  
  41.  

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