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    CB215821  19/07/30    21:15:42     10273          
  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.  
  38.       MCHEL1 = IPOIN1
  39.       SEGINI,MCHELM=MCHEL1
  40.       IPOIN2 = MCHELM
  41.       NSOUS  = IMACHE(/1)
  42.  
  43.       DO 100 IA=1,NSOUS
  44.          MCHAM1=ICHAML(IA)
  45.          SEGINI,MCHAML=MCHAM1
  46.          ICHAML(IA)=MCHAML
  47.          DO 110 ICOMP=1,IELVAL(/1)
  48.             MELVA1 = IELVAL(ICOMP)
  49.             SEGINI,MELVAL=MELVA1
  50.             IELVAL(ICOMP) = MELVAL
  51.   110    CONTINUE
  52.   100 CONTINUE
  53.  
  54.       END
  55.  
  56.  
  57.  

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