Télécharger la plaquette Cast3M


fr en

Télécharger dft.eso

Retour à la liste

Numérotation des lignes : 

dft

  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