swiener (3p)

Name

swiener - perform Wiener deconvolution of two signals

Synopsis

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

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

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

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




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

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

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

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




C INTERFACE
#include <sunperf.h>

void swiener(int n_points, float *acor, float *xcor, float *fltr, float
*erop, int *isw, int *ierr);

void swiener_64(long n_points, float *acor, float *xcor,  float  *fltr,
float *erop, long *isw, long *ierr);

Description

Oracle Solaris Studio Performance Library                          swiener(3P)



NAME
       swiener - perform Wiener deconvolution of two signals


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

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

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

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




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

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

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

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




   C INTERFACE
       #include <sunperf.h>

       void swiener(int n_points, float *acor, float *xcor, float *fltr, float
                 *erop, int *isw, int *ierr);

       void swiener_64(long n_points, float *acor, float *xcor,  float  *fltr,
                 float *erop, long *isw, long *ierr);



PURPOSE
       swiener 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                       swiener(3P)