@@ -352,28 +352,34 @@ extern "C"
352352 const BlasInt* lda, const dcomplex* b,
353353 const BlasInt* ldb);
354354
355- void FC_GLOBAL (sgesvd, SGESVD )(const char *jobu, const char *jobvt,
355+ void FC_GLOBAL (sgesvd, SGESVD )(const char * jobu, const char * jobvt,
356+ const BlasInt* m, const BlasInt* n, float * A,
357+ const BlasInt* lda, float * S, float * U,
358+ const BlasInt* ldu, float * Vt,
359+ const BlasInt* ldvt, float * work,
360+ const BlasInt* lwork, float * rwork,
361+ BlasInt* info);
362+ void FC_GLOBAL (dgesvd, DGESVD )(const char * jobu, const char * jobvt,
363+ const BlasInt* m, const BlasInt* n,
364+ double * A, const BlasInt* lda, double * S,
365+ double * U, const BlasInt* ldu, double * Vt,
366+ const BlasInt* ldvt, double * work,
367+ const BlasInt* lwork, double * rwork,
368+ BlasInt* info);
369+ void FC_GLOBAL (cgesvd, CGESVD )(const char * jobu, const char * jobvt,
356370 const BlasInt* m, const BlasInt* n,
357- float *A, const BlasInt* lda, float *S,
358- float *U, const BlasInt *ldu, float *Vt,
359- const BlasInt *ldvt, float *work,
360- const BlasInt *lwork, float *rwork, BlasInt *info );
361- void FC_GLOBAL (dgesvd, DGESVD )(const char *jobu, const char *jobvt,
371+ scomplex* A, const BlasInt* lda, float * S,
372+ scomplex* U, const BlasInt* ldu,
373+ scomplex* Vt, const BlasInt* ldvt,
374+ scomplex* work, const BlasInt* lwork,
375+ float * rwork, BlasInt* info);
376+ void FC_GLOBAL (zgesvd, ZGESVD )(const char * jobu, const char * jobvt,
362377 const BlasInt* m, const BlasInt* n,
363- double *A, const BlasInt* lda, double *S,
364- double *U, const BlasInt *ldu, double *Vt,
365- const BlasInt *ldvt, double *work,
366- const BlasInt *lwork, double *rwork, BlasInt *info );
367- void FC_GLOBAL (cgesvd, CGESVD )(const char *jobu, const char *jobvt, const BlasInt* m,
368- const BlasInt* n, scomplex *A, const BlasInt* lda,
369- float *S, scomplex *U, const BlasInt *ldu, scomplex *Vt,
370- const BlasInt *ldvt, scomplex *work, const BlasInt *lwork,
371- float *rwork, BlasInt *info );
372- void FC_GLOBAL (zgesvd, ZGESVD )(const char *jobu, const char *jobvt, const BlasInt* m,
373- const BlasInt* n, dcomplex *A, const BlasInt* lda, double *S,
374- dcomplex *U, const BlasInt *ldu, dcomplex *Vt,
375- const BlasInt *ldvt, dcomplex *work, const BlasInt *lwork,
376- double *rwork, BlasInt *info );
378+ dcomplex* A, const BlasInt* lda, double * S,
379+ dcomplex* U, const BlasInt* ldu,
380+ dcomplex* Vt, const BlasInt* ldvt,
381+ dcomplex* work, const BlasInt* lwork,
382+ double * rwork, BlasInt* info);
377383} // extern "C"
378384} // namespace mpi
379385} // namespace chase
0 commit comments