SUBROUTINE ZCNVCOR( CNVCOR, FOUR, NX, X, IFX, INCX, NY, NPRE, M, Y, * IFY, INC1Y, INC2Y, NZ, K, Z, IFZ, INC1Z, INC2Z, WORK, LWORK) CHARACTER * 1 CNVCOR, FOUR DOUBLE COMPLEX X(*), Y(*), Z(*), WORK(*) INTEGER NX, IFX, INCX, NY, NPRE, M, IFY, INC1Y, INC2Y, NZ, K, IFZ, INC1Z, INC2Z, LWORK SUBROUTINE ZCNVCOR_64( CNVCOR, FOUR, NX, X, IFX, INCX, NY, NPRE, M, * Y, IFY, INC1Y, INC2Y, NZ, K, Z, IFZ, INC1Z, INC2Z, WORK, LWORK) CHARACTER * 1 CNVCOR, FOUR DOUBLE COMPLEX X(*), Y(*), Z(*), WORK(*) INTEGER*8 NX, IFX, INCX, NY, NPRE, M, IFY, INC1Y, INC2Y, NZ, K, IFZ, INC1Z, INC2Z, LWORK
SUBROUTINE CNVCOR( CNVCOR, FOUR, [NX], X, IFX, [INCX], NY, NPRE, M, * Y, IFY, INC1Y, INC2Y, NZ, K, Z, IFZ, INC1Z, INC2Z, WORK, [LWORK]) CHARACTER(LEN=1) :: CNVCOR, FOUR COMPLEX(8), DIMENSION(:) :: X, Y, Z, WORK INTEGER :: NX, IFX, INCX, NY, NPRE, M, IFY, INC1Y, INC2Y, NZ, K, IFZ, INC1Z, INC2Z, LWORK SUBROUTINE CNVCOR_64( CNVCOR, FOUR, [NX], X, IFX, [INCX], NY, NPRE, * M, Y, IFY, INC1Y, INC2Y, NZ, K, Z, IFZ, INC1Z, INC2Z, WORK, * [LWORK]) CHARACTER(LEN=1) :: CNVCOR, FOUR COMPLEX(8), DIMENSION(:) :: X, Y, Z, WORK INTEGER(8) :: NX, IFX, INCX, NY, NPRE, M, IFY, INC1Y, INC2Y, NZ, K, IFZ, INC1Z, INC2Z, LWORK
void zcnvcor(char cnvcor, char four, int nx, doublecomplex *x, int ifx, int incx, int ny, int npre, int m, doublecomplex *y, int ify, int inc1y, int inc2y, int nz, int k, doublecomplex *z, int ifz, int inc1z, int inc2z, doublecomplex *work, int lwork);
void zcnvcor_64(char cnvcor, char four, long nx, doublecomplex *x, long ifx, long incx, long ny, long npre, long m, doublecomplex *y, long ify, long inc1y, long inc2y, long nz, long k, doublecomplex *z, long ifz, long inc1z, long inc2z, doublecomplex *work, long lwork);
dimension(*)
Filter vector.
dimension(*)
Input vectors.
dimension(*)
Result vectors.
Scratch space. Before the first call to ZCNVCOR with particular values of the integer arguments the first element of WORK must be set to zero. If WORK is written between calls to ZCNVCOR or if ZCNVCOR is called with different values of the integer arguments then the first element of WORK must again be set to zero before each call. If WORK has not been written and the same values of the integer arguments are used then the first element of WORK to zero. This can avoid certain initializations that store their results into WORK, and avoiding the initialization can make ZCNVCOR run faster.