Télécharger la plaquette Cast3M


fr en

Télécharger gyros.eso

Retour à la liste

Numérotation des lignes : 

gyros

  1. C GYROS     SOURCE    CB215821  19/08/01    21:16:03     10279          
  2.  
  3.       SUBROUTINE GYROS
  4.  
  5. C***********************************************************************
  6. C                                                                      *
  7. C      FABRICATION DE LA MATRICE DE COUPLAGE GYROSCOPIQUE DANS         *
  8. C      LE REPERE INERTIEL (Calcul classique POUTRE)                    *
  9. C                                                                      *
  10. C  Syntaxe :                                                           *
  11. C  --------                                                            *
  12. C                                                                      *
  13. C    RIG1 = GYROS MODL1 MAT1 ;                                         *
  14. C                                                                      *
  15. C  RIG1 : matrice d'amortissement construite (TYPE rigidité, SOUS-TYPE *
  16. C         amortissement)                                               *
  17. C  MODL1: objet MMODEL, modèle                                         *
  18. C  MAT1 : objet MCHAML, caractéristiques matériau                      *
  19. C                                                                      *
  20. C                     Didier COMBESCURE mars 2003                      *
  21. C                                                                      *
  22. C***********************************************************************
  23. C
  24.       IMPLICIT INTEGER(I-N)
  25.       IMPLICIT REAL*8 (A-H,O-Z)
  26.  
  27.  
  28. -INC PPARAM
  29. -INC CCOPTIO
  30. C
  31.       IPMODL = 0
  32.       IPCHE1 = 0
  33.       IPRIG  = 0
  34. C
  35. C  lecture du modèle
  36. C
  37.       CALL LIROBJ('MMODEL  ',IPMODL,1,iretou)
  38.       CALL ACTOBJ('MMODEL  ',IPMODL,1)
  39.       IF (IERR.NE.0) RETURN
  40. C
  41. C  lecture du mchaml de caractéristiques matériau
  42. C
  43.       CALL LIROBJ('MCHAML  ',IPIN,1,iretou)
  44.       CALL ACTOBJ('MCHAML  ',IPIN,1)
  45.       IF (IERR.NE.0) RETURN
  46.           CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  47.           IF(IR   .NE. 1) CALL ERREUR(KER)
  48.           IF(IERR .NE. 0) RETURN
  49. *
  50. *    Matrice de couplage Gyroscopique
  51. *
  52.       CALL GYRO2(IPMODL,IPCHE1,IPRIG)
  53.       IF(IERR .NE. 0) RETURN
  54. C
  55.       IF (IPRIG.NE.0 .AND. IERR.EQ.0) THEN
  56.         CALL ECROBJ('RIGIDITE',IPRIG)
  57.       ENDIF
  58.  
  59.       END
  60.  
  61.  
  62.  

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