Télécharger la plaquette Cast3M


fr en

Télécharger verrig.eso

Retour à la liste

Numérotation des lignes : 

verrig

  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 PPARAM
  32. -INC CCOPTIO
  33. -INC SMLENTI
  34. *
  35.       LOGICAL L0,L1
  36.       CHARACTER*8 TYPRET,MORIGI,CMOT,CHARRE
  37. *
  38. *     boucle sur le nombre de modes
  39. *
  40.       IROT=0
  41.       IDEFO=0
  42.       ICDG=0
  43.       IM = 0
  44.       MLENT1=ILEN1
  45.       MLENT2=ILEN2
  46.       SEGACT MLENT1,MLENT2
  47.  20   CONTINUE
  48.       IM = IM + 1
  49.       TYPRET = ' '
  50.       CALL ACCTAB(ISTB,'ENTIER',IM,X0,' ',L0,IP0,
  51.      &                   TYPRET,I1,X1,CHARRE,L1,ITBMOD)
  52.       IF (ITBMOD.NE.0 .AND. TYPRET.EQ.'TABLE   ') THEN
  53.             MORIGI = ' '
  54.             CALL ACCTAB(ITBMOD,'MOT',I0,X0,'CORPS_RIGIDE',L0,IP0,
  55.      &MORIGI,I1,X1,CMOT,L1,IP1)
  56.             IF (IERR.NE.0) RETURN
  57.             IF (MORIGI.EQ.'MOT') THEN
  58.                IF (CMOT(1:4).EQ.'VRAI') THEN
  59.                   CALL ACCTAB(ITBMOD,'MOT',I0,X0,'CENTRE_DE_GRAVITE',
  60.      &L0,IP0,'POINT',I1,X1,'  ',L1,ICDG)
  61.                   IF (IERR.NE.0) RETURN
  62.                   IROT=MLENT2.LECT(IM)
  63.                   IDEFO=MLENT1.LECT(IM)
  64.                ELSE
  65.                   GOTO 20
  66.                ENDIF
  67.             ELSE
  68.                 GOTO 20
  69.             ENDIF
  70.       ELSE
  71. *       RIEN
  72.       ENDIF
  73. *
  74.       SEGDES MLENT1,MLENT2
  75. *
  76.       END
  77. *
  78.  
  79.  
  80.  

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