Télécharger dft.eso

Retour à la liste

Numérotation des lignes :

  1. C DFT SOURCE BP208322 20/09/18 21:15:45 10718
  2.  
  3. SUBROUTINE DFT(XT,NDDL,NHBM,NFFT,IGAM,XF)
  4.  
  5. *=======================================================================
  6. * DFT: Transformee de Fourier Directe
  7. *
  8. * Entrée: XT , deplacemente temporaux
  9. * IGAM , opérateur DFT discret
  10. * Sortie: XF , coefficients de Fourier
  11. *
  12. *=======================================================================
  13. c
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8(A-H,O-Z)
  16. REAL*8 XT(NDDL,NFFT),XF(NDDL*(2*NHBM+1))
  17. REAL*8 IGAM(2*NHBM+1,NFFT)
  18. *
  19. * Boucle sur les DDL
  20. DO 11 I = 1,NDDL
  21. * Boucle sur les harmoniques
  22. DO 21 J = 1,2*NHBM+1
  23. XF(NDDL*(J-1)+I) = 0.
  24. * Boucle sur le temps
  25. DO 31 K = 1,NFFT
  26. XF(NDDL*(J-1)+I)=XF(NDDL*(J-1)+I)+IGAM(J,K)*XT(I,K)
  27. 31 CONTINUE
  28. 21 CONTINUE
  29. 11 CONTINUE
  30. END
  31.  
  32.  
  33.  
  34.  

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