Index: lapack/iface/lapacke/source/lapacke_cggsvd3_work.c =================================================================== --- lapack/iface/lapacke/source/lapacke_cggsvd3_work.c (revision 91031) +++ lapack/iface/lapacke/source/lapacke_cggsvd3_work.c (revision 91032) @@ -93,9 +93,9 @@ } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_cggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a_t, - &lda_t, b_t, &ldb_t, alpha, beta, u_t, &ldu_t, - v_t, &ldv_t, q_t, &ldq_t, work, &lwork, rwork, + LAPACK_cggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a, + &lda_t, b, &ldb_t, alpha, beta, u, &ldu_t, + v, &ldv_t, q, &ldq_t, work, &lwork, rwork, iwork, &info ); return (info < 0) ? (info - 1) : info; } Index: lapack/iface/lapacke/source/lapacke_dggsvp3_work.c =================================================================== --- lapack/iface/lapacke/source/lapacke_dggsvp3_work.c (revision 91031) +++ lapack/iface/lapacke/source/lapacke_dggsvp3_work.c (revision 91032) @@ -90,9 +90,9 @@ return info; } if( lwork == -1 ) { - LAPACK_dggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a_t, &lda_t, b_t, - &ldb_t, &tola, &tolb, k, l, u_t, &ldu_t, v_t, - &ldv_t, q_t, &ldq_t, iwork, tau, work, &lwork, + LAPACK_dggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda_t, b, + &ldb_t, &tola, &tolb, k, l, u, &ldu_t, v, + &ldv_t, q, &ldq_t, iwork, tau, work, &lwork, &info ); return (info < 0) ? (info - 1) : info; } Index: lapack/iface/lapacke/source/lapacke_sggsvp3_work.c =================================================================== --- lapack/iface/lapacke/source/lapacke_sggsvp3_work.c (revision 91031) +++ lapack/iface/lapacke/source/lapacke_sggsvp3_work.c (revision 91032) @@ -91,9 +91,9 @@ } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_sggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a_t, &lda_t, b_t, - &ldb_t, &tola, &tolb, k, l, u_t, &ldu_t, - v_t, &ldv_t, q_t, &ldq_t, iwork, tau, work, &lwork, + LAPACK_sggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda_t, b, + &ldb_t, &tola, &tolb, k, l, u, &ldu_t, + v, &ldv_t, q, &ldq_t, iwork, tau, work, &lwork, &info ); return (info < 0) ? (info - 1) : info; } Index: lapack/iface/lapacke/source/lapacke_zggsvp3_work.c =================================================================== --- lapack/iface/lapacke/source/lapacke_zggsvp3_work.c (revision 91031) +++ lapack/iface/lapacke/source/lapacke_zggsvp3_work.c (revision 91032) @@ -94,9 +94,9 @@ } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_zggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a_t, &lda_t, b_t, - &ldb_t, &tola, &tolb, k, l, u_t, &ldu_t, v_t, - &ldv_t, q_t, &ldq_t, iwork, rwork, tau, work, + LAPACK_zggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda_t, b, + &ldb_t, &tola, &tolb, k, l, u, &ldu_t, v, + &ldv_t, q, &ldq_t, iwork, rwork, tau, work, &lwork, &info ); return (info < 0) ? (info - 1) : info; } Index: lapack/iface/lapacke/source/lapacke_dggsvd3_work.c =================================================================== --- lapack/iface/lapacke/source/lapacke_dggsvd3_work.c (revision 91031) +++ lapack/iface/lapacke/source/lapacke_dggsvd3_work.c (revision 91032) @@ -91,9 +91,9 @@ } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_dggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a_t, &lda_t, - b_t, &ldb_t, alpha, beta, u_t, &ldu_t, v_t, &ldv_t, - q_t, &ldq_t, work, &lwork, iwork, &info ); + LAPACK_dggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a, &lda_t, + b, &ldb_t, alpha, beta, u, &ldu_t, v, &ldv_t, + q, &ldq_t, work, &lwork, iwork, &info ); return (info < 0) ? (info - 1) : info; } /* Allocate memory for temporary array(s) */ Index: lapack/iface/lapacke/source/lapacke_sggsvd3_work.c =================================================================== --- lapack/iface/lapacke/source/lapacke_sggsvd3_work.c (revision 91031) +++ lapack/iface/lapacke/source/lapacke_sggsvd3_work.c (revision 91032) @@ -91,9 +91,9 @@ } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_sggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a_t, &lda_t, - b_t, &ldb_t, alpha, beta, u_t, &ldu_t, v_t, &ldv_t, - q_t, &ldq_t, work, &lwork, iwork, &info ); + LAPACK_sggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a, &lda_t, + b, &ldb_t, alpha, beta, u, &ldu_t, v, &ldv_t, + q, &ldq_t, work, &lwork, iwork, &info ); return (info < 0) ? (info - 1) : info; } Index: lapack/iface/lapacke/source/lapacke_cggsvp3_work.c =================================================================== --- lapack/iface/lapacke/source/lapacke_cggsvp3_work.c (revision 91031) +++ lapack/iface/lapacke/source/lapacke_cggsvp3_work.c (revision 91032) @@ -94,9 +94,9 @@ } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_cggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a_t, &lda_t, b_t, - &ldb_t, &tola, &tolb, k, l, u_t, &ldu_t, v_t, &ldv_t, - q_t, &ldq_t, iwork, rwork, tau, work, &lwork, &info ); + LAPACK_cggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda_t, b, + &ldb_t, &tola, &tolb, k, l, u, &ldu_t, v, &ldv_t, + q, &ldq_t, iwork, rwork, tau, work, &lwork, &info ); return (info < 0) ? (info - 1) : info; } /* Allocate memory for temporary array(s) */ Index: lapack/iface/lapacke/source/lapacke_zggsvd3_work.c =================================================================== --- lapack/iface/lapacke/source/lapacke_zggsvd3_work.c (revision 91031) +++ lapack/iface/lapacke/source/lapacke_zggsvd3_work.c (revision 91032) @@ -93,9 +93,9 @@ } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_zggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a_t, &lda_t, - b_t, &ldb_t, alpha, beta, u_t, &ldu_t, v_t, &ldv_t, - q_t, &ldq_t, work, &lwork, rwork, iwork, &info ); + LAPACK_zggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a, &lda_t, + b, &ldb_t, alpha, beta, u, &ldu_t, v, &ldv_t, + q, &ldq_t, work, &lwork, rwork, iwork, &info ); return (info < 0) ? (info - 1) : info; } /* Allocate memory for temporary array(s) */