Télécharger la plaquette Cast3M


fr en

Télécharger d2ne16.eso

Retour à la liste

Numérotation des lignes : 

d2ne16

  1. C D2NE16    SOURCE    BP208322  20/09/18    21:15:11     10718          
  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. *     Operateur DYNE : algorithme de Fu - de Vogelaere               *
  11. *     ________________________________________________               *
  12. *                                                                    *
  13. *     Decalage ou mise a zero dans les tableaux pour le pas suivant. *
  14. *                                                                    *
  15. *     Parametres:                                                    *
  16. *                                                                    *
  17. * es  Q1( , )    Vecteur des deplacements generalises                *
  18. * es  Q2( , )    Vecteur des vitesses generalisees                   *
  19. * es  Q3( , )    Vecteur des accelerations generalisees              *
  20. * e   NA1        Nombre total d'inconnues sur la base A              *
  21. * es  FTOTA      Forces exterieures totalisees, sur la base A        *
  22. * es  XPTB       Tableau des deplacements 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 creation:                                      *
  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,2,*),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.  10   CONTINUE
  46.  
  47. cbp2020-09 : ci dessous devenu inutile (cf devrco) 
  48. cbp2020-09      DO 20 IP = 1,NPLB
  49. cbp2020-09         DO 22 ID = 1,IDIMB
  50. cbp2020-09            XPTB(IP,2,ID) = XPTB(IP,1,ID)
  51. cbp2020-09 22      CONTINUE
  52. cbp2020-09 20   CONTINUE
  53. *
  54.       END
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  

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