Télécharger dogtif.eso

Retour à la liste

Numérotation des lignes :

  1. C DOGTIF SOURCE CHAT 05/01/12 22:53:15 5004
  2. SUBROUTINE DOGTIF(VELA,MATE,IFOU,LHOOK,DDHOOK,IRET)
  3. C
  4. C=======================================================================
  5. C
  6. C MATRICE DE COUPLAGE GYROSCOPIQUE POUR UNE SECTION (FIBRE)
  7. C
  8. C ENTREES
  9. C VELA() = materiau dans un tableau de travail
  10. C MATE = Nom du materiau
  11. C IFOU = num{ro d'harmonique de fourier: IFOUR de CCOPTIO
  12. C LHOOK = taille de la matrice de hooke
  13. C
  14. C SORTIES
  15. C DDGYRO(LHOOK,LHOOK) = matrice de couplage gyroscopique
  16. C IRET = 1 si option existante 0 SINON
  17. C
  18. C=======================================================================
  19. C Didier COMBESCURE 2003 - DM2S/SEMT/DYN
  20. C=======================================================================
  21. IMPLICIT INTEGER(I-N)
  22. IMPLICIT REAL*8(A-H,O-Z)
  23. CHARACTER*8 MATE
  24. C
  25. DIMENSION VELA(*),DDHOOK(LHOOK,*)
  26. C
  27. IRET=1
  28. CALL ZERO(DDHOOK,LHOOK,LHOOK)
  29. C
  30. DDHOOK(5,6)=VELA(4) + VELA(6)
  31. DDHOOK(6,5)=(-1.D0)*DDHOOK(5,6)
  32. C
  33. RETURN
  34. END
  35.  
  36.  
  37.  
  38.  

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