Télécharger dyne10.eso

Retour à la liste

Numérotation des lignes :

  1. C DYNE10 SOURCE CHAT 05/01/12 23:13:21 5004
  2. SUBROUTINE DYNE10(ICHT22,IPM,ICHT23,NDDL)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * D Y N E 1 0
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. * UTILITAIRE DE L'OPERATEUR "DYNE"
  13. * CALCULE LE PRODUIT : M-1 * VEC = VEC1
  14. *
  15. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  16. * -----------
  17. *
  18. * VEC (E) VECTEUR -1
  19. * IPM (E) POINTEUR SUR UN VECTDOUB CONTENANT M ( ACTIF )
  20. * VEC1 (S) VECTEUR RESULTAT
  21. * NDDL (E) NOMBRE DE DDL
  22. *
  23. * AUTEUR, DATE DE CREATION:
  24. * -------------------------
  25. * DENIS ROBERT, LE 1ER DECEMBRE 1988.
  26. * REVU ET CORRIGE DECEMBRE 89 MP
  27. *
  28. * LANGAGE:
  29. * --------
  30. * ESOPE + FORTRAN77
  31. *
  32. ************************************************************************
  33. *
  34. * MODULES UTILISES:
  35. *
  36. -INC SMVECTD
  37. *
  38. SEGMENT,MCHT2
  39. REAL*8 VCC2(NDDL)
  40. ENDSEGMENT
  41. POINTEUR MCHT22.MCHT2,MCHT23.MCHT2
  42. *
  43. * REAL*8 VEC(*),VEC1(*)
  44. *
  45. MCHT22=ICHT22
  46. MCHT23=ICHT23
  47. MVECTD=IPM
  48. *
  49. DO 10 I=1,NDDL
  50. MCHT23.VCC2(I)=MCHT22.VCC2(I)*VECTBB(I)
  51. 10 CONTINUE
  52. * END DO
  53. *
  54. END
  55.  
  56.  

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