Télécharger la plaquette Cast3M


fr en

Télécharger ift.eso

Retour à la liste

Numérotation des lignes : 

ift

  1. C IFT       SOURCE    BP208322  20/09/18    21:17:02     10718          
  2.  
  3.         SUBROUTINE IFT(XF,NT,NDDL,NHBM,NFFT,GAM,XT) 
  4.  
  5. *=======================================================================
  6. * IFT: Transformee de Fourier Inverse
  7. *
  8. * Entrée: XF , coefficients de Fourier 
  9. *        GAM , opérateur IFT discret 
  10. * Sortie: XT , déplacements temporaux 
  11. *
  12. *=======================================================================
  13.  
  14.       IMPLICIT INTEGER(I-N)
  15.       IMPLICIT REAL*8(A-H,O-Z)
  16.  
  17.        REAL*8 XF(NT),XT(NDDL,NFFT)
  18.        REAL*8 GAM(NFFT,2*NHBM+1)
  19. *
  20. *      Boucle sur le temps
  21.        DO K = 1,NFFT 
  22. *          Boucle sur les DDL 
  23.            DO J=1,NDDL
  24. *             harmonique 0
  25.               XT(J,K) = XF(J)
  26. *             Boucle sur les harmoniques > 0 
  27.               DO I = 2,2*NHBM+1
  28.                  XT(J,K)=XT(J,K)+GAM(K,I)*XF(NDDL*(I-1)+J)
  29.               ENDDO
  30.            ENDDO                               
  31.        ENDDO
  32. *
  33. *  tentative ci-apres moins performante :( 
  34. c *      harmonique 0
  35. c        DO K=1,NFFT 
  36. c        DO J=1,NDDL
  37. c           XT(J,K) = XF(J)
  38. c        ENDDO       
  39. c        ENDDO       
  40. c *      Boucle sur les harmoniques > 0 
  41. c        DO I = 2,2*NHBM+1
  42. c *         Boucle sur le temps
  43. c           DO K = 1,NFFT 
  44. c *            Boucle sur les DDL 
  45. c              DO J=1,NDDL
  46. c                  XT(J,K)=XT(J,K)+GAM(K,I)*XF(NDDL*(I-1)+J)
  47. c              ENDDO                               
  48. c           ENDDO       
  49. c        ENDDO
  50.  
  51.        END
  52.  
  53.  
  54.  

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