Télécharger dyne06.eso

Retour à la liste

Numérotation des lignes :

  1. C DYNE06 SOURCE CHAT 05/01/12 23:12:56 5004
  2. SUBROUTINE DYNE06(IBLO,ICHT2,ICHT1)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * D Y N E 0 6
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. * UTILITAIRE DE L'OPERATEUR "DYNE"
  13. * CALCULE LE PRODUIT : BLO * V1 = V2
  14. *
  15. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  16. * -----------
  17. *
  18. * IBLO (E) POINTEUR SUR UN SEGMENT MBLO ( ACTIF )
  19. * VEC1 (E) VECTEUR
  20. * VEC2 (S) VECTEUR RESULTAT
  21. *
  22. * AUTEUR, DATE DE CREATION:
  23. * -------------------------
  24. * DENIS ROBERT, LE 26 NOVEMBRE 1988.
  25. * REVU ET CORRIGE DECEMBRE 89 MP
  26. *
  27. * LANGAGE:
  28. * --------
  29. * ESOPE + FORTRAN77
  30. *
  31. ************************************************************************
  32. *
  33. SEGMENT,MBLO
  34. REAL*8 BLO(IDDL,NDDL)
  35. ENDSEGMENT
  36. *
  37. SEGMENT,MCHT1
  38. REAL*8 VCC1(IDDL)
  39. ENDSEGMENT
  40. *
  41. SEGMENT,MCHT2
  42. REAL*8 VCC2(NDDL)
  43. ENDSEGMENT
  44. *
  45. * REAL*8 VEC1(*),VEC2(*)
  46. *
  47. MCHT1=ICHT1
  48. MCHT2=ICHT2
  49. *
  50. MBLO=IBLO
  51. IDDL=BLO(/1)
  52. NDDL=BLO(/2)
  53. *
  54. DO 5 I5=1,IDDL
  55. VCC1(I5)=0.D0
  56. 5 CONTINUE
  57. * END DO
  58. *
  59. DO 10 I1=1,IDDL
  60. DO 20 I2=1,NDDL
  61. VCC1(I1) = VCC1(I1) + ( BLO(I1,I2) * VCC2(I2) )
  62. 20 CONTINUE
  63. * END DO
  64. 10 CONTINUE
  65. * END DO
  66. *
  67. END
  68.  
  69.  

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