lapack_int* lda, double* b, lapack_int* ldb,
double* alpha, double* beta, double* u,
lapack_int* ldu, double* v, lapack_int* ldv, double* q,
- lapack_int* ldq, float* work, lapack_int* iwork, lapack_int* info );
+ lapack_int* ldq, double* work, lapack_int* iwork, lapack_int* info );
#define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD)
lapack_int LAPACK_cggsvd( char const* jobu, char const* jobv, char const* jobq,
float* alpha, float* beta, lapack_complex_float* u,
lapack_int* ldu, lapack_complex_float* v,
lapack_int* ldv, lapack_complex_float* q,
- lapack_int* ldq, float* work, lapack_int* rwork, lapack_int* iwork, lapack_int *info );
+ lapack_int* ldq, lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* info );
#define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD)
lapack_int LAPACK_zggsvd( char const* jobu, char const* jobv, char const* jobq,
lapack_complex_double* u, lapack_int* ldu,
lapack_complex_double* v, lapack_int* ldv,
lapack_complex_double* q, lapack_int* ldq,
- float* work, lapack_int* rwork, lapack_int* iwork, lapack_int* info );
+ lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* info );
#define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3)
void LAPACK_cggsvd3(
lapack_complex_float* u, lapack_int* ldu,
lapack_complex_float* v, lapack_int* ldv,
lapack_complex_float* q, lapack_int* ldq,
- lapack_int* iwork, lapack_int* rwork,
+ lapack_int* iwork, float* rwork,
lapack_complex_float* tau, lapack_complex_float* work,
lapack_int* info);
lapack_int* l, lapack_complex_double* u,
lapack_int* ldu, lapack_complex_double* v,
lapack_int* ldv, lapack_complex_double* q,
- lapack_int* ldq, lapack_int* iwork, lapack_int* rwork,
+ lapack_int* ldq, lapack_int* iwork, double* rwork,
lapack_complex_double* tau, lapack_complex_double* work,
lapack_int* info);