Télécharger d2ne16.eso

Retour à la liste

Numérotation des lignes :

  1. C D2NE16 SOURCE CHAT 05/01/12 22:34:57 5004
  2. C DYNE16 SOURCE PLAF 91/03/27 21:15:13 174
  3. SUBROUTINE D2NE16(Q1,Q2,Q3,NA1,FTOTA,XPTB,NPLB,IDIMB,FINERT,
  4. & WEXT,WINT)
  5.  
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. *--------------------------------------------------------------------*
  9. * *
  10. * Op{rateur DYNE : algorithme de Fu - de Vogelaere *
  11. * ________________________________________________ *
  12. * *
  13. * D{calage ou mise @ z{ro dans les tableaux pour le pas suivant. *
  14. * *
  15. * Param}tres: *
  16. * *
  17. * es Q1( , ) Vecteur des d{placements g{n{ralis{s *
  18. * es Q2( , ) Vecteur des vitesses g{n{ralis{es *
  19. * es Q3( , ) Vecteur des acc{l{rations g{n{ralis{es *
  20. * e NA1 Nombre total d'inconnues sur la base A *
  21. * es FTOTA Forces ext{rieures totalis{es, sur la base A *
  22. * es XPTB Tableau des d{placements des points de liaisons *
  23. * e NPLB Nombre maxi de points de liaisons *
  24. * e IDIMB Nombre maxi de ddl par liaisons *
  25. * *
  26. * Auteur, date de cr{ation: *
  27. * *
  28. * Denis ROBERT-MOUGIN, le 16 juin 1989. *
  29. * *
  30. *--------------------------------------------------------------------*
  31. REAL*8 Q1(NA1,*),Q2(NA1,*),Q3(NA1,*),FTOTA(NA1,*)
  32. REAL*8 XPTB(NPLB,4,*),FINERT(NA1,*),WEXT(NA1,*),WINT(NA1,*)
  33. *
  34. * Boucle sur les inconnues de la base A
  35. *
  36. DO 10 I=1,NA1
  37. Q1(I,2) = Q1(I,1)
  38. Q2(I,2) = Q2(I,1)
  39. Q3(I,2) = Q3(I,1)
  40. FTOTA(I,2) = FTOTA(I,1)
  41. FINERT(I,2) = FINERT(I,1)
  42. WEXT(I,2) = WEXT(I,1)
  43. WINT(I,2) = WINT(I,1)
  44.  
  45.  
  46. 10 CONTINUE
  47. DO 20 IP = 1,NPLB
  48. DO 22 ID = 1,IDIMB
  49. XPTB(IP,2,ID) = XPTB(IP,1,ID)
  50. 22 CONTINUE
  51. * end do
  52. 20 CONTINUE
  53. * end do
  54. *
  55. END
  56.  
  57.  
  58.  
  59.  
  60.  

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