Télécharger la plaquette Cast3M


fr en

Télécharger acmalo.eso

Retour à la liste

Numérotation des lignes : 

acmalo

  1. C ACMALO    SOURCE    CB215821  26/08/24    21:15:06     12622          
  2.       SUBROUTINE ACMALO(RP,XL,RAY,RHO,RHOR,C,CREF,LCAR,LREL)
  3. C-----------------------------------------------------------------------
  4. C
  5. C    ROUTINE DE CALCUL DE LA MATRICE DE MASSE ELEMENTAIRE D'UN
  6. C    TUYAU ACOUSTIQUE PUR EN AXES LOCAUX
  7. C
  8. C  ENTREE
  9. C    XL      LONGUEUR
  10. C    RAY     RAYON DU TUYAU FLUIDE
  11. C    RHO     MASSE VOLUMIQUE DU FLUIDE
  12. C    RHOR    MASSE VOLUMIQUE DE REFERENCE
  13. C    C       CELERITE DU FLUIDE
  14. C    CREF    CELERITE DE REFERENCE
  15. C    LCAR    LONGUEUR CARACTERISTIQUE
  16. C  SORTIE
  17. C    RP      MATRICE DE MASSE ELEMENTAIRE 4X4
  18. C
  19. C-----------------------------------------------------------------------
  20.       IMPLICIT INTEGER(I-N)
  21.       IMPLICIT REAL*8(A-H,O-Z)
  22.       DIMENSION RP(LREL,*)
  23.       REAL*8 LCAR
  24. C
  25.       DO 3 J=1,LREL
  26.       DO 1 I=1,LREL
  27.       RP(I,J)= 0.
  28.     1 CONTINUE
  29.     3 CONTINUE
  30. C
  31.       PI=2*ASIN(1.)
  32.       SE=PI*RAY*RAY
  33.       A=-(SE*RHOR**2*LCAR**4)/(RHO*XL)
  34.       B=(SE*XL*RHOR**2*CREF**2*LCAR**2)/(3*RHO*C**2)
  35. C
  36.       RP(1,1)=A
  37.       RP(1,2)=B
  38.       RP(1,3)=-A
  39.       RP(1,4)=B/2
  40.       RP(2,3)=RP(1,4)
  41.       RP(3,3)=A
  42.       RP(3,4)=B
  43. C
  44. C SYMETRISATION
  45. C
  46.       DO 4 I=1,4
  47.       DO 2 J=I,4
  48.       RP(J,I)=RP(I,J)
  49.     2 CONTINUE
  50.     4 CONTINUE
  51. C
  52.       RETURN
  53.       END
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  

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