Esope source files

   1 : C GYROS     SOURCE    FANDEUR   11/07/19    21:16:11     7042           
   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 : -INC CCOPTIO                                                            
  28 : C
  29 :       IPMODL = 0
  30 :       IPCHE1 = 0
  31 :       IPRIG  = 0
  32 : C
  33 : C  lecture du modèle
  34 : C
  34 :       CALL LIROBJ('MMODEL',IPMODL,1,iretou)
  35 :       IF (IERR.NE.0) RETURN
  36 : C
  37 : C  lecture du mchaml de caractéristiques matériau
  38 : C
  38 :       CALL LIROBJ('MCHAML',IPCHE1,1,iretou)
  39 :       IF (IERR.NE.0) RETURN
  40 : c
  40 :       call reduaf(ipche1,ipmodl,ipch,0,ir,ker)
  40 :       if (ir.ne.1) call erreur(ker)
  41 :       IF (IERR.NE.0) RETURN
  42 :       ipche1 = ipch
  43 : *
  44 : *    Matrice de couplage Gyroscopique
  45 : *
  45 :       CALL GYRO2(IPMODL,IPCHE1,IPRIG)
  46 : C
  47 :       IF (IPRIG.NE.0 .AND. IERR.EQ.0) THEN
  47 :         CALL ECROBJ('RIGIDITE',IPRIG)
  48 :       ENDIF
  49 : C
  50 :       RETURN
  51 :       END
  52 : 
  53 :