Skip to content

Commit c4a1f76

Browse files
authored
Merge pull request #1007 from jip/fix
fix comments
2 parents a6f8371 + 173a3f4 commit c4a1f76

File tree

7 files changed

+95
-40
lines changed

7 files changed

+95
-40
lines changed

SRC/ctrsyl3.f

Lines changed: 19 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,23 @@
11
*> \brief \b CTRSYL3
22
*
3-
* Definition:
4-
* ===========
3+
* Definition:
4+
* ===========
55
*
6+
* SUBROUTINE CTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
7+
* C, LDC, SCALE, SWORK, LDSWORK, INFO )
68
*
7-
*> \par Purpose
9+
* .. Scalar Arguments ..
10+
* CHARACTER TRANA, TRANB
11+
* INTEGER INFO, ISGN, LDA, LDB, LDC, LDSWORK, M, N
12+
* REAL SCALE
13+
* ..
14+
* .. Array Arguments ..
15+
* COMPLEX A( LDA, * ), B( LDB, * ), C( LDC, * )
16+
* REAL SWORK( LDSWORK, * )
17+
* ..
18+
*
19+
*
20+
*> \par Purpose:
821
* =============
922
*>
1023
*> \verbatim
@@ -22,8 +35,8 @@
2235
*> This is the block version of the algorithm.
2336
*> \endverbatim
2437
*
25-
* Arguments
26-
* =========
38+
* Arguments:
39+
* ==========
2740
*
2841
*> \param[in] TRANA
2942
*> \verbatim
@@ -152,8 +165,7 @@
152165
*
153166
* =====================================================================
154167
SUBROUTINE CTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
155-
$ C,
156-
$ LDC, SCALE, SWORK, LDSWORK, INFO )
168+
$ C, LDC, SCALE, SWORK, LDSWORK, INFO )
157169
IMPLICIT NONE
158170
*
159171
* .. Scalar Arguments ..

SRC/dlarmm.f

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
*> \brief \b DLARMM
22
*
3-
* Definition:
4-
* ===========
3+
* Definition:
4+
* ===========
55
*
66
* DOUBLE PRECISION FUNCTION DLARMM( ANORM, BNORM, CNORM )
77
*

SRC/dtrsyl3.f

Lines changed: 26 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,27 @@
11
*> \brief \b DTRSYL3
22
*
3-
* Definition:
4-
* ===========
5-
*
6-
*
7-
*> \par Purpose
3+
* Definition:
4+
* ===========
5+
*
6+
* SUBROUTINE DTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
7+
* C,
8+
* LDC, SCALE, IWORK, LIWORK, SWORK, LDSWORK,
9+
* INFO )
10+
*
11+
* .. Scalar Arguments ..
12+
* CHARACTER TRANA, TRANB
13+
* INTEGER INFO, ISGN, LDA, LDB, LDC, M, N,
14+
* LIWORK, LDSWORK
15+
* DOUBLE PRECISION SCALE
16+
* ..
17+
* .. Array Arguments ..
18+
* INTEGER IWORK( * )
19+
* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * ),
20+
* SWORK( LDSWORK, * )
21+
* ..
22+
*
23+
*
24+
*> \par Purpose:
825
* =============
926
*>
1027
*> \verbatim
@@ -27,8 +44,8 @@
2744
*> This is the block version of the algorithm.
2845
*> \endverbatim
2946
*
30-
* Arguments
31-
* =========
47+
* Arguments:
48+
* ==========
3249
*
3350
*> \param[in] TRANA
3451
*> \verbatim
@@ -176,9 +193,8 @@
176193
*
177194
* =====================================================================
178195
SUBROUTINE DTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
179-
$ C,
180-
$ LDC, SCALE, IWORK, LIWORK, SWORK, LDSWORK,
181-
$ INFO )
196+
$ C, LDC, SCALE, IWORK, LIWORK, SWORK,
197+
$ LDSWORK, INFO )
182198
IMPLICIT NONE
183199
*
184200
* .. Scalar Arguments ..

