Esope source files

   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 :