Esope source files

   1 : C VERRIG    SOURCE    CHAT      05/01/13    04:06:08     5004           
   2 :       SUBROUTINE VERRIG(ISTB,IROT,ICDG,ILEN1,ILEN2,IDEFO)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z) 
   5 : *-----------------------------------------------------------------------*
   6 : *                                                                       *          
   7 : *    Sous-programme appelé par EVRECO de l'opérateur EVOL option RECO   *
   8 : *                                                                       *
   9 : *       Pour les rotations de corps rigides, lit la base modale         *
  10 : *    vérifie si il s agit d'un corps rigide                             *
  11 : *       Si c'est le cas ,il lit le centre de gravité, la position du    *
  12 : *     mode de rotation et la position de la déformée modale.            *
  13 : *                                                                       *
  14 : *                                                                       *       
  15 : *     Paramètres                                                        *
  16 : *                                                                       *
  17 : * e   ISTB   Base modale                                                *
  18 : * es  IROT   Position du mode de rotation                               *
  19 : * es  ICDG   Numéro du point centre de gravité                          *
  20 : * es  IDEFO  Numéro de la déformée modale de rotation                   *
  21 : * e   ILEN1  Liste des numéros de déformées modales                     *
  22 : * e   ILEN2  Liste des numéros de points de repère                      *
  23 : *                                                                       *
  24 : *                                                                       *
  25 : *                                                                       *
  26 : *     Auteur, date de création:                                         *          
  27 : *                                                                       *          
  28 : *     Samuel DURAND      : le 14 Octobre 1996 : Création                * 
  29 : *                                                                       *
  30 : *-----------------------------------------------------------------------*
  31 : -INC CCOPTIO
  32 : -INC SMLENTI                                                 
  33 : *
  34 :       LOGICAL L0,L1  
  35 :       CHARACTER*8 TYPRET,MORIGI,CMOT,CHARRE   
  36 : *                                                                               
  37 : *     boucle sur le nombre de modes                                             
  38 : *    
  39 :       IROT=0
  40 :       IDEFO=0
  41 :       ICDG=0                                                                           
  42 :       IM = 0                                                                    
  43 :       MLENT1=ILEN1
  44 :       MLENT2=ILEN2                  
  45 :       SEGACT MLENT1,MLENT2
  46 :  20   CONTINUE                                                                  
  47 :       IM = IM + 1                                                               
  48 :       TYPRET = ' '                                                              
  48 :       CALL ACCTAB(ISTB,'ENTIER',IM,X0,' ',L0,IP0,                               
  49 :      &                   TYPRET,I1,X1,CHARRE,L1,ITBMOD)                            
  50 :       IF (ITBMOD.NE.0 .AND. TYPRET.EQ.'TABLE   ') THEN   
  51 :             MORIGI = ' '  
  51 :             CALL ACCTAB(ITBMOD,'MOT',I0,X0,'CORPS_RIGIDE',L0,IP0,             
  52 :      &MORIGI,I1,X1,CMOT,L1,IP1) 
  53 :             IF (IERR.NE.0) RETURN
  54 :             IF (MORIGI.EQ.'MOT') THEN
  55 :                IF (CMOT(1:4).EQ.'VRAI') THEN
  55 :                   CALL ACCTAB(ITBMOD,'MOT',I0,X0,'CENTRE_DE_GRAVITE',             
  56 :      &L0,IP0,'POINT',I1,X1,'  ',L1,ICDG) 
  57 :                   IF (IERR.NE.0) RETURN
  58 :                   IROT=MLENT2.LECT(IM)
  59 :                   IDEFO=MLENT1.LECT(IM)
  60 :                ELSE
  61 :                   GOTO 20
  62 :                ENDIF
  63 :             ELSE
  64 :                 GOTO 20
  65 :             ENDIF
  66 :       ELSE
  67 : *       RIEN
  68 :       ENDIF
  69 : *
  70 :       SEGDES MLENT1,MLENT2
  71 : *
  72 :       END
  73 : * 
  74 :  
  75 :