Télécharger la plaquette Cast3M


fr en

Télécharger elfe.eso

Retour à la liste

Numérotation des lignes : 

elfe

  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.  
  66. -INC PPARAM
  67. -INC CCOPTIO
  68.       CHARACTER*40 CHA1
  69.       CHARACTER*40 CHA2
  70. C
  71.       CALL LIRCHA(CHA1,1,IRETOU)
  72.       IF (IERR.NE.0) RETURN
  73. C
  74. C
  75. C
  76.       IF (CHA1(1:5).EQ.'TEMPS') THEN
  77.         CALL LIRCHA(CHA2,1,IRETOU)
  78.         IF (IERR.NE.0) RETURN
  79.         IF     (CHA2(1:6).EQ.'POUTRE') THEN
  80.            CALL ELFTEM
  81.           RETURN
  82.         ENDIF
  83. C
  84.       ELSEIF (CHA1(1:7).EQ.'LAPLACE') THEN
  85.         CALL LIRCHA(CHA2,1,IRETOU)
  86.         IF (IERR.NE.0) RETURN
  87.         IF (CHA2(1:6).EQ.'POUTRE') THEN
  88.            CALL ELLP00
  89.            RETURN
  90.         ELSEIF (CHA2(1:4).EQ.'ACOU') THEN
  91.            CALL ELLA00
  92.            RETURN
  93.         ELSEIF (CHA2(1:6).EQ.'PLAQUE') THEN
  94.            CALL ELPDY2
  95.            RETURN
  96.         ENDIF
  97. C
  98.       ENDIF
  99. C
  100.       RETURN
  101. C
  102.       END
  103.  
  104.  

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