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

Fix "Warning: Obsolescent feature: Old-style character length at (1)", found in /UTIL (#482)

Browse Source 
* fix obsolescent character length warning, arpack/utils

* updates to changelog, other fixes to avoid warning

* try brew install open-mpi

* use brew install open-mpi instead

* remove F77 syntax, TESTS/mmio.f

* Update CHANGES
This commit is contained in:
evanbiederstedt
2026-06-06 12:47:15 +02:00
committed by GitHub
parent f73592dd1e
commit f284b0682d
13 changed files with 21 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.github/workflows/jobs.yml
+2 -2
View File
@@ -176,7 +176,7 @@ jobs:
- name: Install brew dependencies
run: |
brew reinstall gcc # brings gfortran on path
brew install cmake mpich eigen
brew install cmake open-mpi eigen
- name: Run job
run: |
mkdir -p build
@@ -242,7 +242,7 @@ jobs:
- name: Install brew dependencies
run: |
brew reinstall gcc # brings gfortran on path
brew install autoconf automake libtool pkg-config mpich eigen
brew install autoconf automake libtool pkgconfig open-mpi eigen
- name: Run job
run: |
./bootstrap
CHANGES
+4
View File
@@ -1,5 +1,9 @@
arpack-ng - next
[ Evan Biederstedt ]
* Fix warnings for "Warning: Obsolescent feature: Old-style character length at (1)", compiled with `gfortran-16 -fpic -g -O2 -Wall -pedantic -mtune=native`
* Changed GitHub CI workflows for Mac OS to use 'brew install open-mpi', as `mpich` fails.
[ Theodore Chang ]
* CMake: Improve dependency linking, bump up minimum C++ standard version.
PARPACK/UTIL/BLACS/pdmout.f
+1 -1
View File
@@ -34,7 +34,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
* .. Scalar Arguments ..
CHARACTER*( * ) IFMT
CHARACTER IFMT*( * )
INTEGER IDIGIT, LDA, LOUT, M, N
* ..
* .. Array Arguments ..
PARPACK/UTIL/BLACS/pdvout.f
+1 -1
View File
@@ -31,7 +31,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
* .. Scalar Arguments ..
CHARACTER*( * ) IFMT
CHARACTER IFMT*( * )
INTEGER IDIGIT, LOUT, N
* ..
* .. Array Arguments ..
PARPACK/UTIL/BLACS/psmout.f
+1 -1
View File
@@ -34,7 +34,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
* .. Scalar Arguments ..
CHARACTER*( * ) IFMT
CHARACTER IFMT*( * )
INTEGER IDIGIT, LDA, LOUT, M, N
* ..
* .. Array Arguments ..
PARPACK/UTIL/BLACS/psvout.f
+1 -1
View File
@@ -31,7 +31,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
* .. Scalar Arguments ..
CHARACTER*( * ) IFMT
CHARACTER IFMT*( * )
INTEGER IDIGIT, LOUT, N
* ..
* .. Array Arguments ..
PARPACK/UTIL/MPI/pdmout.f
+1 -1
View File
@@ -33,7 +33,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
* .. Scalar Arguments ..
CHARACTER*( * ) IFMT
CHARACTER IFMT*( * )
INTEGER IDIGIT, LDA, LOUT, M, N
* ..
* .. Array Arguments ..
PARPACK/UTIL/MPI/pdvout.f
+1 -1
View File
@@ -30,7 +30,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
* .. Scalar Arguments ..
CHARACTER*( * ) IFMT
CHARACTER IFMT*( * )
INTEGER IDIGIT, LOUT, N
* ..
* .. Array Arguments ..
PARPACK/UTIL/MPI/psmout.f
+1 -1
View File
@@ -33,7 +33,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
* .. Scalar Arguments ..
CHARACTER*( * ) IFMT
CHARACTER IFMT*( * )
INTEGER IDIGIT, LDA, LOUT, M, N
* ..
* .. Array Arguments ..
PARPACK/UTIL/MPI/psvout.f
+1 -1
View File
@@ -30,7 +30,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
* .. Scalar Arguments ..
CHARACTER*( * ) IFMT
CHARACTER IFMT*( * )
INTEGER IDIGIT, LOUT, N
* ..
* .. Array Arguments ..
TESTS/mmio.f
+5 -5
View File
@@ -641,7 +641,7 @@ c
integer indx(*)
integer jndx(*)
integer i, rows, cols, nnz, nnzreq, ounit
character*(*)rep,field,symm
character rep*(*),field*(*),symm*(*)
c
c Test input qualifiers:
c
@@ -753,7 +753,7 @@ c Convert uppercase letters to lowercase letters in string with
c starting position pos and length len.
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
integer pos, len
character*(*) string
character string*(*)
character lcase*26, ucase*26
save lcase,ucase
@@ -780,8 +780,8 @@ c
c 30-Oct-96 Bug fix: fixed non-ansi zero stringlength
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
integer slen, start, next, begin, space, wlen
character*(*) word
character*(*) string
character word*(*)
character string*(*)
begin = start
do 5 i=start,slen
@@ -809,7 +809,7 @@ c Countwd counts the number of words in string starting
c at position start. On return, count is the number of words.
c 30-Oct-96 Routine added
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
character*(*) string
character string*(*)
integer slen, start, next, wordlength, count
character tmp2*2
UTIL/dmout.f
+1 -1
View File
@@ -24,7 +24,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
* .. Scalar Arguments ..
CHARACTER*( * ) IFMT
CHARACTER IFMT*( * )
INTEGER IDIGIT, LDA, LOUT, M, N
* ..
* .. Array Arguments ..
UTIL/dvout.f
+1 -1
View File
@@ -21,7 +21,7 @@
* ...
* ... SPECIFICATIONS FOR LOCAL VARIABLES
* .. Scalar Arguments ..
CHARACTER*( * ) IFMT
CHARACTER IFMT*( * )
INTEGER IDIGIT, LOUT, N
* ..
* .. Array Arguments ..