Skip to content

Implemented a LAPACKE_?langb interface #725

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 5 commits into from
Oct 6, 2022
Merged

Implemented a LAPACKE_?langb interface #725

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
1de378b
Added LAPACKE_?langb interfaces.
STCE2023 Oct 5, 2022
12ce4ff
Changed auther of LAPACKE_?langb files.
STCE2023 Oct 5, 2022
6c6c5a5
Changed copyright year of LAPACKE_?langb files.
STCE2023 Oct 5, 2022
945bb8d
Removed unnecessary assign to info.
STCE2023 Oct 5, 2022
15e62c3
Use the same trick as in ?lange to remove the matrix transposition.
STCE2023 Oct 6, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Removed unnecessary assign to info.
  • Loading branch information
@STCE2023
STCE2023 committed Oct 5, 2022
commit 945bb8d1700b319ae5dd0791d49de6c6e7140b52
1 change: 0 additions & 1 deletion LAPACKE/src/lapacke_clangb_work.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -62,7 +62,6 @@ float LAPACKE_clangb_work( int matrix_layout, char norm, lapack_int n,
LAPACKE_cgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t );
/* Call LAPACK function and adjust info */
res = LAPACK_clangb( &norm, &n, &kl, &ku, ab_t, &ldab_t, work );
info = 0; /* LAPACK call is ok! */
/* Release memory and exit */
LAPACKE_free( ab_t );
exit_level_0:
Expand Down
1 change: 0 additions & 1 deletion LAPACKE/src/lapacke_dlangb_work.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -60,7 +60,6 @@ double LAPACKE_dlangb_work( int matrix_layout, char norm, lapack_int n,
LAPACKE_dgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t );
/* Call LAPACK function and adjust info */
res = LAPACK_dlangb( &norm, &n, &kl, &ku, ab_t, &ldab_t, work );
info = 0; /* LAPACK call is ok! */
/* Release memory and exit */
LAPACKE_free( ab_t );
exit_level_0:
Expand Down
1 change: 0 additions & 1 deletion LAPACKE/src/lapacke_slangb_work.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -60,7 +60,6 @@ float LAPACKE_slangb_work( int matrix_layout, char norm, lapack_int n,
LAPACKE_sgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t );
/* Call LAPACK function and adjust info */
res = LAPACK_slangb( &norm, &n, &kl, &ku, ab_t, &ldab_t, work );
info = 0; /* LAPACK call is ok! */
/* Release memory and exit */
LAPACKE_free( ab_t );
exit_level_0:
Expand Down
1 change: 0 additions & 1 deletion LAPACKE/src/lapacke_zlangb_work.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -62,7 +62,6 @@ double LAPACKE_zlangb_work( int matrix_layout, char norm, lapack_int n,
LAPACKE_zgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t );
/* Call LAPACK function and adjust info */
res = LAPACK_zlangb( &norm, &n, &kl, &ku, ab_t, &ldab_t, work );
info = 0; /* LAPACK call is ok! */
/* Release memory and exit */
LAPACKE_free( ab_t );
exit_level_0:
Expand Down