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    CB215821  26/08/24    21:15:48     12622          
  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 4 J=1,10
  19.       DO 1 I=1,10
  20.       PAS(I,J)=0.D0
  21.     1 CONTINUE
  22.     4 CONTINUE
  23. C
  24. C CALCUL DE LA MATRICE DE PASSAGE 3x3
  25. C
  26.       CALL POUPAS(XE,YE,ZE,VECT,P,KERRE)
  27. C
  28. C REMPLISSAGE MATRICE 10x10
  29. C
  30.       DO 2 I=1,3
  31.          DO 3 J=1,3
  32.          PAS(I,J)=P(I,J)
  33.          PAS(5+I,5+J)=P(I,J)
  34. 3        CONTINUE
  35. 2     CONTINUE
  36.       PAS(4,4)=1.D0
  37.       PAS(5,5)=1.D0
  38.       PAS(9,9)=1.D0
  39.       PAS(10,10)=1.D0
  40. C
  41.       RETURN
  42.       END
  43.  
  44.  
  45.  
  46.  

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