Merge pull request #473 from szhorvat/fix/obsolescent-character-length

fix: fix obsolescent character length warnings, fixes #472
opencollab · Oct 21, 2024 · b63d37f · b63d37f
2 parents 9431fd5 + 7ada652
commit b63d37f
Show file tree

Hide file tree

Showing 54 changed files with 61 additions and 61 deletions.
diff --git a/PARPACK/SRC/BLACS/pcngets.f b/PARPACK/SRC/BLACS/pcngets.f
@@ -114,7 +114,7 @@ subroutine pcngets ( comm, 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/PARPACK/SRC/BLACS/pdngets.f b/PARPACK/SRC/BLACS/pdngets.f
@@ -120,7 +120,7 @@ subroutine pdngets
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/PARPACK/SRC/BLACS/pdsgets.f b/PARPACK/SRC/BLACS/pdsgets.f
@@ -117,7 +117,7 @@ subroutine pdsgets
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/PARPACK/SRC/BLACS/psngets.f b/PARPACK/SRC/BLACS/psngets.f
@@ -120,7 +120,7 @@ subroutine psngets
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/PARPACK/SRC/BLACS/pssgets.f b/PARPACK/SRC/BLACS/pssgets.f
@@ -117,7 +117,7 @@ subroutine pssgets
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/PARPACK/SRC/BLACS/pzngets.f b/PARPACK/SRC/BLACS/pzngets.f
@@ -114,7 +114,7 @@ subroutine pzngets ( comm, 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/PARPACK/SRC/MPI/pcngets.f b/PARPACK/SRC/MPI/pcngets.f
@@ -114,7 +114,7 @@ subroutine pcngets ( comm, 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/PARPACK/SRC/MPI/pdngets.f b/PARPACK/SRC/MPI/pdngets.f
@@ -120,7 +120,7 @@ subroutine pdngets
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/PARPACK/SRC/MPI/pdsgets.f b/PARPACK/SRC/MPI/pdsgets.f
@@ -117,7 +117,7 @@ subroutine pdsgets
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/PARPACK/SRC/MPI/psngets.f b/PARPACK/SRC/MPI/psngets.f
@@ -120,7 +120,7 @@ subroutine psngets
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/PARPACK/SRC/MPI/pssgets.f b/PARPACK/SRC/MPI/pssgets.f
@@ -117,7 +117,7 @@ subroutine pssgets
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/PARPACK/SRC/MPI/pzngets.f b/PARPACK/SRC/MPI/pzngets.f
@@ -114,7 +114,7 @@ subroutine pzngets ( comm, 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/PARPACK/UTIL/BLACS/pcmout.f b/PARPACK/UTIL/BLACS/pcmout.f
@@ -38,8 +38,8 @@ SUBROUTINE PCMOUT( COMM, LOUT, M, N, A, LDA, IDIGIT, IFMT )
 *     ...
 *     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER            I, J, NDIGIT, K1, K2, LLL
-      CHARACTER*1        ICOL( 3 )
-      CHARACTER*80       LINE
+      CHARACTER          ICOL( 3 )
+      CHARACTER          LINE*80
 *     ...
 *     ... SPECIFICATIONS INTRINSICS
       INTRINSIC          MIN

diff --git a/PARPACK/UTIL/BLACS/pcvout.f b/PARPACK/UTIL/BLACS/pcvout.f
@@ -34,7 +34,7 @@ SUBROUTINE PCVOUT( COMM, LOUT, N, CX, IDIGIT, IFMT )
 *     ...
 *     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER            I, NDIGIT, K1, K2, LLL
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
 *     ...
 *     ... FIRST EXECUTABLE STATEMENT
 *

diff --git a/PARPACK/UTIL/BLACS/pdmout.f b/PARPACK/UTIL/BLACS/pdmout.f
@@ -42,7 +42,7 @@ SUBROUTINE PDMOUT( COMM, LOUT, M, N, A, LDA, IDIGIT, IFMT )
      &                   A( LDA, * )
 *     ..
 *     .. Local Scalars ..
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
       INTEGER            I, J, K1, K2, LLL, NDIGIT
 *     ..
 *     .. Local Arrays ..

diff --git a/PARPACK/UTIL/BLACS/pdvout.f b/PARPACK/UTIL/BLACS/pdvout.f
@@ -39,7 +39,7 @@ SUBROUTINE PDVOUT( COMM , LOUT, N, SX, IDIGIT, IFMT )
      &                   SX( * )
 *     ..
 *     .. Local Scalars ..
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
       INTEGER            I, K1, K2, LLL, NDIGIT
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/PARPACK/UTIL/BLACS/pivout.f b/PARPACK/UTIL/BLACS/pivout.f
@@ -34,7 +34,7 @@ SUBROUTINE PIVOUT (COMM, LOUT, N, IX, IDIGIT, IFMT)
 *     ...
 *     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER    I, NDIGIT, K1, K2, LLL
-      CHARACTER*80 LINE
+      CHARACTER  LINE*80
 *     ...
 *     ... SPECIFICATIONS INTRINSICS
       INTRINSIC          MIN

diff --git a/PARPACK/UTIL/BLACS/psmout.f b/PARPACK/UTIL/BLACS/psmout.f
@@ -42,7 +42,7 @@ SUBROUTINE PSMOUT( COMM, LOUT, M, N, A, LDA, IDIGIT, IFMT )
      &                   A( LDA, * )
 *     ..
 *     .. Local Scalars ..
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
       INTEGER            I, J, K1, K2, LLL, NDIGIT
 *     ..
 *     .. Local Arrays ..

diff --git a/PARPACK/UTIL/BLACS/psvout.f b/PARPACK/UTIL/BLACS/psvout.f
@@ -39,7 +39,7 @@ SUBROUTINE PSVOUT( COMM , LOUT, N, SX, IDIGIT, IFMT )
      &                   SX( * )
 *     ..
 *     .. Local Scalars ..
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
       INTEGER            I, K1, K2, LLL, NDIGIT
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/PARPACK/UTIL/BLACS/pzmout.f b/PARPACK/UTIL/BLACS/pzmout.f
@@ -38,8 +38,8 @@ SUBROUTINE PZMOUT( COMM, LOUT, M, N, A, LDA, IDIGIT, IFMT )
 *     ...
 *     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER            I, J, NDIGIT, K1, K2, LLL
-      CHARACTER*1        ICOL( 3 )
-      CHARACTER*80       LINE
+      CHARACTER          ICOL( 3 )
+      CHARACTER          LINE*80
 *     ...
 *     ... SPECIFICATIONS INTRINSICS
       INTRINSIC          MIN

diff --git a/PARPACK/UTIL/BLACS/pzvout.f b/PARPACK/UTIL/BLACS/pzvout.f
@@ -34,7 +34,7 @@ SUBROUTINE PZVOUT( COMM, LOUT, N, CX, IDIGIT, IFMT )
 *     ...
 *     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER            I, NDIGIT, K1, K2, LLL
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
 *     ...
 *     ... FIRST EXECUTABLE STATEMENT
 *

diff --git a/PARPACK/UTIL/MPI/pcmout.f b/PARPACK/UTIL/MPI/pcmout.f
@@ -37,8 +37,8 @@ SUBROUTINE PCMOUT( COMM, LOUT, M, N, A, LDA, IDIGIT, IFMT )
 *     ...
 *     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER            I, J, NDIGIT, K1, K2, LLL
-      CHARACTER*1        ICOL( 3 )
-      CHARACTER*80       LINE
+      CHARACTER          ICOL( 3 )
+      CHARACTER          LINE*80
 *     ...
 *     ... SPECIFICATIONS INTRINSICS
       INTRINSIC          MIN

diff --git a/PARPACK/UTIL/MPI/pcvout.f b/PARPACK/UTIL/MPI/pcvout.f
@@ -33,7 +33,7 @@ SUBROUTINE PCVOUT( COMM, LOUT, N, CX, IDIGIT, IFMT )
 *     ...
 *     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER            I, NDIGIT, K1, K2, LLL
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
 *     ...
 *     ... FIRST EXECUTABLE STATEMENT
 *

diff --git a/PARPACK/UTIL/MPI/pdmout.f b/PARPACK/UTIL/MPI/pdmout.f
@@ -41,7 +41,7 @@ SUBROUTINE PDMOUT( COMM, LOUT, M, N, A, LDA, IDIGIT, IFMT )
      &                   A( LDA, * )
 *     ..
 *     .. Local Scalars ..
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
       INTEGER            I, J, K1, K2, LLL, NDIGIT
 *     ..
 *     .. Local Arrays ..

diff --git a/PARPACK/UTIL/MPI/pdvout.f b/PARPACK/UTIL/MPI/pdvout.f
@@ -38,7 +38,7 @@ SUBROUTINE PDVOUT( COMM , LOUT, N, SX, IDIGIT, IFMT )
      &                   SX( * )
 *     ..
 *     .. Local Scalars ..
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
       INTEGER            I, K1, K2, LLL, NDIGIT
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/PARPACK/UTIL/MPI/pivout.f b/PARPACK/UTIL/MPI/pivout.f
@@ -33,7 +33,7 @@ SUBROUTINE PIVOUT (COMM, LOUT, N, IX, IDIGIT, IFMT)
 *     ...
 *     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER    I, NDIGIT, K1, K2, LLL
-      CHARACTER*80 LINE
+      CHARACTER  LINE*80
 *     ...
 *     ... SPECIFICATIONS INTRINSICS
       INTRINSIC          MIN

diff --git a/PARPACK/UTIL/MPI/psmout.f b/PARPACK/UTIL/MPI/psmout.f
@@ -41,7 +41,7 @@ SUBROUTINE PSMOUT( COMM, LOUT, M, N, A, LDA, IDIGIT, IFMT )
      &                   A( LDA, * )
 *     ..
 *     .. Local Scalars ..
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
       INTEGER            I, J, K1, K2, LLL, NDIGIT
 *     ..
 *     .. Local Arrays ..

diff --git a/PARPACK/UTIL/MPI/psvout.f b/PARPACK/UTIL/MPI/psvout.f
@@ -38,7 +38,7 @@ SUBROUTINE PSVOUT( COMM , LOUT, N, SX, IDIGIT, IFMT )
      &                   SX( * )
 *     ..
 *     .. Local Scalars ..
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
       INTEGER            I, K1, K2, LLL, NDIGIT
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/PARPACK/UTIL/MPI/pzmout.f b/PARPACK/UTIL/MPI/pzmout.f
@@ -37,8 +37,8 @@ SUBROUTINE PZMOUT( COMM, LOUT, M, N, A, LDA, IDIGIT, IFMT )
 *     ...
 *     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER            I, J, NDIGIT, K1, K2, LLL
-      CHARACTER*1        ICOL( 3 )
-      CHARACTER*80       LINE
+      CHARACTER          ICOL( 3 )
+      CHARACTER          LINE*80
 *     ...
 *     ... SPECIFICATIONS INTRINSICS
       INTRINSIC          MIN

diff --git a/PARPACK/UTIL/MPI/pzvout.f b/PARPACK/UTIL/MPI/pzvout.f
@@ -33,7 +33,7 @@ SUBROUTINE PZVOUT( COMM, LOUT, N, CX, IDIGIT, IFMT )
 *     ...
 *     ... SPECIFICATIONS FOR LOCAL VARIABLES
       INTEGER            I, NDIGIT, K1, K2, LLL
-      CHARACTER*80       LINE
+      CHARACTER          LINE*80
 *     ...
 *     ... FIRST EXECUTABLE STATEMENT
 *

diff --git a/SRC/cngets.f b/SRC/cngets.f
@@ -98,7 +98,7 @@ subroutine cngets ( 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/csortc.f b/SRC/csortc.f
@@ -64,7 +64,7 @@ subroutine csortc (which, apply, n, x, y)
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       logical    apply
       integer    n
 c

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

diff --git a/SRC/dsesrt.f b/SRC/dsesrt.f
@@ -71,7 +71,7 @@ subroutine dsesrt (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/dsgets.f b/SRC/dsgets.f
@@ -103,7 +103,7 @@ subroutine dsgets ( ishift, which, kev, np, ritz, bounds, shifts )
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/SRC/dsortc.f b/SRC/dsortc.f
@@ -69,7 +69,7 @@ subroutine dsortc (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/dsortr.f b/SRC/dsortr.f
@@ -62,7 +62,7 @@ subroutine dsortr (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/sngets.f b/SRC/sngets.f
@@ -106,7 +106,7 @@ subroutine sngets ( ishift, which, kev, np, ritzr, ritzi, bounds,
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/SRC/ssesrt.f b/SRC/ssesrt.f
@@ -71,7 +71,7 @@ subroutine ssesrt (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/ssgets.f b/SRC/ssgets.f
@@ -103,7 +103,7 @@ subroutine ssgets ( ishift, which, kev, np, ritz, bounds, shifts )
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%

diff --git a/SRC/ssortc.f b/SRC/ssortc.f
@@ -69,7 +69,7 @@ subroutine ssortc (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/ssortr.f b/SRC/ssortr.f
@@ -62,7 +62,7 @@ subroutine ssortr (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/zngets.f b/SRC/zngets.f
@@ -98,7 +98,7 @@ subroutine zngets ( ishift, which, kev, np, ritz, bounds)
 c     | Scalar Arguments |
 c     %------------------%
 c
-      character*2 which
+      character  which*2
       integer    ishift, kev, np
 c
 c     %-----------------%