Télécharger la plaquette Cast3M


fr en

Télécharger coupas.eso

Retour à la liste

Numérotation des lignes : 

coupas

  1. C COUPAS    SOURCE    PV        18/06/18    21:15:04     9860           
  2.       SUBROUTINE COUPAS(XE,YE,ZE,VECT,PAS,KERRE)
  3. C-----------------------------------------------------------------------
  4. C  ROUTINE DE CALCUL DE LA MATRICE DE PASSAGE P DES AXES LOCAUX AUX AXES
  5. C  GLOBAUX :       DEPLOC= P * DEPGLO
  6. C
  7. C  ENTREE
  8. C         XE YE ZE  COORDONNEES DES 2 NOEUDS
  9. C         VECT   VECTEUR DEFINISSANT LE REPERE LOCAL DU TUYAU
  10. C
  11. C  SORTIE
  12. C         PAS      MATRICE DE CHANGEMENT DE BASE
  13. C-----------------------------------------------------------------------
  14.       IMPLICIT INTEGER(I-N)
  15.       IMPLICIT REAL*8(A-H,O-Z)
  16.       DIMENSION XE(*),YE(*),ZE(*),P(3,3),VECT(*),PAS(10,10)
  17. C
  18.       DO 1 J=1,10
  19.       DO 1 I=1,10
  20. 1     PAS(I,J)=0.
  21. C
  22. C CALCUL DE LA MATRICE DE PASSAGE 3x3
  23. C
  24.       CALL POUPAS(XE,YE,ZE,VECT,P,KERRE)
  25. C
  26. C REMPLISSAGE MATRICE 10x10
  27. C
  28.       DO 2 I=1,3
  29.          DO 3 J=1,3
  30.          PAS(I,J)=P(I,J)
  31.          PAS(5+I,5+J)=P(I,J)
  32. 3        CONTINUE
  33. 2     CONTINUE
  34.       PAS(4,4)=1.
  35.       PAS(5,5)=1.
  36.       PAS(9,9)=1.
  37.       PAS(10,10)=1.
  38. C
  39.       RETURN
  40.       END
  41.  
  42.  
  43.  

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