Skip to content

Commit

Permalink
make API consistent with use
Browse files Browse the repository at this point in the history
  • Loading branch information
uecker committed Jul 15, 2024
1 parent e5ce197 commit 8abfc2b
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 4 deletions.
4 changes: 2 additions & 2 deletions src/num/lapack.c
Original file line number Diff line number Diff line change
Expand Up @@ -104,7 +104,7 @@ void lapack_trimat_inverse_lower(long N, complex float A[N][N])
}

// Solve A x = B for x
void lapack_trimat_solve(long N, long M, complex float A[N][N], complex float B[N][M], bool upper)
void lapack_trimat_solve(long N, long M, complex float A[N][N], complex float B[M][N], bool upper)
{
// for non-unit ('N') triangular matrix A
// on output: B overwritten by solution matrix X
Expand All @@ -129,7 +129,7 @@ void lapack_schur_double(long N, complex double W[N], complex double VS[N][N], c

// Solves the complex Sylvester matrix equation
// op(A)*X + X*op(B) = scale*C
void lapack_sylvester(long N, long M, float* scale, complex float A[N][N], complex float B[M][M], complex float C[N][M])
void lapack_sylvester(long N, long M, float* scale, complex float A[N][N], complex float B[M][M], complex float C[M][N])
{
// A -> triangluar
// On output: C overwritten by X
Expand Down
4 changes: 2 additions & 2 deletions src/num/lapack.h
Original file line number Diff line number Diff line change
Expand Up @@ -28,10 +28,10 @@ extern void lapack_cholesky_lower(long N, complex float A[N][N]);

extern void lapack_trimat_inverse(long N, complex float A[N][N]);
extern void lapack_trimat_inverse_lower(long N, complex float A[N][N]);
extern void lapack_trimat_solve(long N, long M, complex float A[N][N], complex float B[N][M], bool upper);
extern void lapack_trimat_solve(long N, long M, complex float A[N][N], complex float B[M][N], bool upper);

extern void lapack_schur(long N, complex float W[N], complex float VS[N][N], complex float A[N][N]);
extern void lapack_schur_double(long N, complex double W[N], complex double VS[N][N], complex double A[N][N]);

extern void lapack_sylvester(long N, long M, float* scale, complex float A[N][N], complex float B[M][M], complex float C[N][M]);
extern void lapack_sylvester(long N, long M, float* scale, complex float A[N][N], complex float B[M][M], complex float C[M][N]);

0 comments on commit 8abfc2b

Please sign in to comment.