Télécharger la plaquette Cast3M


fr en

Télécharger dogtif.eso

Retour à la liste

Numérotation des lignes : 

dogtif

  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