diff --git a/SRC/ctrsyl3.f b/SRC/ctrsyl3.f
index d2b8fd9ccd..5bf90f242b 100644
--- a/SRC/ctrsyl3.f
+++ b/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 ..
diff --git a/SRC/dlarmm.f b/SRC/dlarmm.f
index f276df3655..f1e78dfade 100644
--- a/SRC/dlarmm.f
+++ b/SRC/dlarmm.f
@@ -1,7 +1,7 @@
 *> \brief \b DLARMM
 *
-* Definition:
-* ===========
+*  Definition:
+*  ===========
 *
 *      DOUBLE PRECISION FUNCTION DLARMM( ANORM, BNORM, CNORM )
 *
diff --git a/SRC/dtrsyl3.f b/SRC/dtrsyl3.f
index 78c262004f..7d794819ca 100644
--- a/SRC/dtrsyl3.f
+++ b/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 ..
diff --git a/SRC/slarmm.f b/SRC/slarmm.f
index 1f454d7fb0..91462e1028 100644
--- a/SRC/slarmm.f
+++ b/SRC/slarmm.f
@@ -1,7 +1,7 @@
 *> \brief \b SLARMM
 *
-* Definition:
-* ===========
+*  Definition:
+*  ===========
 *
 *      REAL FUNCTION SLARMM( ANORM, BNORM, CNORM )
 *
diff --git a/SRC/strsyl3.f b/SRC/strsyl3.f
index 708cf27066..baa1ce5c39 100644
--- a/SRC/strsyl3.f
+++ b/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 ..
diff --git a/SRC/zgesvdq.f b/SRC/zgesvdq.f
index 1fecd324c3..686212ddaa 100644
--- a/SRC/zgesvdq.f
+++ b/SRC/zgesvdq.f
@@ -51,8 +51,8 @@
 *> left and the right singular vectors of A, respectively.
 *> \endverbatim
 *
-*  Arguments
-*  =========
+*  Arguments:
+*  ==========
 *
 *> \param[in] JOBA
 *> \verbatim
diff --git a/SRC/ztrsyl3.f b/SRC/ztrsyl3.f
index eeda7f3ad2..0a2fc99dc1 100644
--- a/SRC/ztrsyl3.f
+++ b/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 ..