Merge pull request #1007 from jip/fix

fix comments

Author: langou

SRC/ctrsyl3.f

@@ -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
@@ -22,8 +35,8 @@
 *>  This is the block version of the algorithm.
 *> \endverbatim
 *
-*  Arguments
-*  =========
+*  Arguments:
+*  ==========
 *
 *> \param[in] TRANA
 *> \verbatim
@@ -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 ..

SRC/dlarmm.f

@@ -1,7 +1,7 @@
 *> \brief \b DLARMM
 *
-* Definition:
-* ===========
+*  Definition:
+*  ===========
 *
 *      DOUBLE PRECISION FUNCTION DLARMM( ANORM, BNORM, CNORM )
 *

SRC/dtrsyl3.f

@@ -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
@@ -27,8 +44,8 @@
 *>  This is the block version of the algorithm.
 *> \endverbatim
 *
-*  Arguments
-*  =========
+*  Arguments:
+*  ==========
 *
 *> \param[in] TRANA
 *> \verbatim
@@ -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 ..

SRC/slarmm.f

@@ -1,7 +1,7 @@
 *> \brief \b SLARMM
 *
-* Definition:
-* ===========
+*  Definition:
+*  ===========
 *
 *      REAL FUNCTION SLARMM( ANORM, BNORM, CNORM )
 *

SRC/strsyl3.f

@@ -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
@@ -27,8 +43,8 @@
 *>  This is the block version of the algorithm.
 *> \endverbatim
 *
-*  Arguments
-*  =========
+*  Arguments:
+*  ==========
 *
 *> \param[in] TRANA
 *> \verbatim
@@ -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 ..

SRC/zgesvdq.f

@@ -51,8 +51,8 @@
 *> left and the right singular vectors of A, respectively.
 *> \endverbatim
 *
-*  Arguments
-*  =========
+*  Arguments:
+*  ==========
 *
 *> \param[in] JOBA
 *> \verbatim

SRC/ztrsyl3.f

@@ -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
@@ -22,8 +35,8 @@
 *>  This is the block version of the algorithm.
 *> \endverbatim
 *
-*  Arguments
-*  =========
+*  Arguments:
+*  ==========
 *
 *> \param[in] TRANA
 *> \verbatim
@@ -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 ..