Télécharger dynec1.eso

Retour à la liste

Numérotation des lignes :

  1. C DYNEC1 SOURCE CHAT 05/01/12 23:17:59 5004
  2. SUBROUTINE DYNEC1(VEC1,COEF,NUMPAS,NDDL,VEC2)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * D Y N E C 1
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. * UTILITAIRE DE L'OPERATEUR "DYNE"
  13. * CALCUL DU VECTEUR GENERE PAR UN CHARGEMENT AU PAS NUMPAS
  14. *
  15. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  16. * -----------
  17. * T
  18. * VEC1 (E) VECTEUR CONTENANT LES VALEURS DU CHPOINT DE CHARG
  19. * COEF (E) LISTE DE COEFFICIENTS ( VOIR LE S-P DYNECH )
  20. * NUMPAS (E) NUMERO DU PAS DE CALCUL
  21. * NDDL (E) NOMBRE DE DEGRES DE LIBERTE
  22. * VEC2 (S) VECTEUR AU PAS CONSIDERE
  23. *
  24. * AUTEUR, DATE DE CREATION:
  25. * -------------------------
  26. *
  27. * DENIS ROBERT, LE 9 NOVEMBRE 1988.
  28. *
  29. * LANGAGE:
  30. * --------
  31. *
  32. * FORTRAN77
  33. *
  34. ************************************************************************
  35. *
  36. REAL*8 VEC1(*),VEC2(*),COEF(*)
  37. *
  38. PARAMETER ( ZERO=0.D0 )
  39. *
  40. DO 10 I=1,NDDL
  41. VEC2(I)=ZERO
  42. 10 CONTINUE
  43. * END DO
  44. DO 20 J=1,NDDL
  45. VEC2(J)=VEC1(J)*COEF(NUMPAS)
  46. 20 CONTINUE
  47. * END DO
  48. *
  49. END
  50.  
  51.  

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