Skip to content

fix comments #1007

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 1 commit into from
Apr 10, 2024
Merged

fix comments #1007

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
fix comments 
1) add definition to xTRSYL3
2) minor formatting unifications
  • Loading branch information
@jip
jip committed Apr 10, 2024
commit 173a3f475c9de2c5b9a8fcd7fed1895e5862db98
26 changes: 19 additions & 7 deletions SRC/ctrsyl3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,23 @@
*> \brief \b CTRSYL3
*
* Definition:
* ===========
* Definition:
* ===========
*
* SUBROUTINE CTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
* C, LDC, SCALE, SWORK, LDSWORK, INFO )
*
*> \par Purpose
* .. Scalar Arguments ..
* CHARACTER TRANA, TRANB
* INTEGER INFO, ISGN, LDA, LDB, LDC, LDSWORK, M, N
* REAL SCALE
* ..
* .. Array Arguments ..
* COMPLEX A( LDA, * ), B( LDB, * ), C( LDC, * )
* REAL SWORK( LDSWORK, * )
* ..
*
*
*> \par Purpose:
* =============
*>
*> \verbatim
Expand All @@ -22,8 +35,8 @@
*> This is the block version of the algorithm.
*> \endverbatim
*
* Arguments
* =========
* Arguments:
* ==========
*
*> \param[in] TRANA
*> \verbatim
Expand Down Expand Up @@ -152,8 +165,7 @@
*
* =====================================================================
SUBROUTINE CTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
$ C,
$ LDC, SCALE, SWORK, LDSWORK, INFO )
$ C, LDC, SCALE, SWORK, LDSWORK, INFO )
IMPLICIT NONE
*
* .. Scalar Arguments ..
Expand Down
4 changes: 2 additions & 2 deletions SRC/dlarmm.f
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
*> \brief \b DLARMM
*
* Definition:
* ===========
* Definition:
* ===========
*
* DOUBLE PRECISION FUNCTION DLARMM( ANORM, BNORM, CNORM )
*
Expand Down
36 changes: 26 additions & 10 deletions SRC/dtrsyl3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,27 @@
*> \brief \b DTRSYL3
*
* Definition:
* ===========
*
*
*> \par Purpose
* Definition:
* ===========
*
* SUBROUTINE DTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
* C,
* LDC, SCALE, IWORK, LIWORK, SWORK, LDSWORK,
* INFO )
*
* .. Scalar Arguments ..
* CHARACTER TRANA, TRANB
* INTEGER INFO, ISGN, LDA, LDB, LDC, M, N,
* LIWORK, LDSWORK
* DOUBLE PRECISION SCALE
* ..
* .. Array Arguments ..
* INTEGER IWORK( * )
* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * ),
* SWORK( LDSWORK, * )
* ..
*
*
*> \par Purpose:
* =============
*>
*> \verbatim
Expand All @@ -27,8 +44,8 @@
*> This is the block version of the algorithm.
*> \endverbatim
*
* Arguments
* =========
* Arguments:
* ==========
*
*> \param[in] TRANA
*> \verbatim
Expand Down Expand Up @@ -176,9 +193,8 @@
*
* =====================================================================
SUBROUTINE DTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
$ C,
$ LDC, SCALE, IWORK, LIWORK, SWORK, LDSWORK,
$ INFO )
$ C, LDC, SCALE, IWORK, LIWORK, SWORK,
$ LDSWORK, INFO )
IMPLICIT NONE
*
* .. Scalar Arguments ..
Expand Down
4 changes: 2 additions & 2 deletions SRC/slarmm.f
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
*> \brief \b SLARMM
*
* Definition:
* ===========
* Definition:
* ===========
*
* REAL FUNCTION SLARMM( ANORM, BNORM, CNORM )
*
Expand Down
35 changes: 25 additions & 10 deletions SRC/strsyl3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,26 @@
*> \brief \b STRSYL3
*
* Definition:
* ===========
*
*
*> \par Purpose
* Definition:
* ===========
*
* SUBROUTINE STRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
* C, LDC, SCALE, IWORK, LIWORK, SWORK,
* LDSWORK, INFO )
*
* .. Scalar Arguments ..
* CHARACTER TRANA, TRANB
* INTEGER INFO, ISGN, LDA, LDB, LDC, M, N,
* LIWORK, LDSWORK
* REAL SCALE
* ..
* .. Array Arguments ..
* INTEGER IWORK( * )
* REAL A( LDA, * ), B( LDB, * ), C( LDC, * ),
* SWORK( LDSWORK, * )
* ..
*
*
*> \par Purpose:
* =============
*>
*> \verbatim
Expand All @@ -27,8 +43,8 @@
*> This is the block version of the algorithm.
*> \endverbatim
*
* Arguments
* =========
* Arguments:
* ==========
*
*> \param[in] TRANA
*> \verbatim
Expand Down Expand Up @@ -176,9 +192,8 @@
*
* =====================================================================
SUBROUTINE STRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
$ C,
$ LDC, SCALE, IWORK, LIWORK, SWORK, LDSWORK,
$ INFO )
$ C, LDC, SCALE, IWORK, LIWORK, SWORK,
$ LDSWORK, INFO )
IMPLICIT NONE
*
* .. Scalar Arguments ..
Expand Down
4 changes: 2 additions & 2 deletions SRC/zgesvdq.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,8 +51,8 @@
*> left and the right singular vectors of A, respectively.
*> \endverbatim
*
* Arguments
* =========
* Arguments:
* ==========
*
*> \param[in] JOBA
*> \verbatim
Expand Down
26 changes: 19 additions & 7 deletions SRC/ztrsyl3.f
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,23 @@
*> \brief \b ZTRSYL3
*
* Definition:
* ===========
* Definition:
* ===========
*
* SUBROUTINE ZTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
* C, LDC, SCALE, SWORK, LDSWORK, INFO )
*
*> \par Purpose
* .. Scalar Arguments ..
* CHARACTER TRANA, TRANB
* INTEGER INFO, ISGN, LDA, LDB, LDC, LDSWORK, M, N
* DOUBLE PRECISION SCALE
* ..
* .. Array Arguments ..
* COMPLEX*16 A( LDA, * ), B( LDB, * ), C( LDC, * )
* DOUBLE PRECISION SWORK( LDSWORK, * )
* ..
*
*
*> \par Purpose:
* =============
*>
*> \verbatim
Expand All @@ -22,8 +35,8 @@
*> This is the block version of the algorithm.
*> \endverbatim
*
* Arguments
* =========
* Arguments:
* ==========
*
*> \param[in] TRANA
*> \verbatim
Expand Down Expand Up @@ -153,8 +166,7 @@
*
* =====================================================================
SUBROUTINE ZTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
$ C,
$ LDC, SCALE, SWORK, LDSWORK, INFO )
$ C, LDC, SCALE, SWORK, LDSWORK, INFO )
IMPLICIT NONE
*
* .. Scalar Arguments ..
Expand Down