phynexis-deps/arpack-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
fix: fix obsolescent character length warnings, fixes #472
This commit is contained in:
Sylvestre Ledru
2024-10-21 09:01:08 +02:00
committed by GitHub
parent 9431fd5ea6 7ada6520f5
commit b63d37f4b6
54 changed files with 61 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PARPACK/SRC/BLACS/pcngets.f
+1 -1
View File
@@ -114,7 +114,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/BLACS/pdngets.f
+1 -1
View File
@@ -120,7 +120,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/BLACS/pdsgets.f
+1 -1
View File
@@ -117,7 +117,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/BLACS/psngets.f
+1 -1
View File
@@ -120,7 +120,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/BLACS/pssgets.f
+1 -1
View File
@@ -117,7 +117,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/BLACS/pzngets.f
+1 -1
View File
@@ -114,7 +114,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/MPI/pcngets.f
+1 -1
View File
@@ -114,7 +114,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/MPI/pdngets.f
+1 -1
View File
@@ -120,7 +120,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/MPI/pdsgets.f
+1 -1
View File
@@ -117,7 +117,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/MPI/psngets.f
+1 -1
View File
@@ -120,7 +120,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/MPI/pssgets.f
+1 -1
View File
@@ -117,7 +117,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/SRC/MPI/pzngets.f
+1 -1
View File
@@ -114,7 +114,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
PARPACK/UTIL/BLACS/pcmout.f
+2 -2
View File
@@ -38,8 +38,8 @@
* ...
* ... 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
PARPACK/UTIL/BLACS/pcvout.f
+1 -1
View File
@@ -34,7 +34,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
INTEGER I, NDIGIT, K1, K2, LLL
CHARACTER*80 LINE
CHARACTER LINE*80
* ...
* ... FIRST EXECUTABLE STATEMENT
*
PARPACK/UTIL/BLACS/pdmout.f
+1 -1
View File
@@ -42,7 +42,7 @@
& A( LDA, * )
* ..
* .. Local Scalars ..
CHARACTER*80 LINE
CHARACTER LINE*80
INTEGER I, J, K1, K2, LLL, NDIGIT
* ..
* .. Local Arrays ..
PARPACK/UTIL/BLACS/pdvout.f
+1 -1
View File
@@ -39,7 +39,7 @@
& SX( * )
* ..
* .. Local Scalars ..
CHARACTER*80 LINE
CHARACTER LINE*80
INTEGER I, K1, K2, LLL, NDIGIT
* ..
* .. Intrinsic Functions ..
PARPACK/UTIL/BLACS/pivout.f
+1 -1
View File
@@ -34,7 +34,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
INTEGER I, NDIGIT, K1, K2, LLL
CHARACTER*80 LINE
CHARACTER LINE*80
* ...
* ... SPECIFICATIONS INTRINSICS
INTRINSIC MIN
PARPACK/UTIL/BLACS/psmout.f
+1 -1
View File
@@ -42,7 +42,7 @@
& A( LDA, * )
* ..
* .. Local Scalars ..
CHARACTER*80 LINE
CHARACTER LINE*80
INTEGER I, J, K1, K2, LLL, NDIGIT
* ..
* .. Local Arrays ..
PARPACK/UTIL/BLACS/psvout.f
+1 -1
View File
@@ -39,7 +39,7 @@
& SX( * )
* ..
* .. Local Scalars ..
CHARACTER*80 LINE
CHARACTER LINE*80
INTEGER I, K1, K2, LLL, NDIGIT
* ..
* .. Intrinsic Functions ..
PARPACK/UTIL/BLACS/pzmout.f
+2 -2
View File
@@ -38,8 +38,8 @@
* ...
* ... 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
PARPACK/UTIL/BLACS/pzvout.f
+1 -1
View File
@@ -34,7 +34,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
INTEGER I, NDIGIT, K1, K2, LLL
CHARACTER*80 LINE
CHARACTER LINE*80
* ...
* ... FIRST EXECUTABLE STATEMENT
*
PARPACK/UTIL/MPI/pcmout.f
+2 -2
View File
@@ -37,8 +37,8 @@
* ...
* ... 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
PARPACK/UTIL/MPI/pcvout.f
+1 -1
View File
@@ -33,7 +33,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
INTEGER I, NDIGIT, K1, K2, LLL
CHARACTER*80 LINE
CHARACTER LINE*80
* ...
* ... FIRST EXECUTABLE STATEMENT
*
PARPACK/UTIL/MPI/pdmout.f
+1 -1
View File
@@ -41,7 +41,7 @@
& A( LDA, * )
* ..
* .. Local Scalars ..
CHARACTER*80 LINE
CHARACTER LINE*80
INTEGER I, J, K1, K2, LLL, NDIGIT
* ..
* .. Local Arrays ..
PARPACK/UTIL/MPI/pdvout.f
+1 -1
View File
@@ -38,7 +38,7 @@
& SX( * )
* ..
* .. Local Scalars ..
CHARACTER*80 LINE
CHARACTER LINE*80
INTEGER I, K1, K2, LLL, NDIGIT
* ..
* .. Intrinsic Functions ..
PARPACK/UTIL/MPI/pivout.f
+1 -1
View File
@@ -33,7 +33,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
INTEGER I, NDIGIT, K1, K2, LLL
CHARACTER*80 LINE
CHARACTER LINE*80
* ...
* ... SPECIFICATIONS INTRINSICS
INTRINSIC MIN
PARPACK/UTIL/MPI/psmout.f
+1 -1
View File
@@ -41,7 +41,7 @@
& A( LDA, * )
* ..
* .. Local Scalars ..
CHARACTER*80 LINE
CHARACTER LINE*80
INTEGER I, J, K1, K2, LLL, NDIGIT
* ..
* .. Local Arrays ..
PARPACK/UTIL/MPI/psvout.f
+1 -1
View File
@@ -38,7 +38,7 @@
& SX( * )
* ..
* .. Local Scalars ..
CHARACTER*80 LINE
CHARACTER LINE*80
INTEGER I, K1, K2, LLL, NDIGIT
* ..
* .. Intrinsic Functions ..
PARPACK/UTIL/MPI/pzmout.f
+2 -2
View File
@@ -37,8 +37,8 @@
* ...
* ... 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
PARPACK/UTIL/MPI/pzvout.f
+1 -1
View File
@@ -33,7 +33,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
INTEGER I, NDIGIT, K1, K2, LLL
CHARACTER*80 LINE
CHARACTER LINE*80
* ...
* ... FIRST EXECUTABLE STATEMENT
*
SRC/cngets.f
+1 -1
View File
@@ -98,7 +98,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
SRC/csortc.f
+1 -1
View File
@@ -64,7 +64,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
logical apply
integer n
c
SRC/dngets.f
+1 -1
View File
@@ -106,7 +106,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
SRC/dsesrt.f
+1 -1
View File
@@ -71,7 +71,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
logical apply
integer lda, n, na
c
SRC/dsgets.f
+1 -1
View File
@@ -103,7 +103,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
SRC/dsortc.f
+1 -1
View File
@@ -69,7 +69,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
logical apply
integer n
c
SRC/dsortr.f
+1 -1
View File
@@ -62,7 +62,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
logical apply
integer n
c
SRC/sngets.f
+1 -1
View File
@@ -106,7 +106,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
SRC/ssesrt.f
+1 -1
View File
@@ -71,7 +71,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
logical apply
integer lda, n, na
c
SRC/ssgets.f
+1 -1
View File
@@ -103,7 +103,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
SRC/ssortc.f
+1 -1
View File
@@ -69,7 +69,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
logical apply
integer n
c
SRC/ssortr.f
+1 -1
View File
@@ -62,7 +62,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
logical apply
integer n
c
SRC/zngets.f
+1 -1
View File
@@ -98,7 +98,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
integer ishift, kev, np
c
c %-----------------%
SRC/zsortc.f
+1 -1
View File
@@ -64,7 +64,7 @@ c %------------------%
c | Scalar Arguments |
c %------------------%
c
character*2 which
character which*2
logical apply
integer n
c
TESTS/mmio.f
+1 -1
View File
@@ -755,7 +755,7 @@ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
integer pos, len
character*(*) string
character*26 lcase, ucase
character lcase*26, ucase*26
save lcase,ucase
data lcase/'abcdefghijklmnopqrstuvwxyz'/
data ucase/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
UTIL/cmout.f
+2 -2
View File
@@ -31,8 +31,8 @@
* ...
* ... 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
UTIL/cvout.f
+1 -1
View File
@@ -30,7 +30,7 @@ c
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
INTEGER I, NDIGIT, K1, K2, LLL
CHARACTER*80 LINE
CHARACTER LINE*80
* ...
* ... FIRST EXECUTABLE STATEMENT
*
UTIL/dmout.f
+1 -1
View File
@@ -31,7 +31,7 @@
DOUBLE PRECISION A( LDA, * )
* ..
* .. Local Scalars ..
CHARACTER*80 LINE
CHARACTER LINE*80
INTEGER I, J, K1, K2, LLL, NDIGIT
* ..
* .. Local Arrays ..
UTIL/dvout.f
+1 -1
View File
@@ -28,7 +28,7 @@
DOUBLE PRECISION SX( * )
* ..
* .. Local Scalars ..
CHARACTER*80 LINE
CHARACTER LINE*80
INTEGER I, K1, K2, LLL, NDIGIT
* ..
* .. Intrinsic Functions ..
UTIL/ivout.f
+1 -1
View File
@@ -23,7 +23,7 @@ C ... SPECIFICATIONS FOR ARGUMENTS
C ...
C ... SPECIFICATIONS FOR LOCAL VARIABLES
INTEGER I, NDIGIT, K1, K2, LLL
CHARACTER*80 LINE
CHARACTER LINE*80
* ...
* ... SPECIFICATIONS INTRINSICS
INTRINSIC MIN
UTIL/smout.f
+2 -2
View File
@@ -27,8 +27,8 @@
* ...
* ... 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
UTIL/svout.f
+1 -1
View File
@@ -24,7 +24,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
INTEGER I, NDIGIT, K1, K2, LLL
CHARACTER*80 LINE
CHARACTER LINE*80
* ...
* ... FIRST EXECUTABLE STATEMENT
*
UTIL/zmout.f
+2 -2
View File
@@ -31,8 +31,8 @@
* ...
* ... 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
UTIL/zvout.f
+1 -1
View File
@@ -30,7 +30,7 @@ c
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
INTEGER I, NDIGIT, K1, K2, LLL
CHARACTER*80 LINE
CHARACTER LINE*80
* ...
* ... FIRST EXECUTABLE STATEMENT
*