Télécharger la plaquette Cast3M


fr en

Télécharger copie2.eso

Retour à la liste

Numérotation des lignes : 

copie2

  1. C COPIE2    SOURCE    CB215821  20/11/25    13:22:21     10792          
  2.       SUBROUTINE COPIE2 (IPOIN1,IPOIN2)
  3. ************************************************************************
  4. *
  5. *                             C O P I E 2
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     CREER UNE COPIE D'UN OBJET DE TYPE "CHPOINT".
  12. *
  13. * MODE D'APPEL:
  14. * -------------
  15. *
  16. *     CALL COPIE2 (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     12 AVRIL 1985
  28. *
  29. * LANGAGE:
  30. * --------
  31. *
  32. *     ESOPE + FORTRAN77
  33. *
  34. ************************************************************************
  35. *
  36.       IMPLICIT INTEGER(I-N)
  37.       IMPLICIT REAL*8(A-H,O-Z)
  38. *
  39. -INC SMCHPOI
  40. *
  41.       MCHPO1 = IPOIN1
  42.       SEGINI,MCHPOI=MCHPO1
  43.       IPOIN2 = MCHPOI
  44.       NSOUPO = IPCHP(/1)
  45. *
  46.       DO 100 IB100=1,NSOUPO
  47.          MSOUP1 = IPCHP(IB100)
  48.          SEGINI,MSOUPO=MSOUP1
  49.          IPCHP(IB100) = MSOUPO
  50.          MPOVA1 = IPOVAL
  51.          SEGINI,MPOVAL=MPOVA1
  52.          IPOVAL = MPOVAL
  53.   100    CONTINUE
  54. *     END DO
  55. *
  56.       END
  57.  
  58.  
  59.  
  60.  

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