SRC/slarmm.f

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
*> \brief \b SLARMM
22
*
3-
* Definition:
4-
* ===========
3+
* Definition:
4+
* ===========
55
*
66
* REAL FUNCTION SLARMM( ANORM, BNORM, CNORM )
77
*

SRC/strsyl3.f

Lines changed: 25 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,26 @@
11
*> \brief \b STRSYL3
22
*
3-
* Definition:
4-
* ===========
5-
*
6-
*
7-
*> \par Purpose
3+
* Definition:
4+
* ===========
5+
*
6+
* SUBROUTINE STRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
7+
* C, LDC, SCALE, IWORK, LIWORK, SWORK,
8+
* LDSWORK, INFO )
9+
*
10+
* .. Scalar Arguments ..
11+
* CHARACTER TRANA, TRANB
12+
* INTEGER INFO, ISGN, LDA, LDB, LDC, M, N,
13+
* LIWORK, LDSWORK
14+
* REAL SCALE
15+
* ..
16+
* .. Array Arguments ..
17+
* INTEGER IWORK( * )
18+
* REAL A( LDA, * ), B( LDB, * ), C( LDC, * ),
19+
* SWORK( LDSWORK, * )
20+
* ..
21+
*
22+
*
23+
*> \par Purpose:
824
* =============
925
*>
1026
*> \verbatim
@@ -27,8 +43,8 @@
2743
*> This is the block version of the algorithm.
2844
*> \endverbatim
2945
*
30-
* Arguments
31-
* =========
46+
* Arguments:
47+
* ==========
3248
*
3349
*> \param[in] TRANA
3450
*> \verbatim
@@ -176,9 +192,8 @@
176192
*
177193
* =====================================================================
178194
SUBROUTINE STRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
179-
$ C,
180-
$ LDC, SCALE, IWORK, LIWORK, SWORK, LDSWORK,
181-
$ INFO )
195+
$ C, LDC, SCALE, IWORK, LIWORK, SWORK,
196+
$ LDSWORK, INFO )
182197
IMPLICIT NONE
183198
*
184199
* .. Scalar Arguments ..

SRC/zgesvdq.f

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -51,8 +51,8 @@
5151
*> left and the right singular vectors of A, respectively.
5252
*> \endverbatim
5353
*
54-
* Arguments
55-
* =========
54+
* Arguments:
55+
* ==========
5656
*
5757
*> \param[in] JOBA
5858
*> \verbatim

SRC/ztrsyl3.f

Lines changed: 19 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,23 @@
11
*> \brief \b ZTRSYL3
22
*
3-
* Definition:
4-
* ===========
3+
* Definition:
4+
* ===========
55
*
6+
* SUBROUTINE ZTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
7+
* C, LDC, SCALE, SWORK, LDSWORK, INFO )
68
*
7-
*> \par Purpose
9+
* .. Scalar Arguments ..
10+
* CHARACTER TRANA, TRANB
11+
* INTEGER INFO, ISGN, LDA, LDB, LDC, LDSWORK, M, N
12+
* DOUBLE PRECISION SCALE
13+
* ..
14+
* .. Array Arguments ..
15+
* COMPLEX*16 A( LDA, * ), B( LDB, * ), C( LDC, * )
16+
* DOUBLE PRECISION SWORK( LDSWORK, * )
17+
* ..
18+
*
19+
*
20+
*> \par Purpose:
821
* =============
922
*>
1023
*> \verbatim
@@ -22,8 +35,8 @@
2235
*> This is the block version of the algorithm.
2336
*> \endverbatim
2437
*
25-
* Arguments
26-
* =========
38+
* Arguments:
39+
* ==========
2740
*
2841
*> \param[in] TRANA
2942
*> \verbatim
@@ -153,8 +166,7 @@
153166
*
154167
* =====================================================================
155168
SUBROUTINE ZTRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
156-
$ C,
157-
$ LDC, SCALE, SWORK, LDSWORK, INFO )
169+
$ C, LDC, SCALE, SWORK, LDSWORK, INFO )
158170
IMPLICIT NONE
159171
*
160172
* .. Scalar Arguments ..

0 commit comments

Comments
 (0)