dwiener (3p)

Name

dwiener - perform Wiener deconvolution of two signals

Synopsis

SUBROUTINE DWIENER(N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR)

INTEGER N_POINTS, ISW, IERR
DOUBLE PRECISION ACOR(*), XCOR(*), FLTR(*), EROP(*)

SUBROUTINE DWIENER_64(N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR)

INTEGER*8 N_POINTS, ISW, IERR
DOUBLE PRECISION ACOR(*), XCOR(*), FLTR(*), EROP(*)




F95 INTERFACE
SUBROUTINE WIENER(N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR)

INTEGER :: N_POINTS, ISW, IERR
REAL(8), DIMENSION(:) :: ACOR, XCOR, FLTR, EROP

SUBROUTINE WIENER_64(N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR)

INTEGER(8) :: N_POINTS, ISW, IERR
REAL(8), DIMENSION(:) :: ACOR, XCOR, FLTR, EROP




C INTERFACE
#include <sunperf.h>

void  dwiener(int  n_points,  double *acor, double *xcor, double *fltr,
double *erop, int *isw, int *ierr);

void dwiener_64(long  n_points,  double  *acor,  double  *xcor,  double
*fltr, double *erop, long *isw, long *ierr);

Description

Oracle Solaris Studio Performance Library                          dwiener(3P)



NAME
       dwiener - perform Wiener deconvolution of two signals


SYNOPSIS
       SUBROUTINE DWIENER(N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR)

       INTEGER N_POINTS, ISW, IERR
       DOUBLE PRECISION ACOR(*), XCOR(*), FLTR(*), EROP(*)

       SUBROUTINE DWIENER_64(N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR)

       INTEGER*8 N_POINTS, ISW, IERR
       DOUBLE PRECISION ACOR(*), XCOR(*), FLTR(*), EROP(*)




   F95 INTERFACE
       SUBROUTINE WIENER(N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR)

       INTEGER :: N_POINTS, ISW, IERR
       REAL(8), DIMENSION(:) :: ACOR, XCOR, FLTR, EROP

       SUBROUTINE WIENER_64(N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR)

       INTEGER(8) :: N_POINTS, ISW, IERR
       REAL(8), DIMENSION(:) :: ACOR, XCOR, FLTR, EROP




   C INTERFACE
       #include <sunperf.h>

       void  dwiener(int  n_points,  double *acor, double *xcor, double *fltr,
                 double *erop, int *isw, int *ierr);

       void dwiener_64(long  n_points,  double  *acor,  double  *xcor,  double
                 *fltr, double *erop, long *isw, long *ierr);



PURPOSE
       dwiener performs Wiener deconvolution of two signals.


ARGUMENTS
       N_POINTS (input)
                 On  entry,  the  number  of points in the input correlations.
                 Unchanged on exit.


       ACOR (input)
                 On entry, autocorrelation coefficients.  Unchanged on exit.


       XCOR (input)
                 On entry, cross-correlation coefficients.  Unchanged on exit.


       FLTR (output)
                 On exit, filter coefficients.


       EROP (output)
                 On exit, the prediction error.


       ISW (input)
                 On  entry,  if ISW .EQ. 0 then perform spiking deconvolution,
                 otherwise perform general deconvolution.  Unchanged on  exit.


       IERR (output)
                 On  exit,  the  deconvolution was successful iff IERR .EQ. 0,
                 otherwise there was an error.




                                  7 Nov 2015                       dwiener(3P)