Télécharger la plaquette Cast3M


fr en

Télécharger copie8.eso

Retour à la liste

Numérotation des lignes : 

copie8

  1. C COPIE8    SOURCE    PV090527  25/01/07    14:42:29     12115          
  2.  
  3.       SUBROUTINE COPIE8 (IPOIN1,IPOIN2)
  4.  
  5. ************************************************************************
  6. *
  7. *                             C O P I E 8
  8. *                             -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. *     CREER UNE COPIE D'UN OBJET DE TYPE "MCHAML".
  14. *
  15. * MODE D'APPEL:
  16. * -------------
  17. *
  18. *     CALL COPIE8 (IPOIN1,IPOIN2)
  19. *
  20. * PARAMETRES:  (E)=ENTREE   (S)=SORTIE
  21. * -----------
  22. *
  23. *     IPOIN1  ENTIER    (E)  POINTEUR DE L'OBJET A COPIER.
  24. *     IPOIN2  ENTIER    (S)  POINTEUR DE LA COPIE.
  25. *
  26. * LANGAGE:
  27. * --------
  28. *
  29. *     ESOPE + FORTRAN77
  30. *
  31. ************************************************************************
  32. *
  33.       IMPLICIT INTEGER(I-N)
  34.       IMPLICIT REAL*8(A-H,O-Z)
  35.  
  36. -INC SMCHAML
  37. -INC SMCOORD
  38.  
  39.       MCHEL1 = IPOIN1
  40.       SEGINI,MCHELM=MCHEL1
  41.       IPOIN2 = MCHELM
  42.       NSOUS  = IMACHE(/1)
  43.  
  44.       DO 100 IA=1,NSOUS
  45.          MCHAM1=ICHAML(IA)
  46.          SEGINI,MCHAML=MCHAM1
  47.          ICHAML(IA)=MCHAML
  48.          DO 110 ICOMP=1,IELVAL(/1)
  49.             MELVA1 = IELVAL(ICOMP)
  50.             SEGINI,MELVAL=MELVA1
  51.             IELVAL(ICOMP) = MELVAL
  52.   110    CONTINUE
  53.   100 CONTINUE
  54.  
  55.       END
  56.  
  57.  
  58.  
  59.  

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