Télécharger dyne08.eso

Retour à la liste

Numérotation des lignes :

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

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