Télécharger copie8.eso

Retour à la liste

Numérotation des lignes :

  1. C COPIE8 SOURCE FANDEUR 14/03/12 21:15:05 7991
  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. c* SEGACT MCHEL1
  40. SEGINI,MCHELM=MCHEL1
  41. c* SEGDES MCHEL1
  42. IPOIN2 = MCHELM
  43. NSOUS = IMACHE(/1)
  44. *
  45. DO 100 IA=1,NSOUS
  46. MCHAM1=ICHAML(IA)
  47. c* SEGACT MCHAM1
  48. SEGINI,MCHAML=MCHAM1
  49. c* SEGDES MCHAM1
  50. ICHAML(IA)=MCHAML
  51. DO 110 ICOMP=1,IELVAL(/1)
  52. MELVA1 = IELVAL(ICOMP)
  53. c* SEGACT MELVA1
  54. SEGINI,MELVAL=MELVA1
  55. c* SEGDES MELVA1
  56. IELVAL(ICOMP) = MELVAL
  57. SEGDES MELVAL
  58. 110 CONTINUE
  59. SEGDES MCHAML
  60. 100 CONTINUE
  61. *
  62. SEGDES MCHELM
  63. *
  64. RETURN
  65. END
  66.  
  67.  
  68.  

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