SUBROUTINE ZCNVCOR2( CNVCOR, METHOD, TRANSX, SCRATCHX, TRANSY, * SCRATCHY, MX, NX, X, LDX, MY, NY, MPRE, NPRE, Y, LDY, MZ, NZ, Z, * LDZ, WORKIN, LWORK) CHARACTER * 1 CNVCOR, METHOD, TRANSX, SCRATCHX, TRANSY, SCRATCHY DOUBLE COMPLEX X(LDX,*), Y(LDY,*), Z(LDZ,*), WORKIN(*) INTEGER MX, NX, LDX, MY, NY, MPRE, NPRE, LDY, MZ, NZ, LDZ, LWORK SUBROUTINE ZCNVCOR2_64( CNVCOR, METHOD, TRANSX, SCRATCHX, TRANSY, * SCRATCHY, MX, NX, X, LDX, MY, NY, MPRE, NPRE, Y, LDY, MZ, NZ, Z, * LDZ, WORKIN, LWORK) CHARACTER * 1 CNVCOR, METHOD, TRANSX, SCRATCHX, TRANSY, SCRATCHY DOUBLE COMPLEX X(LDX,*), Y(LDY,*), Z(LDZ,*), WORKIN(*) INTEGER*8 MX, NX, LDX, MY, NY, MPRE, NPRE, LDY, MZ, NZ, LDZ, LWORK
SUBROUTINE CNVCOR2( CNVCOR, METHOD, TRANSX, SCRATCHX, TRANSY, * SCRATCHY, [MX], [NX], X, [LDX], [MY], [NY], MPRE, NPRE, Y, [LDY], * [MZ], [NZ], Z, [LDZ], WORKIN, [LWORK]) CHARACTER(LEN=1) :: CNVCOR, METHOD, TRANSX, SCRATCHX, TRANSY, SCRATCHY COMPLEX(8), DIMENSION(:) :: WORKIN COMPLEX(8), DIMENSION(:,:) :: X, Y, Z INTEGER :: MX, NX, LDX, MY, NY, MPRE, NPRE, LDY, MZ, NZ, LDZ, LWORK SUBROUTINE CNVCOR2_64( CNVCOR, METHOD, TRANSX, SCRATCHX, TRANSY, * SCRATCHY, [MX], [NX], X, [LDX], [MY], [NY], MPRE, NPRE, Y, [LDY], * [MZ], [NZ], Z, [LDZ], WORKIN, [LWORK]) CHARACTER(LEN=1) :: CNVCOR, METHOD, TRANSX, SCRATCHX, TRANSY, SCRATCHY COMPLEX(8), DIMENSION(:) :: WORKIN COMPLEX(8), DIMENSION(:,:) :: X, Y, Z INTEGER(8) :: MX, NX, LDX, MY, NY, MPRE, NPRE, LDY, MZ, NZ, LDZ, LWORK
void zcnvcor2(char cnvcor, char method, char transx, char scratchx, char transy, char scratchy, int mx, int nx, doublecomplex *x, int ldx, int my, int ny, int mpre, int npre, doublecomplex *y, int ldy, int mz, int nz, doublecomplex *z, int ldz, doublecomplex *workin, int lwork);
void zcnvcor2_64(char cnvcor, char method, char transx, char scratchx, char transy, char scratchy, long mx, long nx, doublecomplex *x, long ldx, long my, long ny, long mpre, long npre, doublecomplex *y, long ldy, long mz, long nz, doublecomplex *z, long ldz, doublecomplex *workin, long lwork);
dimension(LDX,NX)
On entry, the filter matrix. Unchanged on exit if SCRATCHX is 'N' or 'n', undefined on exit if SCRATCHX is 'S' or 's'.
dimension(LDY,*)
Input matrix. Unchanged on exit if SCRATCHY is 'N' or 'n', undefined on exit if SCRATCHY is 'S' or 's'.
dimension(LDZ,*)
Result matrix.
On entry for the first call to ZCNVCOR2, WORKIN(1) must contain CMPLX(0.0,0.0). After the first call, WORKIN(1) must be set to CMPLX(0.0,0.0) iff WORKIN has been altered since the last call to this subroutine or if the sizes of the arrays have changed.