From 7ada6520f5b481244fe3ea968e5254d7a0c5591f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Szabolcs=20Horva=CC=81t?= Date: Sun, 20 Oct 2024 19:31:46 +0000 Subject: [PATCH] fix: fix obsolescent character length warnings, fixes #472 --- PARPACK/SRC/BLACS/pcngets.f | 2 +- PARPACK/SRC/BLACS/pdngets.f | 2 +- PARPACK/SRC/BLACS/pdsgets.f | 2 +- PARPACK/SRC/BLACS/psngets.f | 2 +- PARPACK/SRC/BLACS/pssgets.f | 2 +- PARPACK/SRC/BLACS/pzngets.f | 2 +- PARPACK/SRC/MPI/pcngets.f | 2 +- PARPACK/SRC/MPI/pdngets.f | 2 +- PARPACK/SRC/MPI/pdsgets.f | 2 +- PARPACK/SRC/MPI/psngets.f | 2 +- PARPACK/SRC/MPI/pssgets.f | 2 +- PARPACK/SRC/MPI/pzngets.f | 2 +- PARPACK/UTIL/BLACS/pcmout.f | 4 ++-- PARPACK/UTIL/BLACS/pcvout.f | 2 +- PARPACK/UTIL/BLACS/pdmout.f | 2 +- PARPACK/UTIL/BLACS/pdvout.f | 2 +- PARPACK/UTIL/BLACS/pivout.f | 2 +- PARPACK/UTIL/BLACS/psmout.f | 2 +- PARPACK/UTIL/BLACS/psvout.f | 2 +- PARPACK/UTIL/BLACS/pzmout.f | 4 ++-- PARPACK/UTIL/BLACS/pzvout.f | 2 +- PARPACK/UTIL/MPI/pcmout.f | 4 ++-- PARPACK/UTIL/MPI/pcvout.f | 2 +- PARPACK/UTIL/MPI/pdmout.f | 2 +- PARPACK/UTIL/MPI/pdvout.f | 2 +- PARPACK/UTIL/MPI/pivout.f | 2 +- PARPACK/UTIL/MPI/psmout.f | 2 +- PARPACK/UTIL/MPI/psvout.f | 2 +- PARPACK/UTIL/MPI/pzmout.f | 4 ++-- PARPACK/UTIL/MPI/pzvout.f | 2 +- SRC/cngets.f | 2 +- SRC/csortc.f | 2 +- SRC/dngets.f | 2 +- SRC/dsesrt.f | 2 +- SRC/dsgets.f | 2 +- SRC/dsortc.f | 2 +- SRC/dsortr.f | 2 +- SRC/sngets.f | 2 +- SRC/ssesrt.f | 2 +- SRC/ssgets.f | 2 +- SRC/ssortc.f | 2 +- SRC/ssortr.f | 2 +- SRC/zngets.f | 2 +- SRC/zsortc.f | 2 +- TESTS/mmio.f | 2 +- UTIL/cmout.f | 4 ++-- UTIL/cvout.f | 2 +- UTIL/dmout.f | 2 +- UTIL/dvout.f | 2 +- UTIL/ivout.f | 2 +- UTIL/smout.f | 4 ++-- UTIL/svout.f | 2 +- UTIL/zmout.f | 4 ++-- UTIL/zvout.f | 2 +- 54 files changed, 61 insertions(+), 61 deletions(-) diff --git a/PARPACK/SRC/BLACS/pcngets.f b/PARPACK/SRC/BLACS/pcngets.f index 89cd67aeb..6b0ddde26 100644 --- 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 index 12a691f6a..c011e1bbb 100644 --- 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 index d0f703bb4..77d033e3f 100644 --- 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 index 33d85dfea..71dd473bf 100644 --- 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 index 660c274fb..d9288fcdf 100644 --- 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 index d880b4ccf..fc2a1222d 100644 --- 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 index 5f672149b..454f4dbbe 100644 --- 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 index c4294b8c0..4a1b089ac 100644 --- 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 index c71421b4c..b39836759 100644 --- 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 index 91a6d7304..969746fdb 100644 --- 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 index dcc08bcb3..2c4091ae7 100644 --- 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 index cb58f5ce6..cf2190362 100644 --- 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 index 8fe7ed16a..cb81c3f74 100644 --- 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 index 825ab4903..635ca0539 100644 --- 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 index 9be92df8a..d06995eb0 100644 --- 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 index c07ee7898..d69668afd 100644 --- 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 index aabd2b972..fbed80374 100644 --- 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 index f6cd01ee0..2ed13777f 100644 --- 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 index 77cd7e466..efc3171d4 100644 --- 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 index 2245f15ad..3d69bef4c 100644 --- 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 index 0402f8c10..c0de59426 100644 --- 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 index ad7a3e7bb..d021bc123 100644 --- 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 index 480752e8d..ea66e22d9 100644 --- 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 index e09b96de3..8785f6cc6 100644 --- 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 index cdb925d49..355e5ce8f 100644 --- 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 index 8b4362c55..b7da3153c 100644 --- 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 index 59fc93561..08dd49cc4 100644 --- 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 index 0fac3f8fa..d6e7bfc8f 100644 --- 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 index cd0eb5722..1bbc9ba87 100644 --- 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 index 9cca12e89..070f6b338 100644 --- 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 index 20626a2d5..5a6971e33 100644 --- 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 index a02bd3ffa..44bd1e9a1 100644 --- 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 index 47d3ac2ce..0d251c987 100644 --- 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 index 833fba4e6..883befacb 100644 --- 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 index 436a4fe84..9656831c6 100644 --- 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 index 42baae2ba..7fbd04c58 100644 --- 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 index b44f916cf..ff2cf8056 100644 --- 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 index 7e48c0bb1..bf2ae2dc9 100644 --- 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 index afc71b088..4e1199034 100644 --- 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 index f40ca76a8..a8f782a16 100644 --- 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 index e322039cd..ce305dc83 100644 --- 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 index 25d324b65..b30fdf768 100644 --- 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 index e7d243349..37987335f 100644 --- 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 %-----------------% diff --git a/SRC/zsortc.f b/SRC/zsortc.f index 6ea37a42f..a239e6d43 100644 --- a/SRC/zsortc.f +++ b/SRC/zsortc.f @@ -64,7 +64,7 @@ subroutine zsortc (which, apply, n, x, y) c | Scalar Arguments | c %------------------% c - character*2 which + character which*2 logical apply integer n c diff --git a/TESTS/mmio.f b/TESTS/mmio.f index 5481523e2..1be49f421 100644 --- a/TESTS/mmio.f +++ b/TESTS/mmio.f @@ -755,7 +755,7 @@ subroutine lowerc(string,pos,len) integer pos, len character*(*) string - character*26 lcase, ucase + character lcase*26, ucase*26 save lcase,ucase data lcase/'abcdefghijklmnopqrstuvwxyz'/ data ucase/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ diff --git a/UTIL/cmout.f b/UTIL/cmout.f index ff0478309..9984d1ec5 100644 --- a/UTIL/cmout.f +++ b/UTIL/cmout.f @@ -31,8 +31,8 @@ SUBROUTINE CMOUT( 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/UTIL/cvout.f b/UTIL/cvout.f index 1ee9afabf..d9ffdc4ff 100644 --- a/UTIL/cvout.f +++ b/UTIL/cvout.f @@ -30,7 +30,7 @@ SUBROUTINE CVOUT( 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/UTIL/dmout.f b/UTIL/dmout.f index 72edc042f..9955ba5a6 100644 --- a/UTIL/dmout.f +++ b/UTIL/dmout.f @@ -31,7 +31,7 @@ SUBROUTINE DMOUT( 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/UTIL/dvout.f b/UTIL/dvout.f index 4138e52c6..76c46b28e 100644 --- a/UTIL/dvout.f +++ b/UTIL/dvout.f @@ -28,7 +28,7 @@ SUBROUTINE DVOUT( 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/UTIL/ivout.f b/UTIL/ivout.f index e97118a86..7d0fde656 100644 --- a/UTIL/ivout.f +++ b/UTIL/ivout.f @@ -23,7 +23,7 @@ SUBROUTINE IVOUT (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/UTIL/smout.f b/UTIL/smout.f index 8d90bf209..c51c7d16e 100644 --- a/UTIL/smout.f +++ b/UTIL/smout.f @@ -27,8 +27,8 @@ SUBROUTINE SMOUT( 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/UTIL/svout.f b/UTIL/svout.f index 4363b924b..210572825 100644 --- a/UTIL/svout.f +++ b/UTIL/svout.f @@ -24,7 +24,7 @@ SUBROUTINE SVOUT( LOUT, N, SX, IDIGIT, IFMT ) * ... * ... SPECIFICATIONS FOR LOCAL VARIABLES INTEGER I, NDIGIT, K1, K2, LLL - CHARACTER*80 LINE + CHARACTER LINE*80 * ... * ... FIRST EXECUTABLE STATEMENT * diff --git a/UTIL/zmout.f b/UTIL/zmout.f index c39f6defe..4ab52ed9e 100644 --- a/UTIL/zmout.f +++ b/UTIL/zmout.f @@ -31,8 +31,8 @@ SUBROUTINE ZMOUT( 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/UTIL/zvout.f b/UTIL/zvout.f index 8c42eb890..f0ce61aa9 100644 --- a/UTIL/zvout.f +++ b/UTIL/zvout.f @@ -30,7 +30,7 @@ SUBROUTINE ZVOUT( LOUT, N, CX, IDIGIT, IFMT ) * ... * ... SPECIFICATIONS FOR LOCAL VARIABLES INTEGER I, NDIGIT, K1, K2, LLL - CHARACTER*80 LINE + CHARACTER LINE*80 * ... * ... FIRST EXECUTABLE STATEMENT *