Fix compiler error of column limit, supplementary submission

Author: sh-zheng

SRC/dkygv.f

@@ -174,8 +174,8 @@
 *> \ingroup kygv
 *
 *  =====================================================================
-      SUBROUTINE DKYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK,
-     $                  LWORK, INFO )
+      SUBROUTINE DKYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W,
+     $                  WORK, LWORK, INFO )
 *
 *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

SRC/dlakyf.f

@@ -183,7 +183,8 @@
 *> \endverbatim
 *
 *  =====================================================================
-      SUBROUTINE DLAKYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO )
+      SUBROUTINE DLAKYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW,
+     $					 INFO )
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

SRC/dlanky.f

@@ -116,7 +116,8 @@
 *> \ingroup lanke
 *
 *  =====================================================================
-      DOUBLE PRECISION   FUNCTION DLANKY( NORM, UPLO, N, A, LDA, WORK )
+      DOUBLE PRECISION   FUNCTION DLANKY( NORM, UPLO, N, A, LDA,
+     $									  WORK )
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

SRC/skygv.f

@@ -174,8 +174,8 @@
 *> \ingroup kygv
 *
 *  =====================================================================
-      SUBROUTINE SKYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK,
-     $                  LWORK, INFO )
+      SUBROUTINE SKYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W,
+     $                  WORK, LWORK, INFO )
 *
 *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

SRC/slakyf.f

@@ -183,7 +183,8 @@
 *> \endverbatim
 *
 *  =====================================================================
-      SUBROUTINE SLAKYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO )
+      SUBROUTINE SLAKYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW,
+     $					 INFO )
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

SRC/slanky.f

@@ -116,7 +116,8 @@
 *> \ingroup lanke
 *
 *  =====================================================================
-      REAL             FUNCTION SLANKY( NORM, UPLO, N, A, LDA, WORK )
+      REAL             FUNCTION SLANKY( NORM, UPLO, N, A, LDA,
+     $									WORK )
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

TESTING/MATGEN/matgen_64.h

@@ -22,6 +22,7 @@
 #define CLATMT CLATMT_64
 #define DLAGGE DLAGGE_64
 #define DLAGSY DLAGSY_64
+#define DLAGKY DLAGKY_64
 #define DLAHILB DLAHILB_64
 #define DLAKF2 DLAKF2_64
 #define DLARAN DLARAN_64
@@ -41,6 +42,7 @@
 #define DLATMT DLATMT_64
 #define SLAGGE SLAGGE_64
 #define SLAGSY SLAGSY_64
+#define SLAGKY SLAGKY_64
 #define SLAHILB SLAHILB_64
 #define SLAKF2 SLAKF2_64
 #define SLARAN SLARAN_64