Télécharger copie7.eso

Retour à la liste

Numérotation des lignes :

  1. C COPIE7 SOURCE CHAT 05/01/12 22:20:10 5004
  2. SUBROUTINE COPIE7(IPOIN1,IPOIN2)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * C O P I E 7
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * CREER UNE COPIE D'UN OBJET DE TYPE "POINT".
  14. *
  15. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  16. * -----------
  17. *
  18. * IPOIN1 ENTIER (E) POINTEUR DE L'OBJET A COPIER.
  19. * IPOIN2 ENTIER (S) POINTEUR DE LA COPIE.
  20. *
  21. * AUTEUR, DATE DE CREATION:
  22. * -------------------------
  23. *
  24. * LIONEL VIVAN 14 MAI 1990
  25. *
  26. * LANGAGE:
  27. * --------
  28. *
  29. * ESOPE + FORTRAN77
  30. *
  31. ************************************************************************
  32. *
  33. -INC CCOPTIO
  34. -INC SMCOORD
  35. *
  36. IPOIN2 = 0
  37. CALL EXCOO1(IPOIN1,X1,Y1,Z1,D1)
  38. IDIM1 = IDIM + 1
  39. NPTS = XCOOR(/1) / IDIM1
  40. NBPTS = NPTS + 1
  41. SEGADJ MCOORD
  42. XCOOR( NPTS * IDIM1 + 1 ) = X1
  43. XCOOR( NPTS * IDIM1 + 2 ) = Y1
  44. IF (IDIM.EQ.3) XCOOR( NPTS * IDIM1 + 3 ) = Z1
  45. XCOOR( NBPTS * IDIM1 ) = D1
  46. IPOIN2 = NBPTS
  47. RETURN
  48. END
  49.  
  50.  

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