Télécharger verrig.eso

Retour à la liste

Numérotation des lignes :

  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 = ' '
  49. CALL ACCTAB(ISTB,'ENTIER',IM,X0,' ',L0,IP0,
  50. & TYPRET,I1,X1,CHARRE,L1,ITBMOD)
  51. IF (ITBMOD.NE.0 .AND. TYPRET.EQ.'TABLE ') THEN
  52. MORIGI = ' '
  53. CALL ACCTAB(ITBMOD,'MOT',I0,X0,'CORPS_RIGIDE',L0,IP0,
  54. &MORIGI,I1,X1,CMOT,L1,IP1)
  55. IF (IERR.NE.0) RETURN
  56. IF (MORIGI.EQ.'MOT') THEN
  57. IF (CMOT(1:4).EQ.'VRAI') THEN
  58. CALL ACCTAB(ITBMOD,'MOT',I0,X0,'CENTRE_DE_GRAVITE',
  59. &L0,IP0,'POINT',I1,X1,' ',L1,ICDG)
  60. IF (IERR.NE.0) RETURN
  61. IROT=MLENT2.LECT(IM)
  62. IDEFO=MLENT1.LECT(IM)
  63. ELSE
  64. GOTO 20
  65. ENDIF
  66. ELSE
  67. GOTO 20
  68. ENDIF
  69. ELSE
  70. * RIEN
  71. ENDIF
  72. *
  73. SEGDES MLENT1,MLENT2
  74. *
  75. END
  76. *
  77.  
  78.  
  79.  

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