Télécharger cnvolu.eso

Retour à la liste

Numérotation des lignes :

  1. C CNVOLU SOURCE CHAT 05/01/12 22:12:05 5004
  2. SUBROUTINE CNVOLU(SIGNA,RESP,SIGRES,N,M)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. C SATELLITE DE CALCUL DE CVOL
  7. C
  8. C EFFECTUE LA CONVOLUTION SUR N POINTS DE
  9. C SIGNA (MM+N+MP) PAR RESP (MP+MM) DANS
  10. C SIGRES(N).
  11. C
  12. C LE "ZERO PADDING" OU LA CONDITION DE
  13. C SYMETRIE SONT IMPLEMENTES A L'AMONT.
  14. C
  15. C WARNING: L'ESPACEMENT DES POINTS EST
  16. C
  17. DIMENSION SIGNA(1),RESP(M),SIGRES(N)
  18. C
  19. DO 2 IE1=1,N
  20. SIGRES(IE1)=0.D0
  21. DO 1 IE2=1,M
  22. SIGRES(IE1)=SIGRES(IE1)+SIGNA(IE2+IE1-1)*RESP(IE2)
  23. 1 CONTINUE
  24. 2 CONTINUE
  25. RETURN
  26. END
  27.  
  28.  

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