Télécharger copie8.eso

Retour à la liste

Numérotation des lignes :

  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