Télécharger elfe.eso

Retour à la liste

Numérotation des lignes :

  1. C ELFE SOURCE CHAT 05/01/12 23:31:45 5004
  2. SUBROUTINE ELFE
  3. C
  4. C =====================================================================
  5. C
  6. C L' OPERATEUR ELFE CALCULE LES VIBRATIONS
  7. C A MOYENNE FREQUENCE EN UTILISANT UNE METHODE INTEGRALE AUX ELEMENTS
  8. C FRONTIERE.
  9. C
  10. C SYNTAXE :
  11. C
  12. C RESU1 = ELFE | TEST | TEMPS )
  13. C | | ) SUPPRIMES 05/03/90
  14. C | | LAPLACE ..)
  15. C |
  16. C | LAPLACE | POUTRE .....
  17. C | | EXTERNE SUPPRIMEE 05/03/90
  18. C | | PLAQUE ....
  19. C |
  20. C | STATIQUE | POUTRE ....!
  21. C | | PLAQUE ....! supprimes 15/12/92
  22. C |
  23. C | TEMPS POUTRE STRUC1 ATTAC1 TEMPS
  24. C DT1 CHARG1 ( M1
  25. C GREEN ( NFOIS NN ) ;
  26. C
  27. C OPTION TEST TEMPS
  28. C -----------------
  29. C
  30. C
  31. C RESU1 : OBJET DE TYPE TABLE
  32. C LTF : OBJET DE TYPE LISTREEL (TEMPS)
  33. C GREEN : OBJET EVOLUTION CONTENANT LES FONCTIONS DE GREEN
  34. C E : MODULE DE YOUNG
  35. C RO : MASSE VOLUMIQUE
  36. C S : SECTION
  37. C IZ : MOMENT D INERTIE SUIVANT L AXE Z
  38. C COUPLAGE: MOT CLE PERMETTANT UNE RESOLUTION AVEC COUPLAGE
  39. C DECOUPLAGE: MOT CLE PERMETTANT UNE RESOLUTION AVEC DECOUPLAGE
  40. C
  41. C OPTION TEMPS
  42. C ------------
  43. C SOLUT1 : OBJET DE TYPE SOLUTION DYNAMIQUE
  44. C STRUC1 : OBJET DE TYPE STRUCTURE, ENSEMBLE DES ELEMENTS DE POUTRE
  45. C ATTAC1 : OBJET DE TYPE ATTACHE, LIAISONS ENTRE LES ELEMENTS
  46. C TEMPS : FLOTTANT, VALEUR DU TEMPS DE CALCUL
  47. C DT1 : FLOTTANT, VALEUR DU PAS DE TEMPS
  48. C CHARG1 : OBJET DE TYPE CHARGEMENT
  49. C GREEN : OBJET EVOLUTION CONTENANT LES FONCTIONS DE GREEN
  50. C FACULTATIVEMENT
  51. C M1 : ENTIER, INDICE DE TRONCATURE , SI 0 PAS DE TRONCATURE
  52. C NFOI : MOT CLE
  53. C NN : CHPOINT RESULTAT DANS L'OBJET SOLUTION TOUT LES NN PAS
  54. C
  55. C VERSION : JUIN 86
  56. C PROGRAMMEUR : GUILBAUD
  57. C MODIFIE PAR P.MANIGOT EN MARS 1988
  58. C MODIFIE PAR X.VACELET EN JUIN 1989
  59. C MODIFIE PAR e de langre dec 1992
  60. C
  61. C =====================================================================
  62. C
  63. IMPLICIT INTEGER(I-N)
  64. IMPLICIT REAL*8(A-H,O-Z)
  65. -INC CCOPTIO
  66. CHARACTER*40 CHA1
  67. CHARACTER*40 CHA2
  68. C
  69. CALL LIRCHA(CHA1,1,IRETOU)
  70. IF (IERR.NE.0) RETURN
  71. C
  72. C
  73. C
  74. IF (CHA1(1:5).EQ.'TEMPS') THEN
  75. CALL LIRCHA(CHA2,1,IRETOU)
  76. IF (IERR.NE.0) RETURN
  77. IF (CHA2(1:6).EQ.'POUTRE') THEN
  78. CALL ELFTEM
  79. RETURN
  80. ENDIF
  81. C
  82. ELSEIF (CHA1(1:7).EQ.'LAPLACE') THEN
  83. CALL LIRCHA(CHA2,1,IRETOU)
  84. IF (IERR.NE.0) RETURN
  85. IF (CHA2(1:6).EQ.'POUTRE') THEN
  86. CALL ELLP00
  87. RETURN
  88. ELSEIF (CHA2(1:4).EQ.'ACOU') THEN
  89. CALL ELLA00
  90. RETURN
  91. ELSEIF (CHA2(1:6).EQ.'PLAQUE') THEN
  92. CALL ELPDY2
  93. RETURN
  94. ENDIF
  95. C
  96. ENDIF
  97. C
  98. RETURN
  99. C
  100. END
  101.  
  102.  

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