Fix MATGEN long length problem from CI

Reference-LAPACK · Aug 1, 2023 · 61afa4a · 61afa4a
1 parent f88eb9f
commit 61afa4a
Show file tree

Hide file tree

Showing 9 changed files with 24 additions and 12 deletions.
diff --git a/TESTING/MATGEN/clatmr.f b/TESTING/MATGEN/clatmr.f
@@ -531,7 +531,8 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
       LOGICAL            LSAME
       REAL               CLANGB, CLANGE, CLANSB, CLANSP, CLANSY
       COMPLEX            CLATM2, CLATM3
-      EXTERNAL           LSAME, CLANGB, CLANGE, CLANSB, CLANSP, CLANSY,
+      EXTERNAL           LSAME, CLANGB, CLANGE,
+     $                   CLANSB, CLANSP, CLANSY,
      $                   CLATM2, CLATM3
 *     ..
 *     .. External Subroutines ..

diff --git a/TESTING/MATGEN/clatms.f b/TESTING/MATGEN/clatms.f
@@ -375,7 +375,8 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
       EXTERNAL           LSAME, SLARND, CLARND
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CLAGGE, CLAGHE, CLAGSY, CLAROT, CLARTG, CLASET,
+      EXTERNAL           CLAGGE, CLAGHE, CLAGSY,
+     $                   CLAROT, CLARTG, CLASET,
      $                   SLATM1, SSCAL, XERBLA
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/TESTING/MATGEN/clatmt.f b/TESTING/MATGEN/clatmt.f
@@ -383,7 +383,8 @@ SUBROUTINE CLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
       EXTERNAL           CLARND, SLARND, LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CLAGGE, CLAGHE, CLAGSY, CLAROT, CLARTG, CLASET,
+      EXTERNAL           CLAGGE, CLAGHE, CLAGSY,
+     $                   CLAROT, CLARTG, CLASET,
      $                   SLATM7, SSCAL, XERBLA
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/TESTING/MATGEN/dlatmr.f b/TESTING/MATGEN/dlatmr.f
@@ -504,9 +504,11 @@ SUBROUTINE DLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      DOUBLE PRECISION   DLANGB, DLANGE, DLANSB, DLANSP, DLANSY, DLATM2,
+      DOUBLE PRECISION   DLANGB, DLANGE, DLANSB,
+     $                   DLANSP, DLANSY, DLATM2,
      $                   DLATM3
-      EXTERNAL           LSAME, DLANGB, DLANGE, DLANSB, DLANSP, DLANSY,
+      EXTERNAL           LSAME, DLANGB, DLANGE,
+     $                   DLANSB, DLANSP, DLANSY,
      $                   DLATM2, DLATM3
 *     ..
 *     .. External Subroutines ..

diff --git a/TESTING/MATGEN/dlatms.f b/TESTING/MATGEN/dlatms.f
@@ -359,7 +359,8 @@ SUBROUTINE DLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
       EXTERNAL           LSAME, DLARND
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           DCOPY, DLAGGE, DLAGSY, DLAROT, DLARTG, DLASET,
+      EXTERNAL           DCOPY, DLAGGE, DLAGSY,
+     $                   DLAROT, DLARTG, DLASET,
      $                   DLATM1, DSCAL, XERBLA
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/TESTING/MATGEN/slatmr.f b/TESTING/MATGEN/slatmr.f
@@ -504,9 +504,11 @@ SUBROUTINE SLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      REAL               SLANGB, SLANGE, SLANSB, SLANSP, SLANSY, SLATM2,
+      REAL               SLANGB, SLANGE, SLANSB,
+     $                   SLANSP, SLANSY, SLATM2,
      $                   SLATM3
-      EXTERNAL           LSAME, SLANGB, SLANGE, SLANSB, SLANSP, SLANSY,
+      EXTERNAL           LSAME, SLANGB, SLANGE,
+     $                   SLANSB, SLANSP, SLANSY,
      $                   SLATM2, SLATM3
 *     ..
 *     .. External Subroutines ..

diff --git a/TESTING/MATGEN/slatms.f b/TESTING/MATGEN/slatms.f
@@ -359,7 +359,8 @@ SUBROUTINE SLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
       EXTERNAL           LSAME, SLARND
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           SCOPY, SLAGGE, SLAGSY, SLAROT, SLARTG, SLATM1,
+      EXTERNAL           SCOPY, SLAGGE, SLAGSY,
+     $                   SLAROT, SLARTG, SLATM1,
      $                   SLASET, SSCAL, XERBLA
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/TESTING/MATGEN/zlatmr.f b/TESTING/MATGEN/zlatmr.f
@@ -529,9 +529,11 @@ SUBROUTINE ZLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      DOUBLE PRECISION   ZLANGB, ZLANGE, ZLANSB, ZLANSP, ZLANSY
+      DOUBLE PRECISION   ZLANGB, ZLANGE, ZLANSB,
+     $                   ZLANSP, ZLANSY
       COMPLEX*16         ZLATM2, ZLATM3
-      EXTERNAL           LSAME, ZLANGB, ZLANGE, ZLANSB, ZLANSP, ZLANSY,
+      EXTERNAL           LSAME, ZLANGB, ZLANGE,
+     $                   ZLANSB, ZLANSP, ZLANSY,
      $                   ZLATM2, ZLATM3
 *     ..
 *     .. External Subroutines ..

diff --git a/TESTING/MATGEN/zlatms.f b/TESTING/MATGEN/zlatms.f
@@ -375,7 +375,8 @@ SUBROUTINE ZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
       EXTERNAL           LSAME, DLARND, ZLARND
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           DLATM1, DSCAL, XERBLA, ZLAGGE, ZLAGHE, ZLAGSY,
+      EXTERNAL           DLATM1, DSCAL, XERBLA,
+     $                   ZLAGGE, ZLAGHE, ZLAGSY,
      $                   ZLAROT, ZLARTG, ZLASET
 *     ..
 *     .. Intrinsic Functions ..