Télécharger la plaquette Cast3M


fr en

Télécharger vecrot.eso

Retour à la liste

Numérotation des lignes : 

vecrot

  1. C VECROT    SOURCE    CB215821  26/10/26    21:16:27     12682          
  2.       SUBROUTINE VECROT(VROT,VROTL,P)
  3. C-----------------------------------------------------------------------
  4. C  ROUTINE DE PASSAGE D UNE MATRICE ELEMENTAIRE DES AXES LOCAUX AUX AXES
  5. C  GLOBAUX
  6. C  POUR UNE MATRICE ANTISYMETRIQUE
  7. C
  8. C  ENTREE
  9. C         LRE    NOMBRE DE LIGNES DU TABLEAU REL
  10. C         P      MATRICE DE PASSAGE
  11. C         RP     MATRICE ELEMENTAIRE 12X12 EN AXES LOCAUX
  12. C
  13. C  SORTIE
  14. C         REL    MATRICE ELEMENTAIRE EN AXES GLOBAUX
  15. C
  16. C        Didier COMBESCURE Mars 2003
  17. C-----------------------------------------------------------------------
  18.       IMPLICIT INTEGER(I-N)
  19.       IMPLICIT REAL*8(A-H,O-Z)
  20.       DIMENSION P(3,3),VROT(3),VROTL(3)
  21. C
  22.        DO 10 I=1,3
  23.           VROTL(I)= 0.
  24.    10  CONTINUE
  25. C
  26.        DO 20 I1=1,3
  27.          DO 30 I2=1,3
  28.          VROTL(I1) = VROTL(I1) + (P(I1,I2)*VROT(I2))
  29.    30    CONTINUE
  30.    20  CONTINUE
  31. C
  32.  
  33.       RETURN
  34.       END
  35.  
  36.  
  37.  
  38.  
  39.  

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