Skip to content

Commit

Permalink
fix: fix obsolescent character length warnings, fixes #472
Browse files Browse the repository at this point in the history
  • Loading branch information
szhorvat committed Oct 20, 2024
1 parent 9431fd5 commit 7ada652
Show file tree
Hide file tree
Showing 54 changed files with 61 additions and 61 deletions.
2 changes: 1 addition & 1 deletion PARPACK/SRC/BLACS/pcngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/BLACS/pdngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -120,7 +120,7 @@ subroutine pdngets
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/BLACS/pdsgets.f
Original file line number Diff line number Diff line change
Expand Up @@ -117,7 +117,7 @@ subroutine pdsgets
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/BLACS/psngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -120,7 +120,7 @@ subroutine psngets
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/BLACS/pssgets.f
Original file line number Diff line number Diff line change
Expand Up @@ -117,7 +117,7 @@ subroutine pssgets
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/BLACS/pzngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/MPI/pcngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/MPI/pdngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -120,7 +120,7 @@ subroutine pdngets
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/MPI/pdsgets.f
Original file line number Diff line number Diff line change
Expand Up @@ -117,7 +117,7 @@ subroutine pdsgets
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/MPI/psngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -120,7 +120,7 @@ subroutine psngets
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/MPI/pssgets.f
Original file line number Diff line number Diff line change
Expand Up @@ -117,7 +117,7 @@ subroutine pssgets
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/SRC/MPI/pzngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 %-----------------%
Expand Down
4 changes: 2 additions & 2 deletions PARPACK/UTIL/BLACS/pcmout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/BLACS/pcvout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
*
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/BLACS/pdmout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/BLACS/pdvout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/BLACS/pivout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/BLACS/psmout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/BLACS/psvout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
4 changes: 2 additions & 2 deletions PARPACK/UTIL/BLACS/pzmout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/BLACS/pzvout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
*
Expand Down
4 changes: 2 additions & 2 deletions PARPACK/UTIL/MPI/pcmout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/MPI/pcvout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
*
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/MPI/pdmout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/MPI/pdvout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/MPI/pivout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/MPI/psmout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/MPI/psvout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 ..
Expand Down
4 changes: 2 additions & 2 deletions PARPACK/UTIL/MPI/pzmout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion PARPACK/UTIL/MPI/pzvout.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
*
Expand Down
2 changes: 1 addition & 1 deletion SRC/cngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion SRC/csortc.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/dngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion SRC/dsesrt.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/dsgets.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion SRC/dsortc.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/dsortr.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/sngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion SRC/ssesrt.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/ssgets.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 %-----------------%
Expand Down
2 changes: 1 addition & 1 deletion SRC/ssortc.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/ssortr.f
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion SRC/zngets.f
Original file line number Diff line number Diff line change
Expand Up @@ -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 %-----------------%
Expand Down
Loading

0 comments on commit 7ada652

Please sign in to comment.