Télécharger la plaquette Cast3M


fr en

Télécharger copie7.eso

Retour à la liste

Numérotation des lignes : 

copie7

  1. C COPIE7    SOURCE    PV        20/03/24    21:16:06     10554          
  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.  
  34. -INC PPARAM
  35. -INC CCOPTIO
  36. -INC SMCOORD
  37. *
  38.       IPOIN2 = 0
  39.       CALL EXCOO1(IPOIN1,X1,Y1,Z1,D1)
  40.       IDIM1 = IDIM + 1
  41.       segact mcoord*mod
  42.       NPTS = nbpts
  43.       NBPTS = NPTS + 1
  44.       SEGADJ MCOORD
  45.       XCOOR( NPTS * IDIM1 + 1 ) = X1
  46.       XCOOR( NPTS * IDIM1 + 2 ) = Y1
  47.       IF (IDIM.EQ.3) XCOOR( NPTS * IDIM1 + 3 ) = Z1
  48.       XCOOR( NBPTS * IDIM1 ) = D1
  49.       IPOIN2 = NBPTS
  50.       RETURN
  51.       END
  52.  
  53.  
  54.  

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