* Re: [PR REVIEW] arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
@ 2021-01-01 20:12 ` ericonr
2021-01-01 20:13 ` ericonr
` (11 subsequent siblings)
12 siblings, 0 replies; 14+ messages in thread
From: ericonr @ 2021-01-01 20:12 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 196 bytes --]
New review comment by ericonr on void-packages repository
https://github.com/void-linux/void-packages/pull/27605#discussion_r550802325
Comment:
I think you need to drop enable-shared from here?
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: [PR REVIEW] arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
2021-01-01 20:12 ` [PR REVIEW] " ericonr
@ 2021-01-01 20:13 ` ericonr
2021-01-01 20:15 ` [PR PATCH] [Updated] " olafmersmann
` (10 subsequent siblings)
12 siblings, 0 replies; 14+ messages in thread
From: ericonr @ 2021-01-01 20:13 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 196 bytes --]
New review comment by ericonr on void-packages repository
https://github.com/void-linux/void-packages/pull/27605#discussion_r550802325
Comment:
I think you need to drop enable-static from here?
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: [PR PATCH] [Updated] arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
2021-01-01 20:12 ` [PR REVIEW] " ericonr
2021-01-01 20:13 ` ericonr
@ 2021-01-01 20:15 ` olafmersmann
2021-01-01 20:16 ` [PR REVIEW] " olafmersmann
` (9 subsequent siblings)
12 siblings, 0 replies; 14+ messages in thread
From: olafmersmann @ 2021-01-01 20:15 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 447 bytes --]
There is an updated pull request by olafmersmann against master on the void-packages repository
https://github.com/olafmersmann/void-packages arpack-ng
https://github.com/void-linux/void-packages/pull/27605
arpack-ng: update to 3.8.0.
Since version 3.8.0 arpack-ng does not build the static library by default. I therefore dropped it from the package.
A patch file from https://github.com/void-linux/void-packages/pull/27605.patch is attached
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: github-pr-arpack-ng-27605.patch --]
[-- Type: text/x-diff, Size: 48997 bytes --]
From cbffa56e7a580ac477fd15b95acee0db7f5172fd Mon Sep 17 00:00:00 2001
From: Olaf Mersmann <olafm@p-value.net>
Date: Thu, 31 Dec 2020 20:26:01 +0100
Subject: [PATCH 1/2] arpack-ng: update to 3.8.0.
---
.../arpack-ng/patches/fix-gcc10-vector.patch | 1118 -----------------
srcpkgs/arpack-ng/template | 6 +-
2 files changed, 3 insertions(+), 1121 deletions(-)
delete mode 100644 srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
diff --git a/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch b/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
deleted file mode 100644
index 0a9a4048d7e..00000000000
--- a/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
+++ /dev/null
@@ -1,1118 +0,0 @@
-Source: https://github.com/opencollab/arpack-ng/commit/9418632214acf6d387896ab29a8f5bdff2d4e38a
-
---- SRC/cgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cgetv0.f 2020-09-24 17:26:05.335777763 +0200
-@@ -361,9 +361,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm0, ndigit,
-+ call svout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -394,7 +394,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 2) then
---- SRC/cnaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaitr.f 2020-09-24 17:26:05.336777763 +0200
-@@ -378,9 +378,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -400,7 +400,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -729,7 +729,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0 ) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- rtemp(1) = rnorm
---- SRC/cnapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnapps.f 2020-09-24 17:26:05.336777763 +0200
-@@ -268,9 +268,9 @@
- sigma = shift(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call cvout (logfil, 1, sigma, ndigit,
-+ call cvout (logfil, 1, [sigma], ndigit,
- & '_napps: Value of the shift ')
- end if
- c
-@@ -291,9 +291,9 @@
- if ( abs(real(h(i+1,i)))
- & .le. max(ulp*tst1, smlnum) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call cvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -307,9 +307,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -485,7 +485,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call cvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call cmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/cnaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaup2.f 2020-09-24 17:26:05.336777763 +0200
-@@ -389,7 +389,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -402,9 +402,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -430,7 +430,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -658,7 +658,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -698,7 +698,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call cvout (logfil, np, ritz, ndigit,
- & '_naup2: values of the shifts')
-@@ -762,7 +762,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call cmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/cnaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaupd.f 2020-09-24 17:26:05.336777763 +0200
-@@ -601,9 +601,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call cvout (logfil, np, workl(ritz), ndigit,
- & '_naupd: The final Ritz values')
---- SRC/cneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cneupd.f 2020-09-24 17:26:05.337777763 +0200
-@@ -536,9 +536,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/cngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cngets.f 2020-09-24 17:26:05.337777763 +0200
-@@ -161,8 +161,8 @@
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call cvout (logfil, kev+np, ritz, ndigit,
- & '_ngets: Eigenvalues of current H matrix ')
- call cvout (logfil, kev+np, bounds, ndigit,
---- SRC/dgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dgetv0.f 2020-09-24 17:26:05.337777763 +0200
-@@ -366,9 +366,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm0, ndigit,
-+ call dvout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -399,7 +399,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 3) then
---- SRC/dnaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaitr.f 2020-09-24 17:26:05.337777763 +0200
-@@ -371,9 +371,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -393,7 +393,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -721,7 +721,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/dnapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnapps.f 2020-09-24 17:26:05.338777763 +0200
-@@ -266,11 +266,11 @@
- sigmai = shifti(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call dvout (logfil, 1, sigmar, ndigit,
-+ call dvout (logfil, 1, [sigmar], ndigit,
- & '_napps: The real part of the shift ')
-- call dvout (logfil, 1, sigmai, ndigit,
-+ call dvout (logfil, 1, [sigmai], ndigit,
- & '_napps: The imaginary part of the shift ')
- end if
- c
-@@ -335,9 +335,9 @@
- & tst1 = dlanhs( '1', kplusp-jj+1, h, ldh, workl )
- if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call dvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -351,9 +351,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -627,7 +627,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call dvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call dmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/dnaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaup2.f 2020-09-24 17:26:05.338777763 +0200
-@@ -388,7 +388,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -401,9 +401,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -435,7 +435,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -689,7 +689,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -741,7 +741,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call dvout (logfil, np, ritzr, ndigit,
- & '_naup2: Real part of the shifts')
-@@ -807,7 +807,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call dmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/dnaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaupd.f 2020-09-24 17:26:05.338777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call dvout (logfil, np, workl(ritzr), ndigit,
- & '_naupd: Real part of the final Ritz values')
---- SRC/dneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dneupd.f 2020-09-24 17:26:05.339777763 +0200
-@@ -601,9 +601,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/dngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dngets.f 2020-09-24 17:26:05.339777763 +0200
-@@ -212,8 +212,8 @@
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call dvout (logfil, kev+np, ritzr, ndigit,
- & '_ngets: Eigenvalues of current H matrix -- real part')
- call dvout (logfil, kev+np, ritzi, ndigit,
---- SRC/dsaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaitr.f 2020-09-24 17:26:05.339777763 +0200
-@@ -364,9 +364,9 @@
- 1000 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: generating Arnoldi vector no.')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saitr: B-norm of the current residual =')
- end if
- c
-@@ -384,7 +384,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: ****** restart at step ******')
- end if
- c
-@@ -735,7 +735,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/dsapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsapps.f 2020-09-24 17:26:05.339777763 +0200
-@@ -261,9 +261,9 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_sapps: occurred before shift number.')
- call dvout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
-@@ -432,7 +432,7 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
- call dvout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
---- SRC/dsaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaup2.f 2020-09-24 17:26:05.339777763 +0200
-@@ -402,13 +402,13 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_saup2: **** Start of major iteration number ****')
- end if
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_saup2: The length of the current Lanczos factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: Extend the Lanczos factorization by')
- end if
- c
-@@ -446,7 +446,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saup2: Current B-norm of residual for factorization')
- end if
- c
-@@ -695,7 +695,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_saup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -743,7 +743,7 @@
- if (ishift .eq. 0) call dcopy (np, workl, 1, ritz, 1)
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: The number of shifts to apply ')
- call dvout (logfil, np, workl, ndigit,
- & '_saup2: shifts selected')
-@@ -810,7 +810,7 @@
- 130 continue
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saup2: B-norm of residual for NEV factorization')
- call dvout (logfil, nev, h(1,2), ndigit,
- & '_saup2: main diagonal of compressed H matrix')
---- SRC/dsaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaupd.f 2020-09-24 17:26:05.339777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_saupd: number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saupd: number of "converged" Ritz values')
- call dvout (logfil, np, workl(Ritz), ndigit,
- & '_saupd: final Ritz values')
---- SRC/dseupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dseupd.f 2020-09-24 17:26:05.340777763 +0200
-@@ -513,9 +513,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_seupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_seupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/dsgets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsgets.f 2020-09-24 17:26:05.340777763 +0200
-@@ -202,8 +202,8 @@
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
- call dvout (logfil, kev+np, ritz, ndigit,
- & '_sgets: Eigenvalues of current H matrix')
- call dvout (logfil, kev+np, bounds, ndigit,
---- SRC/sgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sgetv0.f 2020-09-24 17:26:05.342777763 +0200
-@@ -366,9 +366,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm0, ndigit,
-+ call svout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -399,7 +399,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 3) then
---- SRC/snaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaitr.f 2020-09-24 17:26:05.342777763 +0200
-@@ -371,9 +371,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -393,7 +393,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -721,7 +721,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/snapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snapps.f 2020-09-24 17:26:05.342777763 +0200
-@@ -266,11 +266,11 @@
- sigmai = shifti(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call svout (logfil, 1, sigmar, ndigit,
-+ call svout (logfil, 1, [sigmar], ndigit,
- & '_napps: The real part of the shift ')
-- call svout (logfil, 1, sigmai, ndigit,
-+ call svout (logfil, 1, [sigmai], ndigit,
- & '_napps: The imaginary part of the shift ')
- end if
- c
-@@ -335,9 +335,9 @@
- & tst1 = slanhs( '1', kplusp-jj+1, h, ldh, workl )
- if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call svout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -351,9 +351,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -625,7 +625,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call svout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call smout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/snaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaup2.f 2020-09-24 17:26:05.342777763 +0200
-@@ -388,7 +388,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -401,9 +401,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -435,7 +435,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -690,7 +690,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -742,7 +742,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call svout (logfil, np, ritzr, ndigit,
- & '_naup2: Real part of the shifts')
-@@ -808,7 +808,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call smout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/snaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaupd.f 2020-09-24 17:26:05.343777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call svout (logfil, np, workl(ritzr), ndigit,
- & '_naupd: Real part of the final Ritz values')
---- SRC/sneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sneupd.f 2020-09-24 17:26:05.343777763 +0200
-@@ -601,9 +601,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/sngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sngets.f 2020-09-24 17:26:05.344777764 +0200
-@@ -212,8 +212,8 @@
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call svout (logfil, kev+np, ritzr, ndigit,
- & '_ngets: Eigenvalues of current H matrix -- real part')
- call svout (logfil, kev+np, ritzi, ndigit,
---- SRC/ssaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaitr.f 2020-09-24 17:26:05.344777764 +0200
-@@ -364,9 +364,9 @@
- 1000 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: generating Arnoldi vector no.')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saitr: B-norm of the current residual =')
- end if
- c
-@@ -384,7 +384,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: ****** restart at step ******')
- end if
- c
-@@ -735,7 +735,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/ssapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssapps.f 2020-09-24 17:26:05.344777764 +0200
-@@ -261,9 +261,9 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_sapps: occurred before shift number.')
- call svout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
-@@ -432,7 +432,7 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
- call svout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
---- SRC/ssaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaup2.f 2020-09-24 17:26:05.344777764 +0200
-@@ -402,13 +402,13 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_saup2: **** Start of major iteration number ****')
- end if
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_saup2: The length of the current Lanczos factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: Extend the Lanczos factorization by')
- end if
- c
-@@ -446,7 +446,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saup2: Current B-norm of residual for factorization')
- end if
- c
-@@ -694,7 +694,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_saup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -742,7 +742,7 @@
- if (ishift .eq. 0) call scopy (np, workl, 1, ritz, 1)
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: The number of shifts to apply ')
- call svout (logfil, np, workl, ndigit,
- & '_saup2: shifts selected')
-@@ -809,7 +809,7 @@
- 130 continue
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saup2: B-norm of residual for NEV factorization')
- call svout (logfil, nev, h(1,2), ndigit,
- & '_saup2: main diagonal of compressed H matrix')
---- SRC/ssaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaupd.f 2020-09-24 17:26:05.344777764 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_saupd: number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saupd: number of "converged" Ritz values')
- call svout (logfil, np, workl(Ritz), ndigit,
- & '_saupd: final Ritz values')
---- SRC/sseupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sseupd.f 2020-09-24 17:26:05.345777764 +0200
-@@ -513,9 +513,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_seupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_seupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/ssgets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssgets.f 2020-09-24 17:26:05.345777764 +0200
-@@ -202,8 +202,8 @@
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
- call svout (logfil, kev+np, ritz, ndigit,
- & '_sgets: Eigenvalues of current H matrix')
- call svout (logfil, kev+np, bounds, ndigit,
---- SRC/zgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zgetv0.f 2020-09-24 17:26:05.346777764 +0200
-@@ -361,9 +361,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm0, ndigit,
-+ call dvout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -394,7 +394,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 2) then
---- SRC/znaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaitr.f 2020-09-24 17:26:05.347777764 +0200
-@@ -378,9 +378,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -400,7 +400,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -729,7 +729,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0 ) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- rtemp(1) = rnorm
---- SRC/znapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znapps.f 2020-09-24 17:26:05.347777764 +0200
-@@ -268,9 +268,9 @@
- sigma = shift(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call zvout (logfil, 1, sigma, ndigit,
-+ call zvout (logfil, 1, [sigma], ndigit,
- & '_napps: Value of the shift ')
- end if
- c
-@@ -291,9 +291,9 @@
- if ( abs(dble(h(i+1,i)))
- & .le. max(ulp*tst1, smlnum) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call zvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -307,9 +307,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -485,7 +485,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call zvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call zmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/znaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaup2.f 2020-09-24 17:26:05.347777764 +0200
-@@ -389,7 +389,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -402,9 +402,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -430,7 +430,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -658,7 +658,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -698,7 +698,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call zvout (logfil, np, ritz, ndigit,
- & '_naup2: values of the shifts')
-@@ -762,7 +762,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call zmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/znaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaupd.f 2020-09-24 17:26:05.347777764 +0200
-@@ -601,9 +601,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call zvout (logfil, np, workl(ritz), ndigit,
- & '_naupd: The final Ritz values')
---- SRC/zneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zneupd.f 2020-09-24 17:26:05.348777764 +0200
-@@ -536,9 +536,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/zngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zngets.f 2020-09-24 17:26:05.348777764 +0200
-@@ -161,8 +161,8 @@
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call zvout (logfil, kev+np, ritz, ndigit,
- & '_ngets: Eigenvalues of current H matrix ')
- call zvout (logfil, kev+np, bounds, ndigit,
diff --git a/srcpkgs/arpack-ng/template b/srcpkgs/arpack-ng/template
index ce95a267dd8..fb8f8d0dca5 100644
--- a/srcpkgs/arpack-ng/template
+++ b/srcpkgs/arpack-ng/template
@@ -1,6 +1,6 @@
# Template file for 'arpack-ng'
pkgname=arpack-ng
-version=3.7.0
+version=3.8.0
revision=1
build_style=gnu-configure
hostmakedepends="automake libtool gcc-fortran pkg-config"
@@ -11,7 +11,7 @@ license="BSD-3-Clause"
homepage="https://github.com/opencollab/arpack-ng"
changelog="https://raw.githubusercontent.com/opencollab/arpack-ng/master/CHANGES"
distfiles="https://github.com/opencollab/arpack-ng/archive/${version}.tar.gz"
-checksum=972e3fc3cd0b9d6b5a737c9bf6fd07515c0d6549319d4ffb06970e64fa3cc2d6
+checksum=ada5aeb3878874383307239c9235b716a8a170c6d096a6625bfd529844df003d
pre_configure() {
./bootstrap
@@ -25,8 +25,8 @@ arpack-ng-devel_package() {
short_desc+=" - development files"
depends="${makedepends} ${sourcepkg}>=${version}_${revision}"
pkg_install() {
- vmove "usr/lib/*.a"
vmove "usr/lib/*.so"
+ vmove usr/lib/cmake
vmove usr/lib/pkgconfig
}
}
From 820dbab9203def9d56be46a578f7afdcdec115da Mon Sep 17 00:00:00 2001
From: Olaf Mersmann <olafm@p-value.net>
Date: Thu, 31 Dec 2020 20:26:16 +0100
Subject: [PATCH 2/2] octave: revbump for arpack-ng
---
srcpkgs/octave/template | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/srcpkgs/octave/template b/srcpkgs/octave/template
index 1ca9e663229..faac10a9818 100644
--- a/srcpkgs/octave/template
+++ b/srcpkgs/octave/template
@@ -1,7 +1,7 @@
# Template file for 'octave'
pkgname=octave
version=5.2.0
-revision=1
+revision=2
build_style=gnu-configure
configure_args=" --with-blas=openblas --with-lapack=openblas"
hostmakedepends="perl gcc-fortran pkg-config gnuplot"
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: [PR REVIEW] arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
` (2 preceding siblings ...)
2021-01-01 20:15 ` [PR PATCH] [Updated] " olafmersmann
@ 2021-01-01 20:16 ` olafmersmann
2021-01-01 20:21 ` ericonr
` (8 subsequent siblings)
12 siblings, 0 replies; 14+ messages in thread
From: olafmersmann @ 2021-01-01 20:16 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 260 bytes --]
New review comment by olafmersmann on void-packages repository
https://github.com/void-linux/void-packages/pull/27605#discussion_r550802803
Comment:
Oops, fixed. What is the general policy w.r.t. static libraries? Should they be included if at all possible?
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: [PR REVIEW] arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
` (3 preceding siblings ...)
2021-01-01 20:16 ` [PR REVIEW] " olafmersmann
@ 2021-01-01 20:21 ` ericonr
2021-01-02 0:47 ` ericonr
` (7 subsequent siblings)
12 siblings, 0 replies; 14+ messages in thread
From: ericonr @ 2021-01-01 20:21 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 344 bytes --]
New review comment by ericonr on void-packages repository
https://github.com/void-linux/void-packages/pull/27605#discussion_r550803260
Comment:
If it's easy to build them, I'm okay with including. This doesn't much look like something that would be used in a static binary that needs to be used in multiple places, so imo it's ok to omit it.
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
` (4 preceding siblings ...)
2021-01-01 20:21 ` ericonr
@ 2021-01-02 0:47 ` ericonr
2021-01-02 10:12 ` [PR PATCH] [Updated] " olafmersmann
` (6 subsequent siblings)
12 siblings, 0 replies; 14+ messages in thread
From: ericonr @ 2021-01-02 0:47 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 212 bytes --]
New comment by ericonr on void-packages repository
https://github.com/void-linux/void-packages/pull/27605#issuecomment-753410948
Comment:
Is revbumping octave necessary? It doesn't seem to have changed soname.
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: [PR PATCH] [Updated] arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
` (5 preceding siblings ...)
2021-01-02 0:47 ` ericonr
@ 2021-01-02 10:12 ` olafmersmann
2021-01-02 19:49 ` olafmersmann
` (5 subsequent siblings)
12 siblings, 0 replies; 14+ messages in thread
From: olafmersmann @ 2021-01-02 10:12 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 447 bytes --]
There is an updated pull request by olafmersmann against master on the void-packages repository
https://github.com/olafmersmann/void-packages arpack-ng
https://github.com/void-linux/void-packages/pull/27605
arpack-ng: update to 3.8.0.
Since version 3.8.0 arpack-ng does not build the static library by default. I therefore dropped it from the package.
A patch file from https://github.com/void-linux/void-packages/pull/27605.patch is attached
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: github-pr-arpack-ng-27605.patch --]
[-- Type: text/x-diff, Size: 48668 bytes --]
From 7d61b4b78e00e92513b2621ad973ee61a38af962 Mon Sep 17 00:00:00 2001
From: Olaf Mersmann <olafm@p-value.net>
Date: Thu, 31 Dec 2020 20:26:01 +0100
Subject: [PATCH] arpack-ng: update to 3.8.0.
Other changes:
* Use OpenBLAS for BLAS and LAPACK routines.
* Move header files into -devel package.
---
.../arpack-ng/patches/fix-gcc10-vector.patch | 1118 -----------------
srcpkgs/arpack-ng/template | 12 +-
2 files changed, 7 insertions(+), 1123 deletions(-)
delete mode 100644 srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
diff --git a/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch b/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
deleted file mode 100644
index 0a9a4048d7e..00000000000
--- a/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
+++ /dev/null
@@ -1,1118 +0,0 @@
-Source: https://github.com/opencollab/arpack-ng/commit/9418632214acf6d387896ab29a8f5bdff2d4e38a
-
---- SRC/cgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cgetv0.f 2020-09-24 17:26:05.335777763 +0200
-@@ -361,9 +361,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm0, ndigit,
-+ call svout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -394,7 +394,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 2) then
---- SRC/cnaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaitr.f 2020-09-24 17:26:05.336777763 +0200
-@@ -378,9 +378,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -400,7 +400,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -729,7 +729,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0 ) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- rtemp(1) = rnorm
---- SRC/cnapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnapps.f 2020-09-24 17:26:05.336777763 +0200
-@@ -268,9 +268,9 @@
- sigma = shift(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call cvout (logfil, 1, sigma, ndigit,
-+ call cvout (logfil, 1, [sigma], ndigit,
- & '_napps: Value of the shift ')
- end if
- c
-@@ -291,9 +291,9 @@
- if ( abs(real(h(i+1,i)))
- & .le. max(ulp*tst1, smlnum) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call cvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -307,9 +307,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -485,7 +485,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call cvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call cmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/cnaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaup2.f 2020-09-24 17:26:05.336777763 +0200
-@@ -389,7 +389,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -402,9 +402,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -430,7 +430,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -658,7 +658,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -698,7 +698,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call cvout (logfil, np, ritz, ndigit,
- & '_naup2: values of the shifts')
-@@ -762,7 +762,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call cmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/cnaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaupd.f 2020-09-24 17:26:05.336777763 +0200
-@@ -601,9 +601,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call cvout (logfil, np, workl(ritz), ndigit,
- & '_naupd: The final Ritz values')
---- SRC/cneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cneupd.f 2020-09-24 17:26:05.337777763 +0200
-@@ -536,9 +536,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/cngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cngets.f 2020-09-24 17:26:05.337777763 +0200
-@@ -161,8 +161,8 @@
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call cvout (logfil, kev+np, ritz, ndigit,
- & '_ngets: Eigenvalues of current H matrix ')
- call cvout (logfil, kev+np, bounds, ndigit,
---- SRC/dgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dgetv0.f 2020-09-24 17:26:05.337777763 +0200
-@@ -366,9 +366,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm0, ndigit,
-+ call dvout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -399,7 +399,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 3) then
---- SRC/dnaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaitr.f 2020-09-24 17:26:05.337777763 +0200
-@@ -371,9 +371,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -393,7 +393,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -721,7 +721,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/dnapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnapps.f 2020-09-24 17:26:05.338777763 +0200
-@@ -266,11 +266,11 @@
- sigmai = shifti(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call dvout (logfil, 1, sigmar, ndigit,
-+ call dvout (logfil, 1, [sigmar], ndigit,
- & '_napps: The real part of the shift ')
-- call dvout (logfil, 1, sigmai, ndigit,
-+ call dvout (logfil, 1, [sigmai], ndigit,
- & '_napps: The imaginary part of the shift ')
- end if
- c
-@@ -335,9 +335,9 @@
- & tst1 = dlanhs( '1', kplusp-jj+1, h, ldh, workl )
- if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call dvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -351,9 +351,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -627,7 +627,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call dvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call dmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/dnaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaup2.f 2020-09-24 17:26:05.338777763 +0200
-@@ -388,7 +388,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -401,9 +401,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -435,7 +435,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -689,7 +689,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -741,7 +741,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call dvout (logfil, np, ritzr, ndigit,
- & '_naup2: Real part of the shifts')
-@@ -807,7 +807,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call dmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/dnaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaupd.f 2020-09-24 17:26:05.338777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call dvout (logfil, np, workl(ritzr), ndigit,
- & '_naupd: Real part of the final Ritz values')
---- SRC/dneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dneupd.f 2020-09-24 17:26:05.339777763 +0200
-@@ -601,9 +601,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/dngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dngets.f 2020-09-24 17:26:05.339777763 +0200
-@@ -212,8 +212,8 @@
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call dvout (logfil, kev+np, ritzr, ndigit,
- & '_ngets: Eigenvalues of current H matrix -- real part')
- call dvout (logfil, kev+np, ritzi, ndigit,
---- SRC/dsaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaitr.f 2020-09-24 17:26:05.339777763 +0200
-@@ -364,9 +364,9 @@
- 1000 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: generating Arnoldi vector no.')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saitr: B-norm of the current residual =')
- end if
- c
-@@ -384,7 +384,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: ****** restart at step ******')
- end if
- c
-@@ -735,7 +735,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/dsapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsapps.f 2020-09-24 17:26:05.339777763 +0200
-@@ -261,9 +261,9 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_sapps: occurred before shift number.')
- call dvout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
-@@ -432,7 +432,7 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
- call dvout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
---- SRC/dsaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaup2.f 2020-09-24 17:26:05.339777763 +0200
-@@ -402,13 +402,13 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_saup2: **** Start of major iteration number ****')
- end if
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_saup2: The length of the current Lanczos factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: Extend the Lanczos factorization by')
- end if
- c
-@@ -446,7 +446,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saup2: Current B-norm of residual for factorization')
- end if
- c
-@@ -695,7 +695,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_saup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -743,7 +743,7 @@
- if (ishift .eq. 0) call dcopy (np, workl, 1, ritz, 1)
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: The number of shifts to apply ')
- call dvout (logfil, np, workl, ndigit,
- & '_saup2: shifts selected')
-@@ -810,7 +810,7 @@
- 130 continue
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saup2: B-norm of residual for NEV factorization')
- call dvout (logfil, nev, h(1,2), ndigit,
- & '_saup2: main diagonal of compressed H matrix')
---- SRC/dsaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaupd.f 2020-09-24 17:26:05.339777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_saupd: number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saupd: number of "converged" Ritz values')
- call dvout (logfil, np, workl(Ritz), ndigit,
- & '_saupd: final Ritz values')
---- SRC/dseupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dseupd.f 2020-09-24 17:26:05.340777763 +0200
-@@ -513,9 +513,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_seupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_seupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/dsgets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsgets.f 2020-09-24 17:26:05.340777763 +0200
-@@ -202,8 +202,8 @@
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
- call dvout (logfil, kev+np, ritz, ndigit,
- & '_sgets: Eigenvalues of current H matrix')
- call dvout (logfil, kev+np, bounds, ndigit,
---- SRC/sgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sgetv0.f 2020-09-24 17:26:05.342777763 +0200
-@@ -366,9 +366,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm0, ndigit,
-+ call svout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -399,7 +399,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 3) then
---- SRC/snaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaitr.f 2020-09-24 17:26:05.342777763 +0200
-@@ -371,9 +371,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -393,7 +393,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -721,7 +721,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/snapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snapps.f 2020-09-24 17:26:05.342777763 +0200
-@@ -266,11 +266,11 @@
- sigmai = shifti(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call svout (logfil, 1, sigmar, ndigit,
-+ call svout (logfil, 1, [sigmar], ndigit,
- & '_napps: The real part of the shift ')
-- call svout (logfil, 1, sigmai, ndigit,
-+ call svout (logfil, 1, [sigmai], ndigit,
- & '_napps: The imaginary part of the shift ')
- end if
- c
-@@ -335,9 +335,9 @@
- & tst1 = slanhs( '1', kplusp-jj+1, h, ldh, workl )
- if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call svout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -351,9 +351,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -625,7 +625,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call svout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call smout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/snaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaup2.f 2020-09-24 17:26:05.342777763 +0200
-@@ -388,7 +388,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -401,9 +401,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -435,7 +435,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -690,7 +690,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -742,7 +742,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call svout (logfil, np, ritzr, ndigit,
- & '_naup2: Real part of the shifts')
-@@ -808,7 +808,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call smout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/snaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaupd.f 2020-09-24 17:26:05.343777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call svout (logfil, np, workl(ritzr), ndigit,
- & '_naupd: Real part of the final Ritz values')
---- SRC/sneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sneupd.f 2020-09-24 17:26:05.343777763 +0200
-@@ -601,9 +601,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/sngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sngets.f 2020-09-24 17:26:05.344777764 +0200
-@@ -212,8 +212,8 @@
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call svout (logfil, kev+np, ritzr, ndigit,
- & '_ngets: Eigenvalues of current H matrix -- real part')
- call svout (logfil, kev+np, ritzi, ndigit,
---- SRC/ssaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaitr.f 2020-09-24 17:26:05.344777764 +0200
-@@ -364,9 +364,9 @@
- 1000 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: generating Arnoldi vector no.')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saitr: B-norm of the current residual =')
- end if
- c
-@@ -384,7 +384,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: ****** restart at step ******')
- end if
- c
-@@ -735,7 +735,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/ssapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssapps.f 2020-09-24 17:26:05.344777764 +0200
-@@ -261,9 +261,9 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_sapps: occurred before shift number.')
- call svout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
-@@ -432,7 +432,7 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
- call svout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
---- SRC/ssaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaup2.f 2020-09-24 17:26:05.344777764 +0200
-@@ -402,13 +402,13 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_saup2: **** Start of major iteration number ****')
- end if
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_saup2: The length of the current Lanczos factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: Extend the Lanczos factorization by')
- end if
- c
-@@ -446,7 +446,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saup2: Current B-norm of residual for factorization')
- end if
- c
-@@ -694,7 +694,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_saup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -742,7 +742,7 @@
- if (ishift .eq. 0) call scopy (np, workl, 1, ritz, 1)
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: The number of shifts to apply ')
- call svout (logfil, np, workl, ndigit,
- & '_saup2: shifts selected')
-@@ -809,7 +809,7 @@
- 130 continue
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saup2: B-norm of residual for NEV factorization')
- call svout (logfil, nev, h(1,2), ndigit,
- & '_saup2: main diagonal of compressed H matrix')
---- SRC/ssaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaupd.f 2020-09-24 17:26:05.344777764 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_saupd: number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saupd: number of "converged" Ritz values')
- call svout (logfil, np, workl(Ritz), ndigit,
- & '_saupd: final Ritz values')
---- SRC/sseupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sseupd.f 2020-09-24 17:26:05.345777764 +0200
-@@ -513,9 +513,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_seupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_seupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/ssgets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssgets.f 2020-09-24 17:26:05.345777764 +0200
-@@ -202,8 +202,8 @@
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
- call svout (logfil, kev+np, ritz, ndigit,
- & '_sgets: Eigenvalues of current H matrix')
- call svout (logfil, kev+np, bounds, ndigit,
---- SRC/zgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zgetv0.f 2020-09-24 17:26:05.346777764 +0200
-@@ -361,9 +361,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm0, ndigit,
-+ call dvout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -394,7 +394,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 2) then
---- SRC/znaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaitr.f 2020-09-24 17:26:05.347777764 +0200
-@@ -378,9 +378,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -400,7 +400,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -729,7 +729,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0 ) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- rtemp(1) = rnorm
---- SRC/znapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znapps.f 2020-09-24 17:26:05.347777764 +0200
-@@ -268,9 +268,9 @@
- sigma = shift(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call zvout (logfil, 1, sigma, ndigit,
-+ call zvout (logfil, 1, [sigma], ndigit,
- & '_napps: Value of the shift ')
- end if
- c
-@@ -291,9 +291,9 @@
- if ( abs(dble(h(i+1,i)))
- & .le. max(ulp*tst1, smlnum) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call zvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -307,9 +307,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -485,7 +485,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call zvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call zmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/znaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaup2.f 2020-09-24 17:26:05.347777764 +0200
-@@ -389,7 +389,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -402,9 +402,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -430,7 +430,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -658,7 +658,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -698,7 +698,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call zvout (logfil, np, ritz, ndigit,
- & '_naup2: values of the shifts')
-@@ -762,7 +762,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call zmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/znaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaupd.f 2020-09-24 17:26:05.347777764 +0200
-@@ -601,9 +601,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call zvout (logfil, np, workl(ritz), ndigit,
- & '_naupd: The final Ritz values')
---- SRC/zneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zneupd.f 2020-09-24 17:26:05.348777764 +0200
-@@ -536,9 +536,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/zngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zngets.f 2020-09-24 17:26:05.348777764 +0200
-@@ -161,8 +161,8 @@
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call zvout (logfil, kev+np, ritz, ndigit,
- & '_ngets: Eigenvalues of current H matrix ')
- call zvout (logfil, kev+np, bounds, ndigit,
diff --git a/srcpkgs/arpack-ng/template b/srcpkgs/arpack-ng/template
index ce95a267dd8..1955d51d3ff 100644
--- a/srcpkgs/arpack-ng/template
+++ b/srcpkgs/arpack-ng/template
@@ -1,17 +1,18 @@
# Template file for 'arpack-ng'
pkgname=arpack-ng
-version=3.7.0
+version=3.8.0
revision=1
build_style=gnu-configure
+configure_args=" --with-blas=openblas --with-lapack=openblas"
hostmakedepends="automake libtool gcc-fortran pkg-config"
-makedepends="lapack-devel eigen"
+makedepends="openblas-devel eigen"
short_desc="Collection of Fortran77 subroutines"
maintainer="Diogo Leal <diogo@diogoleal.com>"
license="BSD-3-Clause"
homepage="https://github.com/opencollab/arpack-ng"
changelog="https://raw.githubusercontent.com/opencollab/arpack-ng/master/CHANGES"
distfiles="https://github.com/opencollab/arpack-ng/archive/${version}.tar.gz"
-checksum=972e3fc3cd0b9d6b5a737c9bf6fd07515c0d6549319d4ffb06970e64fa3cc2d6
+checksum=ada5aeb3878874383307239c9235b716a8a170c6d096a6625bfd529844df003d
pre_configure() {
./bootstrap
@@ -25,8 +26,9 @@ arpack-ng-devel_package() {
short_desc+=" - development files"
depends="${makedepends} ${sourcepkg}>=${version}_${revision}"
pkg_install() {
- vmove "usr/lib/*.a"
- vmove "usr/lib/*.so"
+ vmove usr/lib/cmake
vmove usr/lib/pkgconfig
+ vmove usr/include/arpack
+ vmove "usr/lib/*.so"
}
}
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
` (6 preceding siblings ...)
2021-01-02 10:12 ` [PR PATCH] [Updated] " olafmersmann
@ 2021-01-02 19:49 ` olafmersmann
2021-01-02 21:34 ` [PR REVIEW] " ericonr
` (4 subsequent siblings)
12 siblings, 0 replies; 14+ messages in thread
From: olafmersmann @ 2021-01-02 19:49 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 272 bytes --]
New comment by olafmersmann on void-packages repository
https://github.com/void-linux/void-packages/pull/27605#issuecomment-753521544
Comment:
> Is revbumping octave necessary? It doesn't seem to have changed soname.
Not necessary. I removed the revbump from the PR.
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: [PR REVIEW] arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
` (7 preceding siblings ...)
2021-01-02 19:49 ` olafmersmann
@ 2021-01-02 21:34 ` ericonr
2021-01-02 23:54 ` [PR PATCH] [Updated] " olafmersmann
` (3 subsequent siblings)
12 siblings, 0 replies; 14+ messages in thread
From: ericonr @ 2021-01-02 21:34 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 425 bytes --]
New review comment by ericonr on void-packages repository
https://github.com/void-linux/void-packages/pull/27605#discussion_r550923562
Comment:
As far as I can see, this will make it not build on mips or ppc (not ppc64) anymore...
Idk if @pullmoll or @q66 care about that, but then it might make sense to clean up the package.
Can you explain here (and in the commit message) the reasoning for switching to openblas?
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: [PR PATCH] [Updated] arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
` (8 preceding siblings ...)
2021-01-02 21:34 ` [PR REVIEW] " ericonr
@ 2021-01-02 23:54 ` olafmersmann
2021-01-03 0:16 ` olafmersmann
` (2 subsequent siblings)
12 siblings, 0 replies; 14+ messages in thread
From: olafmersmann @ 2021-01-02 23:54 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 447 bytes --]
There is an updated pull request by olafmersmann against master on the void-packages repository
https://github.com/olafmersmann/void-packages arpack-ng
https://github.com/void-linux/void-packages/pull/27605
arpack-ng: update to 3.8.0.
Since version 3.8.0 arpack-ng does not build the static library by default. I therefore dropped it from the package.
A patch file from https://github.com/void-linux/void-packages/pull/27605.patch is attached
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: github-pr-arpack-ng-27605.patch --]
[-- Type: text/x-diff, Size: 49370 bytes --]
From 6571c5b68fb20140710649a72b25c3633faac92d Mon Sep 17 00:00:00 2001
From: Olaf Mersmann <olafm@p-value.net>
Date: Thu, 31 Dec 2020 20:26:01 +0100
Subject: [PATCH] arpack-ng: update to 3.8.0.
Instead of using standard BLAS (package blas), use OpenBLAS (package
openblas) if available for the target architecture. Right now the only
package depending on arpack-ng is Octave and it uses OpenBLAS by
default, so I see no reason to use the slower standard BLAS on platforms
where OpenBLAS is available.
Also move headers into the -devel package.
---
.../arpack-ng/patches/fix-gcc10-vector.patch | 1118 -----------------
srcpkgs/arpack-ng/template | 25 +-
2 files changed, 20 insertions(+), 1123 deletions(-)
delete mode 100644 srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
diff --git a/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch b/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
deleted file mode 100644
index 0a9a4048d7e..00000000000
--- a/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
+++ /dev/null
@@ -1,1118 +0,0 @@
-Source: https://github.com/opencollab/arpack-ng/commit/9418632214acf6d387896ab29a8f5bdff2d4e38a
-
---- SRC/cgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cgetv0.f 2020-09-24 17:26:05.335777763 +0200
-@@ -361,9 +361,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm0, ndigit,
-+ call svout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -394,7 +394,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 2) then
---- SRC/cnaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaitr.f 2020-09-24 17:26:05.336777763 +0200
-@@ -378,9 +378,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -400,7 +400,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -729,7 +729,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0 ) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- rtemp(1) = rnorm
---- SRC/cnapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnapps.f 2020-09-24 17:26:05.336777763 +0200
-@@ -268,9 +268,9 @@
- sigma = shift(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call cvout (logfil, 1, sigma, ndigit,
-+ call cvout (logfil, 1, [sigma], ndigit,
- & '_napps: Value of the shift ')
- end if
- c
-@@ -291,9 +291,9 @@
- if ( abs(real(h(i+1,i)))
- & .le. max(ulp*tst1, smlnum) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call cvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -307,9 +307,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -485,7 +485,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call cvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call cmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/cnaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaup2.f 2020-09-24 17:26:05.336777763 +0200
-@@ -389,7 +389,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -402,9 +402,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -430,7 +430,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -658,7 +658,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -698,7 +698,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call cvout (logfil, np, ritz, ndigit,
- & '_naup2: values of the shifts')
-@@ -762,7 +762,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call cmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/cnaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaupd.f 2020-09-24 17:26:05.336777763 +0200
-@@ -601,9 +601,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call cvout (logfil, np, workl(ritz), ndigit,
- & '_naupd: The final Ritz values')
---- SRC/cneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cneupd.f 2020-09-24 17:26:05.337777763 +0200
-@@ -536,9 +536,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/cngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cngets.f 2020-09-24 17:26:05.337777763 +0200
-@@ -161,8 +161,8 @@
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call cvout (logfil, kev+np, ritz, ndigit,
- & '_ngets: Eigenvalues of current H matrix ')
- call cvout (logfil, kev+np, bounds, ndigit,
---- SRC/dgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dgetv0.f 2020-09-24 17:26:05.337777763 +0200
-@@ -366,9 +366,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm0, ndigit,
-+ call dvout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -399,7 +399,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 3) then
---- SRC/dnaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaitr.f 2020-09-24 17:26:05.337777763 +0200
-@@ -371,9 +371,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -393,7 +393,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -721,7 +721,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/dnapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnapps.f 2020-09-24 17:26:05.338777763 +0200
-@@ -266,11 +266,11 @@
- sigmai = shifti(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call dvout (logfil, 1, sigmar, ndigit,
-+ call dvout (logfil, 1, [sigmar], ndigit,
- & '_napps: The real part of the shift ')
-- call dvout (logfil, 1, sigmai, ndigit,
-+ call dvout (logfil, 1, [sigmai], ndigit,
- & '_napps: The imaginary part of the shift ')
- end if
- c
-@@ -335,9 +335,9 @@
- & tst1 = dlanhs( '1', kplusp-jj+1, h, ldh, workl )
- if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call dvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -351,9 +351,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -627,7 +627,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call dvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call dmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/dnaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaup2.f 2020-09-24 17:26:05.338777763 +0200
-@@ -388,7 +388,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -401,9 +401,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -435,7 +435,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -689,7 +689,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -741,7 +741,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call dvout (logfil, np, ritzr, ndigit,
- & '_naup2: Real part of the shifts')
-@@ -807,7 +807,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call dmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/dnaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaupd.f 2020-09-24 17:26:05.338777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call dvout (logfil, np, workl(ritzr), ndigit,
- & '_naupd: Real part of the final Ritz values')
---- SRC/dneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dneupd.f 2020-09-24 17:26:05.339777763 +0200
-@@ -601,9 +601,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/dngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dngets.f 2020-09-24 17:26:05.339777763 +0200
-@@ -212,8 +212,8 @@
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call dvout (logfil, kev+np, ritzr, ndigit,
- & '_ngets: Eigenvalues of current H matrix -- real part')
- call dvout (logfil, kev+np, ritzi, ndigit,
---- SRC/dsaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaitr.f 2020-09-24 17:26:05.339777763 +0200
-@@ -364,9 +364,9 @@
- 1000 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: generating Arnoldi vector no.')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saitr: B-norm of the current residual =')
- end if
- c
-@@ -384,7 +384,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: ****** restart at step ******')
- end if
- c
-@@ -735,7 +735,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/dsapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsapps.f 2020-09-24 17:26:05.339777763 +0200
-@@ -261,9 +261,9 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_sapps: occurred before shift number.')
- call dvout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
-@@ -432,7 +432,7 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
- call dvout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
---- SRC/dsaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaup2.f 2020-09-24 17:26:05.339777763 +0200
-@@ -402,13 +402,13 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_saup2: **** Start of major iteration number ****')
- end if
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_saup2: The length of the current Lanczos factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: Extend the Lanczos factorization by')
- end if
- c
-@@ -446,7 +446,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saup2: Current B-norm of residual for factorization')
- end if
- c
-@@ -695,7 +695,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_saup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -743,7 +743,7 @@
- if (ishift .eq. 0) call dcopy (np, workl, 1, ritz, 1)
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: The number of shifts to apply ')
- call dvout (logfil, np, workl, ndigit,
- & '_saup2: shifts selected')
-@@ -810,7 +810,7 @@
- 130 continue
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saup2: B-norm of residual for NEV factorization')
- call dvout (logfil, nev, h(1,2), ndigit,
- & '_saup2: main diagonal of compressed H matrix')
---- SRC/dsaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaupd.f 2020-09-24 17:26:05.339777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_saupd: number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saupd: number of "converged" Ritz values')
- call dvout (logfil, np, workl(Ritz), ndigit,
- & '_saupd: final Ritz values')
---- SRC/dseupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dseupd.f 2020-09-24 17:26:05.340777763 +0200
-@@ -513,9 +513,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_seupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_seupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/dsgets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsgets.f 2020-09-24 17:26:05.340777763 +0200
-@@ -202,8 +202,8 @@
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
- call dvout (logfil, kev+np, ritz, ndigit,
- & '_sgets: Eigenvalues of current H matrix')
- call dvout (logfil, kev+np, bounds, ndigit,
---- SRC/sgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sgetv0.f 2020-09-24 17:26:05.342777763 +0200
-@@ -366,9 +366,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm0, ndigit,
-+ call svout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -399,7 +399,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 3) then
---- SRC/snaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaitr.f 2020-09-24 17:26:05.342777763 +0200
-@@ -371,9 +371,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -393,7 +393,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -721,7 +721,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/snapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snapps.f 2020-09-24 17:26:05.342777763 +0200
-@@ -266,11 +266,11 @@
- sigmai = shifti(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call svout (logfil, 1, sigmar, ndigit,
-+ call svout (logfil, 1, [sigmar], ndigit,
- & '_napps: The real part of the shift ')
-- call svout (logfil, 1, sigmai, ndigit,
-+ call svout (logfil, 1, [sigmai], ndigit,
- & '_napps: The imaginary part of the shift ')
- end if
- c
-@@ -335,9 +335,9 @@
- & tst1 = slanhs( '1', kplusp-jj+1, h, ldh, workl )
- if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call svout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -351,9 +351,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -625,7 +625,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call svout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call smout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/snaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaup2.f 2020-09-24 17:26:05.342777763 +0200
-@@ -388,7 +388,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -401,9 +401,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -435,7 +435,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -690,7 +690,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -742,7 +742,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call svout (logfil, np, ritzr, ndigit,
- & '_naup2: Real part of the shifts')
-@@ -808,7 +808,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call smout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/snaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaupd.f 2020-09-24 17:26:05.343777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call svout (logfil, np, workl(ritzr), ndigit,
- & '_naupd: Real part of the final Ritz values')
---- SRC/sneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sneupd.f 2020-09-24 17:26:05.343777763 +0200
-@@ -601,9 +601,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/sngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sngets.f 2020-09-24 17:26:05.344777764 +0200
-@@ -212,8 +212,8 @@
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call svout (logfil, kev+np, ritzr, ndigit,
- & '_ngets: Eigenvalues of current H matrix -- real part')
- call svout (logfil, kev+np, ritzi, ndigit,
---- SRC/ssaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaitr.f 2020-09-24 17:26:05.344777764 +0200
-@@ -364,9 +364,9 @@
- 1000 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: generating Arnoldi vector no.')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saitr: B-norm of the current residual =')
- end if
- c
-@@ -384,7 +384,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: ****** restart at step ******')
- end if
- c
-@@ -735,7 +735,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/ssapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssapps.f 2020-09-24 17:26:05.344777764 +0200
-@@ -261,9 +261,9 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_sapps: occurred before shift number.')
- call svout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
-@@ -432,7 +432,7 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
- call svout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
---- SRC/ssaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaup2.f 2020-09-24 17:26:05.344777764 +0200
-@@ -402,13 +402,13 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_saup2: **** Start of major iteration number ****')
- end if
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_saup2: The length of the current Lanczos factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: Extend the Lanczos factorization by')
- end if
- c
-@@ -446,7 +446,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saup2: Current B-norm of residual for factorization')
- end if
- c
-@@ -694,7 +694,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_saup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -742,7 +742,7 @@
- if (ishift .eq. 0) call scopy (np, workl, 1, ritz, 1)
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: The number of shifts to apply ')
- call svout (logfil, np, workl, ndigit,
- & '_saup2: shifts selected')
-@@ -809,7 +809,7 @@
- 130 continue
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saup2: B-norm of residual for NEV factorization')
- call svout (logfil, nev, h(1,2), ndigit,
- & '_saup2: main diagonal of compressed H matrix')
---- SRC/ssaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaupd.f 2020-09-24 17:26:05.344777764 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_saupd: number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saupd: number of "converged" Ritz values')
- call svout (logfil, np, workl(Ritz), ndigit,
- & '_saupd: final Ritz values')
---- SRC/sseupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sseupd.f 2020-09-24 17:26:05.345777764 +0200
-@@ -513,9 +513,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_seupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_seupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/ssgets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssgets.f 2020-09-24 17:26:05.345777764 +0200
-@@ -202,8 +202,8 @@
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
- call svout (logfil, kev+np, ritz, ndigit,
- & '_sgets: Eigenvalues of current H matrix')
- call svout (logfil, kev+np, bounds, ndigit,
---- SRC/zgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zgetv0.f 2020-09-24 17:26:05.346777764 +0200
-@@ -361,9 +361,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm0, ndigit,
-+ call dvout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -394,7 +394,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 2) then
---- SRC/znaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaitr.f 2020-09-24 17:26:05.347777764 +0200
-@@ -378,9 +378,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -400,7 +400,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -729,7 +729,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0 ) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- rtemp(1) = rnorm
---- SRC/znapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znapps.f 2020-09-24 17:26:05.347777764 +0200
-@@ -268,9 +268,9 @@
- sigma = shift(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call zvout (logfil, 1, sigma, ndigit,
-+ call zvout (logfil, 1, [sigma], ndigit,
- & '_napps: Value of the shift ')
- end if
- c
-@@ -291,9 +291,9 @@
- if ( abs(dble(h(i+1,i)))
- & .le. max(ulp*tst1, smlnum) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call zvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -307,9 +307,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -485,7 +485,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call zvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call zmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/znaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaup2.f 2020-09-24 17:26:05.347777764 +0200
-@@ -389,7 +389,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -402,9 +402,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -430,7 +430,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -658,7 +658,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -698,7 +698,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call zvout (logfil, np, ritz, ndigit,
- & '_naup2: values of the shifts')
-@@ -762,7 +762,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call zmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/znaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaupd.f 2020-09-24 17:26:05.347777764 +0200
-@@ -601,9 +601,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call zvout (logfil, np, workl(ritz), ndigit,
- & '_naupd: The final Ritz values')
---- SRC/zneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zneupd.f 2020-09-24 17:26:05.348777764 +0200
-@@ -536,9 +536,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/zngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zngets.f 2020-09-24 17:26:05.348777764 +0200
-@@ -161,8 +161,8 @@
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call zvout (logfil, kev+np, ritz, ndigit,
- & '_ngets: Eigenvalues of current H matrix ')
- call zvout (logfil, kev+np, bounds, ndigit,
diff --git a/srcpkgs/arpack-ng/template b/srcpkgs/arpack-ng/template
index ce95a267dd8..dc518874152 100644
--- a/srcpkgs/arpack-ng/template
+++ b/srcpkgs/arpack-ng/template
@@ -1,17 +1,31 @@
# Template file for 'arpack-ng'
pkgname=arpack-ng
-version=3.7.0
+version=3.8.0
revision=1
build_style=gnu-configure
hostmakedepends="automake libtool gcc-fortran pkg-config"
-makedepends="lapack-devel eigen"
+makedepends="eigen"
short_desc="Collection of Fortran77 subroutines"
maintainer="Diogo Leal <diogo@diogoleal.com>"
license="BSD-3-Clause"
homepage="https://github.com/opencollab/arpack-ng"
changelog="https://raw.githubusercontent.com/opencollab/arpack-ng/master/CHANGES"
distfiles="https://github.com/opencollab/arpack-ng/archive/${version}.tar.gz"
-checksum=972e3fc3cd0b9d6b5a737c9bf6fd07515c0d6549319d4ffb06970e64fa3cc2d6
+checksum=ada5aeb3878874383307239c9235b716a8a170c6d096a6625bfd529844df003d
+
+# As of 2021-01-03 arpack-ng is only used by octave which includes openblas as
+# its BLAS implementation. So if openblas is available for XBPS_TARGET_MACHINE,
+# use it and if not fall back to regular blas.
+case "$XBPS_TARGET_MACHINE" in
+ # List of supported architectures copied from openblas.
+ armv5*|armv6*|armv7*|aarch64*|i686*|x86_64*|ppc64le*|ppc64*)
+ makedepends+=" openblas-devel"
+ configure_args=" --with-blas=openblas --with-lapack=openblas"
+ ;;
+ *)
+ makedepends+=" blas-devel lapack-devel"
+ ;;
+esac
pre_configure() {
./bootstrap
@@ -25,8 +39,9 @@ arpack-ng-devel_package() {
short_desc+=" - development files"
depends="${makedepends} ${sourcepkg}>=${version}_${revision}"
pkg_install() {
- vmove "usr/lib/*.a"
- vmove "usr/lib/*.so"
+ vmove usr/lib/cmake
vmove usr/lib/pkgconfig
+ vmove usr/include/arpack
+ vmove "usr/lib/*.so"
}
}
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: [PR PATCH] [Updated] arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
` (9 preceding siblings ...)
2021-01-02 23:54 ` [PR PATCH] [Updated] " olafmersmann
@ 2021-01-03 0:16 ` olafmersmann
2021-01-04 23:06 ` olafmersmann
2021-01-07 0:44 ` [PR PATCH] [Merged]: " ericonr
12 siblings, 0 replies; 14+ messages in thread
From: olafmersmann @ 2021-01-03 0:16 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 447 bytes --]
There is an updated pull request by olafmersmann against master on the void-packages repository
https://github.com/olafmersmann/void-packages arpack-ng
https://github.com/void-linux/void-packages/pull/27605
arpack-ng: update to 3.8.0.
Since version 3.8.0 arpack-ng does not build the static library by default. I therefore dropped it from the package.
A patch file from https://github.com/void-linux/void-packages/pull/27605.patch is attached
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: github-pr-arpack-ng-27605.patch --]
[-- Type: text/x-diff, Size: 49350 bytes --]
From 74e304916fc7ee071117e2e98dd5068d85f43542 Mon Sep 17 00:00:00 2001
From: Olaf Mersmann <olafm@p-value.net>
Date: Thu, 31 Dec 2020 20:26:01 +0100
Subject: [PATCH] arpack-ng: update to 3.8.0.
Instead of using standard BLAS (package blas), use OpenBLAS (package
openblas) if available for the target architecture. Right now the only
package depending on arpack-ng is Octave and it uses OpenBLAS by
default, so I see no reason to use the slower standard BLAS on platforms
where OpenBLAS is available.
Also move headers into the -devel package.
---
.../arpack-ng/patches/fix-gcc10-vector.patch | 1118 -----------------
srcpkgs/arpack-ng/template | 25 +-
2 files changed, 20 insertions(+), 1123 deletions(-)
delete mode 100644 srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
diff --git a/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch b/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
deleted file mode 100644
index 0a9a4048d7e..00000000000
--- a/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
+++ /dev/null
@@ -1,1118 +0,0 @@
-Source: https://github.com/opencollab/arpack-ng/commit/9418632214acf6d387896ab29a8f5bdff2d4e38a
-
---- SRC/cgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cgetv0.f 2020-09-24 17:26:05.335777763 +0200
-@@ -361,9 +361,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm0, ndigit,
-+ call svout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -394,7 +394,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 2) then
---- SRC/cnaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaitr.f 2020-09-24 17:26:05.336777763 +0200
-@@ -378,9 +378,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -400,7 +400,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -729,7 +729,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0 ) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- rtemp(1) = rnorm
---- SRC/cnapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnapps.f 2020-09-24 17:26:05.336777763 +0200
-@@ -268,9 +268,9 @@
- sigma = shift(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call cvout (logfil, 1, sigma, ndigit,
-+ call cvout (logfil, 1, [sigma], ndigit,
- & '_napps: Value of the shift ')
- end if
- c
-@@ -291,9 +291,9 @@
- if ( abs(real(h(i+1,i)))
- & .le. max(ulp*tst1, smlnum) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call cvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -307,9 +307,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -485,7 +485,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call cvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call cmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/cnaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaup2.f 2020-09-24 17:26:05.336777763 +0200
-@@ -389,7 +389,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -402,9 +402,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -430,7 +430,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -658,7 +658,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -698,7 +698,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call cvout (logfil, np, ritz, ndigit,
- & '_naup2: values of the shifts')
-@@ -762,7 +762,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call cmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/cnaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaupd.f 2020-09-24 17:26:05.336777763 +0200
-@@ -601,9 +601,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call cvout (logfil, np, workl(ritz), ndigit,
- & '_naupd: The final Ritz values')
---- SRC/cneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cneupd.f 2020-09-24 17:26:05.337777763 +0200
-@@ -536,9 +536,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/cngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cngets.f 2020-09-24 17:26:05.337777763 +0200
-@@ -161,8 +161,8 @@
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call cvout (logfil, kev+np, ritz, ndigit,
- & '_ngets: Eigenvalues of current H matrix ')
- call cvout (logfil, kev+np, bounds, ndigit,
---- SRC/dgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dgetv0.f 2020-09-24 17:26:05.337777763 +0200
-@@ -366,9 +366,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm0, ndigit,
-+ call dvout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -399,7 +399,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 3) then
---- SRC/dnaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaitr.f 2020-09-24 17:26:05.337777763 +0200
-@@ -371,9 +371,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -393,7 +393,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -721,7 +721,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/dnapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnapps.f 2020-09-24 17:26:05.338777763 +0200
-@@ -266,11 +266,11 @@
- sigmai = shifti(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call dvout (logfil, 1, sigmar, ndigit,
-+ call dvout (logfil, 1, [sigmar], ndigit,
- & '_napps: The real part of the shift ')
-- call dvout (logfil, 1, sigmai, ndigit,
-+ call dvout (logfil, 1, [sigmai], ndigit,
- & '_napps: The imaginary part of the shift ')
- end if
- c
-@@ -335,9 +335,9 @@
- & tst1 = dlanhs( '1', kplusp-jj+1, h, ldh, workl )
- if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call dvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -351,9 +351,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -627,7 +627,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call dvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call dmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/dnaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaup2.f 2020-09-24 17:26:05.338777763 +0200
-@@ -388,7 +388,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -401,9 +401,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -435,7 +435,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -689,7 +689,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -741,7 +741,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call dvout (logfil, np, ritzr, ndigit,
- & '_naup2: Real part of the shifts')
-@@ -807,7 +807,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call dmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/dnaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaupd.f 2020-09-24 17:26:05.338777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call dvout (logfil, np, workl(ritzr), ndigit,
- & '_naupd: Real part of the final Ritz values')
---- SRC/dneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dneupd.f 2020-09-24 17:26:05.339777763 +0200
-@@ -601,9 +601,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/dngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dngets.f 2020-09-24 17:26:05.339777763 +0200
-@@ -212,8 +212,8 @@
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call dvout (logfil, kev+np, ritzr, ndigit,
- & '_ngets: Eigenvalues of current H matrix -- real part')
- call dvout (logfil, kev+np, ritzi, ndigit,
---- SRC/dsaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaitr.f 2020-09-24 17:26:05.339777763 +0200
-@@ -364,9 +364,9 @@
- 1000 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: generating Arnoldi vector no.')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saitr: B-norm of the current residual =')
- end if
- c
-@@ -384,7 +384,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: ****** restart at step ******')
- end if
- c
-@@ -735,7 +735,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/dsapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsapps.f 2020-09-24 17:26:05.339777763 +0200
-@@ -261,9 +261,9 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_sapps: occurred before shift number.')
- call dvout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
-@@ -432,7 +432,7 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
- call dvout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
---- SRC/dsaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaup2.f 2020-09-24 17:26:05.339777763 +0200
-@@ -402,13 +402,13 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_saup2: **** Start of major iteration number ****')
- end if
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_saup2: The length of the current Lanczos factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: Extend the Lanczos factorization by')
- end if
- c
-@@ -446,7 +446,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saup2: Current B-norm of residual for factorization')
- end if
- c
-@@ -695,7 +695,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_saup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -743,7 +743,7 @@
- if (ishift .eq. 0) call dcopy (np, workl, 1, ritz, 1)
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: The number of shifts to apply ')
- call dvout (logfil, np, workl, ndigit,
- & '_saup2: shifts selected')
-@@ -810,7 +810,7 @@
- 130 continue
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saup2: B-norm of residual for NEV factorization')
- call dvout (logfil, nev, h(1,2), ndigit,
- & '_saup2: main diagonal of compressed H matrix')
---- SRC/dsaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaupd.f 2020-09-24 17:26:05.339777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_saupd: number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saupd: number of "converged" Ritz values')
- call dvout (logfil, np, workl(Ritz), ndigit,
- & '_saupd: final Ritz values')
---- SRC/dseupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dseupd.f 2020-09-24 17:26:05.340777763 +0200
-@@ -513,9 +513,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_seupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_seupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/dsgets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsgets.f 2020-09-24 17:26:05.340777763 +0200
-@@ -202,8 +202,8 @@
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
- call dvout (logfil, kev+np, ritz, ndigit,
- & '_sgets: Eigenvalues of current H matrix')
- call dvout (logfil, kev+np, bounds, ndigit,
---- SRC/sgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sgetv0.f 2020-09-24 17:26:05.342777763 +0200
-@@ -366,9 +366,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm0, ndigit,
-+ call svout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -399,7 +399,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 3) then
---- SRC/snaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaitr.f 2020-09-24 17:26:05.342777763 +0200
-@@ -371,9 +371,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -393,7 +393,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -721,7 +721,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/snapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snapps.f 2020-09-24 17:26:05.342777763 +0200
-@@ -266,11 +266,11 @@
- sigmai = shifti(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call svout (logfil, 1, sigmar, ndigit,
-+ call svout (logfil, 1, [sigmar], ndigit,
- & '_napps: The real part of the shift ')
-- call svout (logfil, 1, sigmai, ndigit,
-+ call svout (logfil, 1, [sigmai], ndigit,
- & '_napps: The imaginary part of the shift ')
- end if
- c
-@@ -335,9 +335,9 @@
- & tst1 = slanhs( '1', kplusp-jj+1, h, ldh, workl )
- if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call svout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -351,9 +351,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -625,7 +625,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call svout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call smout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/snaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaup2.f 2020-09-24 17:26:05.342777763 +0200
-@@ -388,7 +388,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -401,9 +401,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -435,7 +435,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -690,7 +690,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -742,7 +742,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call svout (logfil, np, ritzr, ndigit,
- & '_naup2: Real part of the shifts')
-@@ -808,7 +808,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call smout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/snaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaupd.f 2020-09-24 17:26:05.343777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call svout (logfil, np, workl(ritzr), ndigit,
- & '_naupd: Real part of the final Ritz values')
---- SRC/sneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sneupd.f 2020-09-24 17:26:05.343777763 +0200
-@@ -601,9 +601,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/sngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sngets.f 2020-09-24 17:26:05.344777764 +0200
-@@ -212,8 +212,8 @@
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call svout (logfil, kev+np, ritzr, ndigit,
- & '_ngets: Eigenvalues of current H matrix -- real part')
- call svout (logfil, kev+np, ritzi, ndigit,
---- SRC/ssaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaitr.f 2020-09-24 17:26:05.344777764 +0200
-@@ -364,9 +364,9 @@
- 1000 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: generating Arnoldi vector no.')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saitr: B-norm of the current residual =')
- end if
- c
-@@ -384,7 +384,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: ****** restart at step ******')
- end if
- c
-@@ -735,7 +735,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/ssapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssapps.f 2020-09-24 17:26:05.344777764 +0200
-@@ -261,9 +261,9 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_sapps: occurred before shift number.')
- call svout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
-@@ -432,7 +432,7 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
- call svout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
---- SRC/ssaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaup2.f 2020-09-24 17:26:05.344777764 +0200
-@@ -402,13 +402,13 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_saup2: **** Start of major iteration number ****')
- end if
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_saup2: The length of the current Lanczos factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: Extend the Lanczos factorization by')
- end if
- c
-@@ -446,7 +446,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saup2: Current B-norm of residual for factorization')
- end if
- c
-@@ -694,7 +694,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_saup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -742,7 +742,7 @@
- if (ishift .eq. 0) call scopy (np, workl, 1, ritz, 1)
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: The number of shifts to apply ')
- call svout (logfil, np, workl, ndigit,
- & '_saup2: shifts selected')
-@@ -809,7 +809,7 @@
- 130 continue
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saup2: B-norm of residual for NEV factorization')
- call svout (logfil, nev, h(1,2), ndigit,
- & '_saup2: main diagonal of compressed H matrix')
---- SRC/ssaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaupd.f 2020-09-24 17:26:05.344777764 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_saupd: number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saupd: number of "converged" Ritz values')
- call svout (logfil, np, workl(Ritz), ndigit,
- & '_saupd: final Ritz values')
---- SRC/sseupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sseupd.f 2020-09-24 17:26:05.345777764 +0200
-@@ -513,9 +513,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_seupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_seupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/ssgets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssgets.f 2020-09-24 17:26:05.345777764 +0200
-@@ -202,8 +202,8 @@
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
- call svout (logfil, kev+np, ritz, ndigit,
- & '_sgets: Eigenvalues of current H matrix')
- call svout (logfil, kev+np, bounds, ndigit,
---- SRC/zgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zgetv0.f 2020-09-24 17:26:05.346777764 +0200
-@@ -361,9 +361,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm0, ndigit,
-+ call dvout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -394,7 +394,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 2) then
---- SRC/znaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaitr.f 2020-09-24 17:26:05.347777764 +0200
-@@ -378,9 +378,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -400,7 +400,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -729,7 +729,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0 ) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- rtemp(1) = rnorm
---- SRC/znapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znapps.f 2020-09-24 17:26:05.347777764 +0200
-@@ -268,9 +268,9 @@
- sigma = shift(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call zvout (logfil, 1, sigma, ndigit,
-+ call zvout (logfil, 1, [sigma], ndigit,
- & '_napps: Value of the shift ')
- end if
- c
-@@ -291,9 +291,9 @@
- if ( abs(dble(h(i+1,i)))
- & .le. max(ulp*tst1, smlnum) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call zvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -307,9 +307,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -485,7 +485,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call zvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call zmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/znaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaup2.f 2020-09-24 17:26:05.347777764 +0200
-@@ -389,7 +389,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -402,9 +402,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -430,7 +430,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -658,7 +658,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -698,7 +698,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call zvout (logfil, np, ritz, ndigit,
- & '_naup2: values of the shifts')
-@@ -762,7 +762,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call zmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/znaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaupd.f 2020-09-24 17:26:05.347777764 +0200
-@@ -601,9 +601,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call zvout (logfil, np, workl(ritz), ndigit,
- & '_naupd: The final Ritz values')
---- SRC/zneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zneupd.f 2020-09-24 17:26:05.348777764 +0200
-@@ -536,9 +536,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/zngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zngets.f 2020-09-24 17:26:05.348777764 +0200
-@@ -161,8 +161,8 @@
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call zvout (logfil, kev+np, ritz, ndigit,
- & '_ngets: Eigenvalues of current H matrix ')
- call zvout (logfil, kev+np, bounds, ndigit,
diff --git a/srcpkgs/arpack-ng/template b/srcpkgs/arpack-ng/template
index ce95a267dd8..31b0e790139 100644
--- a/srcpkgs/arpack-ng/template
+++ b/srcpkgs/arpack-ng/template
@@ -1,17 +1,31 @@
# Template file for 'arpack-ng'
pkgname=arpack-ng
-version=3.7.0
+version=3.8.0
revision=1
build_style=gnu-configure
hostmakedepends="automake libtool gcc-fortran pkg-config"
-makedepends="lapack-devel eigen"
+makedepends="eigen"
short_desc="Collection of Fortran77 subroutines"
maintainer="Diogo Leal <diogo@diogoleal.com>"
license="BSD-3-Clause"
homepage="https://github.com/opencollab/arpack-ng"
changelog="https://raw.githubusercontent.com/opencollab/arpack-ng/master/CHANGES"
distfiles="https://github.com/opencollab/arpack-ng/archive/${version}.tar.gz"
-checksum=972e3fc3cd0b9d6b5a737c9bf6fd07515c0d6549319d4ffb06970e64fa3cc2d6
+checksum=ada5aeb3878874383307239c9235b716a8a170c6d096a6625bfd529844df003d
+
+# As of 2021-01-03 arpack-ng is only used by octave which includes openblas as
+# its BLAS implementation. So if openblas is available for XBPS_TARGET_MACHINE,
+# use it and if not fall back to regular blas.
+case "$XBPS_TARGET_MACHINE" in
+ # List of supported architectures copied from openblas.
+ armv[67]*|aarch64*|i686*|x86_64*|ppc64*)
+ makedepends+=" openblas-devel"
+ configure_args=" --with-blas=openblas --with-lapack=openblas"
+ ;;
+ *)
+ makedepends+=" blas-devel lapack-devel"
+ ;;
+esac
pre_configure() {
./bootstrap
@@ -25,8 +39,9 @@ arpack-ng-devel_package() {
short_desc+=" - development files"
depends="${makedepends} ${sourcepkg}>=${version}_${revision}"
pkg_install() {
- vmove "usr/lib/*.a"
- vmove "usr/lib/*.so"
+ vmove usr/lib/cmake
vmove usr/lib/pkgconfig
+ vmove usr/include/arpack
+ vmove "usr/lib/*.so"
}
}
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: [PR PATCH] [Updated] arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
` (10 preceding siblings ...)
2021-01-03 0:16 ` olafmersmann
@ 2021-01-04 23:06 ` olafmersmann
2021-01-07 0:44 ` [PR PATCH] [Merged]: " ericonr
12 siblings, 0 replies; 14+ messages in thread
From: olafmersmann @ 2021-01-04 23:06 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 447 bytes --]
There is an updated pull request by olafmersmann against master on the void-packages repository
https://github.com/olafmersmann/void-packages arpack-ng
https://github.com/void-linux/void-packages/pull/27605
arpack-ng: update to 3.8.0.
Since version 3.8.0 arpack-ng does not build the static library by default. I therefore dropped it from the package.
A patch file from https://github.com/void-linux/void-packages/pull/27605.patch is attached
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: github-pr-arpack-ng-27605.patch --]
[-- Type: text/x-diff, Size: 49350 bytes --]
From 6417666a470c32b7cdf530988f6820110ae515b1 Mon Sep 17 00:00:00 2001
From: Olaf Mersmann <olafm@p-value.net>
Date: Thu, 31 Dec 2020 20:26:01 +0100
Subject: [PATCH] arpack-ng: update to 3.8.0.
Instead of using standard BLAS (package blas), use OpenBLAS (package
openblas) if available for the target architecture. Right now the only
package depending on arpack-ng is Octave and it uses OpenBLAS by
default, so I see no reason to use the slower standard BLAS on platforms
where OpenBLAS is available.
Also move headers into the -devel package.
---
.../arpack-ng/patches/fix-gcc10-vector.patch | 1118 -----------------
srcpkgs/arpack-ng/template | 25 +-
2 files changed, 20 insertions(+), 1123 deletions(-)
delete mode 100644 srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
diff --git a/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch b/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
deleted file mode 100644
index 0a9a4048d7e..00000000000
--- a/srcpkgs/arpack-ng/patches/fix-gcc10-vector.patch
+++ /dev/null
@@ -1,1118 +0,0 @@
-Source: https://github.com/opencollab/arpack-ng/commit/9418632214acf6d387896ab29a8f5bdff2d4e38a
-
---- SRC/cgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cgetv0.f 2020-09-24 17:26:05.335777763 +0200
-@@ -361,9 +361,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm0, ndigit,
-+ call svout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -394,7 +394,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 2) then
---- SRC/cnaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaitr.f 2020-09-24 17:26:05.336777763 +0200
-@@ -378,9 +378,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -400,7 +400,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -729,7 +729,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0 ) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- rtemp(1) = rnorm
---- SRC/cnapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnapps.f 2020-09-24 17:26:05.336777763 +0200
-@@ -268,9 +268,9 @@
- sigma = shift(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call cvout (logfil, 1, sigma, ndigit,
-+ call cvout (logfil, 1, [sigma], ndigit,
- & '_napps: Value of the shift ')
- end if
- c
-@@ -291,9 +291,9 @@
- if ( abs(real(h(i+1,i)))
- & .le. max(ulp*tst1, smlnum) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call cvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -307,9 +307,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -485,7 +485,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call cvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call cmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/cnaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaup2.f 2020-09-24 17:26:05.336777763 +0200
-@@ -389,7 +389,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -402,9 +402,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -430,7 +430,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -658,7 +658,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -698,7 +698,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call cvout (logfil, np, ritz, ndigit,
- & '_naup2: values of the shifts')
-@@ -762,7 +762,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call cmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/cnaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cnaupd.f 2020-09-24 17:26:05.336777763 +0200
-@@ -601,9 +601,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call cvout (logfil, np, workl(ritz), ndigit,
- & '_naupd: The final Ritz values')
---- SRC/cneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cneupd.f 2020-09-24 17:26:05.337777763 +0200
-@@ -536,9 +536,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/cngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/cngets.f 2020-09-24 17:26:05.337777763 +0200
-@@ -161,8 +161,8 @@
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call cvout (logfil, kev+np, ritz, ndigit,
- & '_ngets: Eigenvalues of current H matrix ')
- call cvout (logfil, kev+np, bounds, ndigit,
---- SRC/dgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dgetv0.f 2020-09-24 17:26:05.337777763 +0200
-@@ -366,9 +366,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm0, ndigit,
-+ call dvout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -399,7 +399,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 3) then
---- SRC/dnaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaitr.f 2020-09-24 17:26:05.337777763 +0200
-@@ -371,9 +371,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -393,7 +393,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -721,7 +721,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/dnapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnapps.f 2020-09-24 17:26:05.338777763 +0200
-@@ -266,11 +266,11 @@
- sigmai = shifti(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call dvout (logfil, 1, sigmar, ndigit,
-+ call dvout (logfil, 1, [sigmar], ndigit,
- & '_napps: The real part of the shift ')
-- call dvout (logfil, 1, sigmai, ndigit,
-+ call dvout (logfil, 1, [sigmai], ndigit,
- & '_napps: The imaginary part of the shift ')
- end if
- c
-@@ -335,9 +335,9 @@
- & tst1 = dlanhs( '1', kplusp-jj+1, h, ldh, workl )
- if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call dvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -351,9 +351,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -627,7 +627,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call dvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call dmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/dnaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaup2.f 2020-09-24 17:26:05.338777763 +0200
-@@ -388,7 +388,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -401,9 +401,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -435,7 +435,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -689,7 +689,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -741,7 +741,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call dvout (logfil, np, ritzr, ndigit,
- & '_naup2: Real part of the shifts')
-@@ -807,7 +807,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call dmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/dnaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dnaupd.f 2020-09-24 17:26:05.338777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call dvout (logfil, np, workl(ritzr), ndigit,
- & '_naupd: Real part of the final Ritz values')
---- SRC/dneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dneupd.f 2020-09-24 17:26:05.339777763 +0200
-@@ -601,9 +601,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/dngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dngets.f 2020-09-24 17:26:05.339777763 +0200
-@@ -212,8 +212,8 @@
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call dvout (logfil, kev+np, ritzr, ndigit,
- & '_ngets: Eigenvalues of current H matrix -- real part')
- call dvout (logfil, kev+np, ritzi, ndigit,
---- SRC/dsaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaitr.f 2020-09-24 17:26:05.339777763 +0200
-@@ -364,9 +364,9 @@
- 1000 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: generating Arnoldi vector no.')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saitr: B-norm of the current residual =')
- end if
- c
-@@ -384,7 +384,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: ****** restart at step ******')
- end if
- c
-@@ -735,7 +735,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/dsapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsapps.f 2020-09-24 17:26:05.339777763 +0200
-@@ -261,9 +261,9 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_sapps: occurred before shift number.')
- call dvout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
-@@ -432,7 +432,7 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
- call dvout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
---- SRC/dsaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaup2.f 2020-09-24 17:26:05.339777763 +0200
-@@ -402,13 +402,13 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_saup2: **** Start of major iteration number ****')
- end if
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_saup2: The length of the current Lanczos factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: Extend the Lanczos factorization by')
- end if
- c
-@@ -446,7 +446,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saup2: Current B-norm of residual for factorization')
- end if
- c
-@@ -695,7 +695,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_saup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -743,7 +743,7 @@
- if (ishift .eq. 0) call dcopy (np, workl, 1, ritz, 1)
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: The number of shifts to apply ')
- call dvout (logfil, np, workl, ndigit,
- & '_saup2: shifts selected')
-@@ -810,7 +810,7 @@
- 130 continue
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_saup2: B-norm of residual for NEV factorization')
- call dvout (logfil, nev, h(1,2), ndigit,
- & '_saup2: main diagonal of compressed H matrix')
---- SRC/dsaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsaupd.f 2020-09-24 17:26:05.339777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_saupd: number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saupd: number of "converged" Ritz values')
- call dvout (logfil, np, workl(Ritz), ndigit,
- & '_saupd: final Ritz values')
---- SRC/dseupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dseupd.f 2020-09-24 17:26:05.340777763 +0200
-@@ -513,9 +513,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_seupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_seupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/dsgets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/dsgets.f 2020-09-24 17:26:05.340777763 +0200
-@@ -202,8 +202,8 @@
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
- call dvout (logfil, kev+np, ritz, ndigit,
- & '_sgets: Eigenvalues of current H matrix')
- call dvout (logfil, kev+np, bounds, ndigit,
---- SRC/sgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sgetv0.f 2020-09-24 17:26:05.342777763 +0200
-@@ -366,9 +366,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm0, ndigit,
-+ call svout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -399,7 +399,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 3) then
---- SRC/snaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaitr.f 2020-09-24 17:26:05.342777763 +0200
-@@ -371,9 +371,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -393,7 +393,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -721,7 +721,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/snapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snapps.f 2020-09-24 17:26:05.342777763 +0200
-@@ -266,11 +266,11 @@
- sigmai = shifti(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call svout (logfil, 1, sigmar, ndigit,
-+ call svout (logfil, 1, [sigmar], ndigit,
- & '_napps: The real part of the shift ')
-- call svout (logfil, 1, sigmai, ndigit,
-+ call svout (logfil, 1, [sigmai], ndigit,
- & '_napps: The imaginary part of the shift ')
- end if
- c
-@@ -335,9 +335,9 @@
- & tst1 = slanhs( '1', kplusp-jj+1, h, ldh, workl )
- if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call svout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -351,9 +351,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -625,7 +625,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call svout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call smout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/snaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaup2.f 2020-09-24 17:26:05.342777763 +0200
-@@ -388,7 +388,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -401,9 +401,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -435,7 +435,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -690,7 +690,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -742,7 +742,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call svout (logfil, np, ritzr, ndigit,
- & '_naup2: Real part of the shifts')
-@@ -808,7 +808,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call smout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/snaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/snaupd.f 2020-09-24 17:26:05.343777763 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call svout (logfil, np, workl(ritzr), ndigit,
- & '_naupd: Real part of the final Ritz values')
---- SRC/sneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sneupd.f 2020-09-24 17:26:05.343777763 +0200
-@@ -601,9 +601,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/sngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sngets.f 2020-09-24 17:26:05.344777764 +0200
-@@ -212,8 +212,8 @@
- tngets = tngets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call svout (logfil, kev+np, ritzr, ndigit,
- & '_ngets: Eigenvalues of current H matrix -- real part')
- call svout (logfil, kev+np, ritzi, ndigit,
---- SRC/ssaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaitr.f 2020-09-24 17:26:05.344777764 +0200
-@@ -364,9 +364,9 @@
- 1000 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: generating Arnoldi vector no.')
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saitr: B-norm of the current residual =')
- end if
- c
-@@ -384,7 +384,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: ****** restart at step ******')
- end if
- c
-@@ -735,7 +735,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_saitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- xtemp(1) = rnorm
---- SRC/ssapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssapps.f 2020-09-24 17:26:05.344777764 +0200
-@@ -261,9 +261,9 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_sapps: occurred before shift number.')
- call svout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
-@@ -432,7 +432,7 @@
- big = abs(h(i,2)) + abs(h(i+1,2))
- if (h(i+1,1) .le. epsmch*big) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_sapps: deflation at row/column no.')
- call svout (logfil, 1, h(i+1,1), ndigit,
- & '_sapps: the corresponding off diagonal element')
---- SRC/ssaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaup2.f 2020-09-24 17:26:05.344777764 +0200
-@@ -402,13 +402,13 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_saup2: **** Start of major iteration number ****')
- end if
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_saup2: The length of the current Lanczos factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: Extend the Lanczos factorization by')
- end if
- c
-@@ -446,7 +446,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saup2: Current B-norm of residual for factorization')
- end if
- c
-@@ -694,7 +694,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_saup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -742,7 +742,7 @@
- if (ishift .eq. 0) call scopy (np, workl, 1, ritz, 1)
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saup2: The number of shifts to apply ')
- call svout (logfil, np, workl, ndigit,
- & '_saup2: shifts selected')
-@@ -809,7 +809,7 @@
- 130 continue
- c
- if (msglvl .gt. 2) then
-- call svout (logfil, 1, rnorm, ndigit,
-+ call svout (logfil, 1, [rnorm], ndigit,
- & '_saup2: B-norm of residual for NEV factorization')
- call svout (logfil, nev, h(1,2), ndigit,
- & '_saup2: main diagonal of compressed H matrix')
---- SRC/ssaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssaupd.f 2020-09-24 17:26:05.344777764 +0200
-@@ -628,9 +628,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_saupd: number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_saupd: number of "converged" Ritz values')
- call svout (logfil, np, workl(Ritz), ndigit,
- & '_saupd: final Ritz values')
---- SRC/sseupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/sseupd.f 2020-09-24 17:26:05.345777764 +0200
-@@ -513,9 +513,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_seupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_seupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/ssgets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/ssgets.f 2020-09-24 17:26:05.345777764 +0200
-@@ -202,8 +202,8 @@
- tsgets = tsgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
- call svout (logfil, kev+np, ritz, ndigit,
- & '_sgets: Eigenvalues of current H matrix')
- call svout (logfil, kev+np, bounds, ndigit,
---- SRC/zgetv0.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zgetv0.f 2020-09-24 17:26:05.346777764 +0200
-@@ -361,9 +361,9 @@
- c %--------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm0, ndigit,
-+ call dvout (logfil, 1, [rnorm0], ndigit,
- & '_getv0: re-orthonalization ; rnorm0 is')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: re-orthonalization ; rnorm is')
- end if
- c
-@@ -394,7 +394,7 @@
- 50 continue
- c
- if (msglvl .gt. 0) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_getv0: B-norm of initial / restarted starting vector')
- end if
- if (msglvl .gt. 2) then
---- SRC/znaitr.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaitr.f 2020-09-24 17:26:05.347777764 +0200
-@@ -378,9 +378,9 @@
- 1000 continue
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: generating Arnoldi vector number')
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naitr: B-norm of the current residual is')
- end if
- c
-@@ -400,7 +400,7 @@
- c %---------------------------------------------------%
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: ****** RESTART AT STEP ******')
- end if
- c
-@@ -729,7 +729,7 @@
- end if
- c
- if (msglvl .gt. 0 .and. iter .gt. 0 ) then
-- call ivout (logfil, 1, j, ndigit,
-+ call ivout (logfil, 1, [j], ndigit,
- & '_naitr: Iterative refinement for Arnoldi residual')
- if (msglvl .gt. 2) then
- rtemp(1) = rnorm
---- SRC/znapps.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znapps.f 2020-09-24 17:26:05.347777764 +0200
-@@ -268,9 +268,9 @@
- sigma = shift(jj)
- c
- if (msglvl .gt. 2 ) then
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: shift number.')
-- call zvout (logfil, 1, sigma, ndigit,
-+ call zvout (logfil, 1, [sigma], ndigit,
- & '_napps: Value of the shift ')
- end if
- c
-@@ -291,9 +291,9 @@
- if ( abs(dble(h(i+1,i)))
- & .le. max(ulp*tst1, smlnum) ) then
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, i, ndigit,
-+ call ivout (logfil, 1, [i], ndigit,
- & '_napps: matrix splitting at row/column no.')
-- call ivout (logfil, 1, jj, ndigit,
-+ call ivout (logfil, 1, [jj], ndigit,
- & '_napps: matrix splitting with shift number.')
- call zvout (logfil, 1, h(i+1,i), ndigit,
- & '_napps: off diagonal element.')
-@@ -307,9 +307,9 @@
- 40 continue
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, istart, ndigit,
-+ call ivout (logfil, 1, [istart], ndigit,
- & '_napps: Start of current block ')
-- call ivout (logfil, 1, iend, ndigit,
-+ call ivout (logfil, 1, [iend], ndigit,
- & '_napps: End of current block ')
- end if
- c
-@@ -485,7 +485,7 @@
- & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
- call zvout (logfil, 1, h(kev+1,kev), ndigit,
- & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
-- call ivout (logfil, 1, kev, ndigit,
-+ call ivout (logfil, 1, [kev], ndigit,
- & '_napps: Order of the final Hessenberg matrix ')
- if (msglvl .gt. 2) then
- call zmout (logfil, kev, kev, h, ldh, ndigit,
---- SRC/znaup2.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaup2.f 2020-09-24 17:26:05.347777764 +0200
-@@ -389,7 +389,7 @@
- iter = iter + 1
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, iter, ndigit,
-+ call ivout (logfil, 1, [iter], ndigit,
- & '_naup2: **** Start of major iteration number ****')
- end if
- c
-@@ -402,9 +402,9 @@
- np = kplusp - nev
- c
- if (msglvl .gt. 1) then
-- call ivout (logfil, 1, nev, ndigit,
-+ call ivout (logfil, 1, [nev], ndigit,
- & '_naup2: The length of the current Arnoldi factorization')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: Extend the Arnoldi factorization by')
- end if
- c
-@@ -430,7 +430,7 @@
- update = .false.
- c
- if (msglvl .gt. 1) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: Corresponding B-norm of the residual')
- end if
- c
-@@ -658,7 +658,7 @@
- end if
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, nconv, ndigit,
-+ call ivout (logfil, 1, [nconv], ndigit,
- & '_naup2: no. of "converged" Ritz values at this iter.')
- if (msglvl .gt. 1) then
- kp(1) = nev
-@@ -698,7 +698,7 @@
- end if
- c
- if (msglvl .gt. 2) then
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naup2: The number of shifts to apply ')
- call zvout (logfil, np, ritz, ndigit,
- & '_naup2: values of the shifts')
-@@ -762,7 +762,7 @@
- cnorm = .false.
- c
- if (msglvl .gt. 2) then
-- call dvout (logfil, 1, rnorm, ndigit,
-+ call dvout (logfil, 1, [rnorm], ndigit,
- & '_naup2: B-norm of residual for compressed factorization')
- call zmout (logfil, nev, nev, h, ldh, ndigit,
- & '_naup2: Compressed upper Hessenberg matrix H')
---- SRC/znaupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/znaupd.f 2020-09-24 17:26:05.347777764 +0200
-@@ -601,9 +601,9 @@
- if (info .eq. 2) info = 3
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, mxiter, ndigit,
-+ call ivout (logfil, 1, [mxiter], ndigit,
- & '_naupd: Number of update iterations taken')
-- call ivout (logfil, 1, np, ndigit,
-+ call ivout (logfil, 1, [np], ndigit,
- & '_naupd: Number of wanted "converged" Ritz values')
- call zvout (logfil, np, workl(ritz), ndigit,
- & '_naupd: The final Ritz values')
---- SRC/zneupd.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zneupd.f 2020-09-24 17:26:05.348777764 +0200
-@@ -536,9 +536,9 @@
- c %-----------------------------------------------------------%
- c
- if (msglvl .gt. 2) then
-- call ivout(logfil, 1, numcnv, ndigit,
-+ call ivout(logfil, 1, [numcnv], ndigit,
- & '_neupd: Number of specified eigenvalues')
-- call ivout(logfil, 1, nconv, ndigit,
-+ call ivout(logfil, 1, [nconv], ndigit,
- & '_neupd: Number of "converged" eigenvalues')
- end if
- c
---- SRC/zngets.f 2019-01-12 16:24:12.000000000 +0100
-+++ SRC/zngets.f 2020-09-24 17:26:05.348777764 +0200
-@@ -161,8 +161,8 @@
- tcgets = tcgets + (t1 - t0)
- c
- if (msglvl .gt. 0) then
-- call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
-- call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
-+ call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
-+ call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
- call zvout (logfil, kev+np, ritz, ndigit,
- & '_ngets: Eigenvalues of current H matrix ')
- call zvout (logfil, kev+np, bounds, ndigit,
diff --git a/srcpkgs/arpack-ng/template b/srcpkgs/arpack-ng/template
index ce95a267dd8..31b0e790139 100644
--- a/srcpkgs/arpack-ng/template
+++ b/srcpkgs/arpack-ng/template
@@ -1,17 +1,31 @@
# Template file for 'arpack-ng'
pkgname=arpack-ng
-version=3.7.0
+version=3.8.0
revision=1
build_style=gnu-configure
hostmakedepends="automake libtool gcc-fortran pkg-config"
-makedepends="lapack-devel eigen"
+makedepends="eigen"
short_desc="Collection of Fortran77 subroutines"
maintainer="Diogo Leal <diogo@diogoleal.com>"
license="BSD-3-Clause"
homepage="https://github.com/opencollab/arpack-ng"
changelog="https://raw.githubusercontent.com/opencollab/arpack-ng/master/CHANGES"
distfiles="https://github.com/opencollab/arpack-ng/archive/${version}.tar.gz"
-checksum=972e3fc3cd0b9d6b5a737c9bf6fd07515c0d6549319d4ffb06970e64fa3cc2d6
+checksum=ada5aeb3878874383307239c9235b716a8a170c6d096a6625bfd529844df003d
+
+# As of 2021-01-03 arpack-ng is only used by octave which includes openblas as
+# its BLAS implementation. So if openblas is available for XBPS_TARGET_MACHINE,
+# use it and if not fall back to regular blas.
+case "$XBPS_TARGET_MACHINE" in
+ # List of supported architectures copied from openblas.
+ armv[67]*|aarch64*|i686*|x86_64*|ppc64*)
+ makedepends+=" openblas-devel"
+ configure_args=" --with-blas=openblas --with-lapack=openblas"
+ ;;
+ *)
+ makedepends+=" blas-devel lapack-devel"
+ ;;
+esac
pre_configure() {
./bootstrap
@@ -25,8 +39,9 @@ arpack-ng-devel_package() {
short_desc+=" - development files"
depends="${makedepends} ${sourcepkg}>=${version}_${revision}"
pkg_install() {
- vmove "usr/lib/*.a"
- vmove "usr/lib/*.so"
+ vmove usr/lib/cmake
vmove usr/lib/pkgconfig
+ vmove usr/include/arpack
+ vmove "usr/lib/*.so"
}
}
^ permalink raw reply [flat|nested] 14+ messages in thread
* Re: [PR PATCH] [Merged]: arpack-ng: update to 3.8.0.
2021-01-01 19:56 [PR PATCH] arpack-ng: update to 3.8.0 olafmersmann
` (11 preceding siblings ...)
2021-01-04 23:06 ` olafmersmann
@ 2021-01-07 0:44 ` ericonr
12 siblings, 0 replies; 14+ messages in thread
From: ericonr @ 2021-01-07 0:44 UTC (permalink / raw)
To: ml
[-- Attachment #1: Type: text/plain, Size: 279 bytes --]
There's a merged pull request on the void-packages repository
arpack-ng: update to 3.8.0.
https://github.com/void-linux/void-packages/pull/27605
Description:
Since version 3.8.0 arpack-ng does not build the static library by default. I therefore dropped it from the package.
^ permalink raw reply [flat|nested] 14+ messages in thread