fix: update obsolescent character length declarations in ARPACK Fortr…

…an code fixes #1533
igraph · Sep 28, 2024 · f9a44df · f9a44df
1 parent 77469c4
commit f9a44df
Show file tree

Hide file tree

Showing 9 changed files with 10 additions and 10 deletions.
diff --git a/src/vendor/arpack/dmout.f b/src/vendor/arpack/dmout.f
@@ -31,7 +31,7 @@ SUBROUTINE IGRAPHDMOUT( LOUT, M, N, A, LDA, IDIGIT, IFMT )
       DOUBLE PRECISION   A( LDA, * )
 *     ..
 *     .. Local Scalars ..
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
       INTEGER            I, J, K1, K2, LLL, NDIGIT
 *     ..
 *     .. Local Arrays ..

diff --git a/src/vendor/arpack/dngets.f b/src/vendor/arpack/dngets.f
@@ -106,7 +106,7 @@ subroutine igraphdngets ( ishift, which, kev, np, ritzr, ritzi,
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/src/vendor/arpack/dsesrt.f b/src/vendor/arpack/dsesrt.f
@@ -71,7 +71,7 @@ subroutine igraphdsesrt (which, apply, n, x, na, a, lda)
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       logical    apply
       integer    lda, n, na
 c

diff --git a/src/vendor/arpack/dsgets.f b/src/vendor/arpack/dsgets.f
@@ -104,7 +104,7 @@ subroutine igraphdsgets ( ishift, which, kev, np, ritz, bounds,
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/src/vendor/arpack/dsortc.f b/src/vendor/arpack/dsortc.f
@@ -69,7 +69,7 @@ subroutine igraphdsortc (which, apply, n, xreal, ximag, y)
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       logical    apply
       integer    n
 c

diff --git a/src/vendor/arpack/dsortr.f b/src/vendor/arpack/dsortr.f
@@ -62,7 +62,7 @@ subroutine igraphdsortr (which, apply, n, x1, x2)
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       logical    apply
       integer    n
 c

diff --git a/src/vendor/arpack/dvout.f b/src/vendor/arpack/dvout.f
@@ -28,7 +28,7 @@ SUBROUTINE IGRAPHDVOUT( LOUT, N, SX, IDIGIT, IFMT )
       DOUBLE PRECISION   SX( * )
 *     ..
 *     .. Local Scalars ..
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
       INTEGER            I, K1, K2, LLL, NDIGIT
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/src/vendor/arpack/ivout.f b/src/vendor/arpack/ivout.f
@@ -23,7 +23,7 @@ SUBROUTINE IGRAPHIVOUT (LOUT, N, IX, IDIGIT, IFMT)
 C     ...
 C     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER    I, NDIGIT, K1, K2, LLL
-      CHARACTER*80 LINE
+      CHARACTER    LINE*80
 *     ...
 *     ... SPECIFICATIONS INTRINSICS
       INTRINSIC          MIN

diff --git a/src/vendor/arpack/wrap.f b/src/vendor/arpack/wrap.f
@@ -6,7 +6,7 @@
 c
       subroutine igraphxdsortr (which, apply, n, x1, x2)
 c
-      character*2 which
+      character  which*2
       integer    apply
       integer    n
       Double precision
@@ -30,7 +30,7 @@ subroutine igraphxdsortr (which, apply, n, x1, x2)
 c
       subroutine igraphxdsortc (which, apply, n, xreal, ximag, y)
 c
-      character*2 which
+      character   which*2
       integer    apply
       integer    n
 c