Mercurial > mxe-octave

annotate src/arpack-1-gcc10.patch @ 5895:2db7f803d55d release

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
librsb: Update to version 1.2.0.10 (bug #60042). * src/librsb.mk: Update version and checksum. Remove work-around for fixed bug.
author Markus Mützel <markus.muetzel@gmx.de>
date Sun, 19 Sep 2021 14:32:07 +0200
parents 794ea7ca1771
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5524
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1 From 9418632214acf6d387896ab29a8f5bdff2d4e38a Mon Sep 17 00:00:00 2001
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
2 From: =?UTF-8?q?David=20Schw=C3=B6rer?= <davidsch@fedoraproject.org>
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
3 Date: Wed, 19 Feb 2020 20:07:47 +0000
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
4 Subject: [PATCH] ?vout expects a vector, so make sure to pass a vector
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
5
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
6 gcc10 throws an error otherwise
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
7
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
8 diff --git a/SRC/cgetv0.f b/SRC/cgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
9 index 322b35c7..a91ef926 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
10 --- a/SRC/cgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
11 +++ b/SRC/cgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
12 @@ -361,9 +361,9 @@ subroutine cgetv0
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
13 c %--------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
14 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
15 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
16 - call svout (logfil, 1, rnorm0, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
17 + call svout (logfil, 1, [rnorm0], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
18 & '_getv0: re-orthonalization ; rnorm0 is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
19 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
20 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
21 & '_getv0: re-orthonalization ; rnorm is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
22 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
23 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
24 @@ -394,7 +394,7 @@ subroutine cgetv0
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
25 50 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
26 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
27 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
28 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
29 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
30 & '_getv0: B-norm of initial / restarted starting vector')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
31 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
32 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
33 diff --git a/SRC/cnaitr.f b/SRC/cnaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
34 index 2bb93fff..bebd8236 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
35 --- a/SRC/cnaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
36 +++ b/SRC/cnaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
37 @@ -378,9 +378,9 @@ subroutine cnaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
38 1000 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
39 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
40 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
41 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
42 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
43 & '_naitr: generating Arnoldi vector number')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
44 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
45 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
46 & '_naitr: B-norm of the current residual is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
47 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
48 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
49 @@ -400,7 +400,7 @@ subroutine cnaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
50 c %---------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
51 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
52 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
53 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
54 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
55 & '_naitr: ****** RESTART AT STEP ******')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
56 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
57 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
58 @@ -729,7 +729,7 @@ subroutine cnaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
59 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
60 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
61 if (msglvl .gt. 0 .and. iter .gt. 0 ) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
62 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
63 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
64 & '_naitr: Iterative refinement for Arnoldi residual')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
65 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
66 rtemp(1) = rnorm
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
67 diff --git a/SRC/cnapps.f b/SRC/cnapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
68 index fdf878d8..c3a55623 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
69 --- a/SRC/cnapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
70 +++ b/SRC/cnapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
71 @@ -268,9 +268,9 @@ subroutine cnapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
72 sigma = shift(jj)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
73 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
74 if (msglvl .gt. 2 ) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
75 - call ivout (logfil, 1, jj, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
76 + call ivout (logfil, 1, [jj], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
77 & '_napps: shift number.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
78 - call cvout (logfil, 1, sigma, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
79 + call cvout (logfil, 1, [sigma], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
80 & '_napps: Value of the shift ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
81 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
82 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
83 @@ -291,9 +291,9 @@ subroutine cnapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
84 if ( abs(real(h(i+1,i)))
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
85 & .le. max(ulp*tst1, smlnum) ) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
86 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
87 - call ivout (logfil, 1, i, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
88 + call ivout (logfil, 1, [i], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
89 & '_napps: matrix splitting at row/column no.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
90 - call ivout (logfil, 1, jj, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
91 + call ivout (logfil, 1, [jj], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
92 & '_napps: matrix splitting with shift number.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
93 call cvout (logfil, 1, h(i+1,i), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
94 & '_napps: off diagonal element.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
95 @@ -307,9 +307,9 @@ subroutine cnapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
96 40 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
97 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
98 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
99 - call ivout (logfil, 1, istart, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
100 + call ivout (logfil, 1, [istart], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
101 & '_napps: Start of current block ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
102 - call ivout (logfil, 1, iend, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
103 + call ivout (logfil, 1, [iend], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
104 & '_napps: End of current block ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
105 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
106 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
107 @@ -485,7 +485,7 @@ subroutine cnapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
108 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
109 call cvout (logfil, 1, h(kev+1,kev), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
110 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
111 - call ivout (logfil, 1, kev, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
112 + call ivout (logfil, 1, [kev], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
113 & '_napps: Order of the final Hessenberg matrix ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
114 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
115 call cmout (logfil, kev, kev, h, ldh, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
116 diff --git a/SRC/cnaup2.f b/SRC/cnaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
117 index e528a890..3f106f05 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
118 --- a/SRC/cnaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
119 +++ b/SRC/cnaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
120 @@ -389,7 +389,7 @@ subroutine cnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
121 iter = iter + 1
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
122 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
123 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
124 - call ivout (logfil, 1, iter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
125 + call ivout (logfil, 1, [iter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
126 & '_naup2: **** Start of major iteration number ****')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
127 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
128 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
129 @@ -402,9 +402,9 @@ subroutine cnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
130 np = kplusp - nev
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
131 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
132 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
133 - call ivout (logfil, 1, nev, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
134 + call ivout (logfil, 1, [nev], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
135 & '_naup2: The length of the current Arnoldi factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
136 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
137 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
138 & '_naup2: Extend the Arnoldi factorization by')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
139 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
140 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
141 @@ -430,7 +430,7 @@ subroutine cnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
142 update = .false.
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
143 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
144 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
145 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
146 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
147 & '_naup2: Corresponding B-norm of the residual')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
148 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
149 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
150 @@ -658,7 +658,7 @@ subroutine cnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
151 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
152 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
153 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
154 - call ivout (logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
155 + call ivout (logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
156 & '_naup2: no. of "converged" Ritz values at this iter.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
157 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
158 kp(1) = nev
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
159 @@ -698,7 +698,7 @@ subroutine cnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
160 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
161 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
162 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
163 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
164 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
165 & '_naup2: The number of shifts to apply ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
166 call cvout (logfil, np, ritz, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
167 & '_naup2: values of the shifts')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
168 @@ -762,7 +762,7 @@ subroutine cnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
169 cnorm = .false.
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
170 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
171 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
172 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
173 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
174 & '_naup2: B-norm of residual for compressed factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
175 call cmout (logfil, nev, nev, h, ldh, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
176 & '_naup2: Compressed upper Hessenberg matrix H')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
177 diff --git a/SRC/cnaupd.f b/SRC/cnaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
178 index 7bf37fd1..57be328b 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
179 --- a/SRC/cnaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
180 +++ b/SRC/cnaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
181 @@ -601,9 +601,9 @@ subroutine cnaupd
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
182 if (info .eq. 2) info = 3
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
183 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
184 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
185 - call ivout (logfil, 1, mxiter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
186 + call ivout (logfil, 1, [mxiter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
187 & '_naupd: Number of update iterations taken')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
188 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
189 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
190 & '_naupd: Number of wanted "converged" Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
191 call cvout (logfil, np, workl(ritz), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
192 & '_naupd: The final Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
193 diff --git a/SRC/cneupd.f b/SRC/cneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
194 index c557fa08..34a78f70 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
195 --- a/SRC/cneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
196 +++ b/SRC/cneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
197 @@ -536,9 +536,9 @@ subroutine cneupd(rvec , howmny, select, d ,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
198 c %-----------------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
199 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
200 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
201 - call ivout(logfil, 1, numcnv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
202 + call ivout(logfil, 1, [numcnv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
203 & '_neupd: Number of specified eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
204 - call ivout(logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
205 + call ivout(logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
206 & '_neupd: Number of "converged" eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
207 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
208 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
209 diff --git a/SRC/cngets.f b/SRC/cngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
210 index 7686e133..20626a2d 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
211 --- a/SRC/cngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
212 +++ b/SRC/cngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
213 @@ -161,8 +161,8 @@ subroutine cngets ( ishift, which, kev, np, ritz, bounds)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
214 tcgets = tcgets + (t1 - t0)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
215 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
216 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
217 - call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
218 - call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
219 + call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
220 + call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
221 call cvout (logfil, kev+np, ritz, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
222 & '_ngets: Eigenvalues of current H matrix ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
223 call cvout (logfil, kev+np, bounds, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
224 diff --git a/SRC/dgetv0.f b/SRC/dgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
225 index fbb4fe2a..1d6dc01b 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
226 --- a/SRC/dgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
227 +++ b/SRC/dgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
228 @@ -366,9 +366,9 @@ subroutine dgetv0
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
229 c %--------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
230 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
231 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
232 - call dvout (logfil, 1, rnorm0, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
233 + call dvout (logfil, 1, [rnorm0], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
234 & '_getv0: re-orthonalization ; rnorm0 is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
235 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
236 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
237 & '_getv0: re-orthonalization ; rnorm is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
238 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
239 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
240 @@ -399,7 +399,7 @@ subroutine dgetv0
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
241 50 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
242 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
243 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
244 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
245 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
246 & '_getv0: B-norm of initial / restarted starting vector')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
247 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
248 if (msglvl .gt. 3) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
249 diff --git a/SRC/dnaitr.f b/SRC/dnaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
250 index baaec038..c02cd390 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
251 --- a/SRC/dnaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
252 +++ b/SRC/dnaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
253 @@ -371,9 +371,9 @@ subroutine dnaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
254 1000 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
255 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
256 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
257 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
258 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
259 & '_naitr: generating Arnoldi vector number')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
260 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
261 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
262 & '_naitr: B-norm of the current residual is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
263 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
264 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
265 @@ -393,7 +393,7 @@ subroutine dnaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
266 c %---------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
267 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
268 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
269 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
270 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
271 & '_naitr: ****** RESTART AT STEP ******')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
272 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
273 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
274 @@ -721,7 +721,7 @@ subroutine dnaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
275 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
276 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
277 if (msglvl .gt. 0 .and. iter .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
278 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
279 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
280 & '_naitr: Iterative refinement for Arnoldi residual')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
281 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
282 xtemp(1) = rnorm
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
283 diff --git a/SRC/dnapps.f b/SRC/dnapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
284 index 872d35ae..7fb37d87 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
285 --- a/SRC/dnapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
286 +++ b/SRC/dnapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
287 @@ -266,11 +266,11 @@ subroutine dnapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
288 sigmai = shifti(jj)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
289 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
290 if (msglvl .gt. 2 ) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
291 - call ivout (logfil, 1, jj, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
292 + call ivout (logfil, 1, [jj], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
293 & '_napps: shift number.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
294 - call dvout (logfil, 1, sigmar, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
295 + call dvout (logfil, 1, [sigmar], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
296 & '_napps: The real part of the shift ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
297 - call dvout (logfil, 1, sigmai, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
298 + call dvout (logfil, 1, [sigmai], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
299 & '_napps: The imaginary part of the shift ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
300 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
301 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
302 @@ -335,9 +335,9 @@ subroutine dnapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
303 & tst1 = dlanhs( '1', kplusp-jj+1, h, ldh, workl )
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
304 if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
305 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
306 - call ivout (logfil, 1, i, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
307 + call ivout (logfil, 1, [i], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
308 & '_napps: matrix splitting at row/column no.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
309 - call ivout (logfil, 1, jj, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
310 + call ivout (logfil, 1, [jj], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
311 & '_napps: matrix splitting with shift number.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
312 call dvout (logfil, 1, h(i+1,i), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
313 & '_napps: off diagonal element.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
314 @@ -351,9 +351,9 @@ subroutine dnapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
315 40 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
316 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
317 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
318 - call ivout (logfil, 1, istart, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
319 + call ivout (logfil, 1, [istart], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
320 & '_napps: Start of current block ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
321 - call ivout (logfil, 1, iend, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
322 + call ivout (logfil, 1, [iend], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
323 & '_napps: End of current block ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
324 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
325 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
326 @@ -627,7 +627,7 @@ subroutine dnapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
327 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
328 call dvout (logfil, 1, h(kev+1,kev), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
329 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
330 - call ivout (logfil, 1, kev, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
331 + call ivout (logfil, 1, [kev], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
332 & '_napps: Order of the final Hessenberg matrix ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
333 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
334 call dmout (logfil, kev, kev, h, ldh, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
335 diff --git a/SRC/dnaup2.f b/SRC/dnaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
336 index 4c9948d4..18ad20a0 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
337 --- a/SRC/dnaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
338 +++ b/SRC/dnaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
339 @@ -388,7 +388,7 @@ subroutine dnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
340 iter = iter + 1
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
341 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
342 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
343 - call ivout (logfil, 1, iter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
344 + call ivout (logfil, 1, [iter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
345 & '_naup2: **** Start of major iteration number ****')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
346 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
347 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
348 @@ -401,9 +401,9 @@ subroutine dnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
349 np = kplusp - nev
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
350 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
351 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
352 - call ivout (logfil, 1, nev, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
353 + call ivout (logfil, 1, [nev], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
354 & '_naup2: The length of the current Arnoldi factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
355 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
356 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
357 & '_naup2: Extend the Arnoldi factorization by')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
358 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
359 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
360 @@ -435,7 +435,7 @@ subroutine dnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
361 update = .false.
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
362 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
363 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
364 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
365 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
366 & '_naup2: Corresponding B-norm of the residual')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
367 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
368 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
369 @@ -689,7 +689,7 @@ subroutine dnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
370 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
371 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
372 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
373 - call ivout (logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
374 + call ivout (logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
375 & '_naup2: no. of "converged" Ritz values at this iter.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
376 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
377 kp(1) = nev
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
378 @@ -741,7 +741,7 @@ subroutine dnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
379 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
380 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
381 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
382 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
383 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
384 & '_naup2: The number of shifts to apply ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
385 call dvout (logfil, np, ritzr, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
386 & '_naup2: Real part of the shifts')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
387 @@ -807,7 +807,7 @@ subroutine dnaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
388 cnorm = .false.
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
389 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
390 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
391 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
392 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
393 & '_naup2: B-norm of residual for compressed factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
394 call dmout (logfil, nev, nev, h, ldh, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
395 & '_naup2: Compressed upper Hessenberg matrix H')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
396 diff --git a/SRC/dnaupd.f b/SRC/dnaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
397 index 51d3018e..dcf1f77a 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
398 --- a/SRC/dnaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
399 +++ b/SRC/dnaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
400 @@ -628,9 +628,9 @@ subroutine dnaupd
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
401 if (info .eq. 2) info = 3
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
402 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
403 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
404 - call ivout (logfil, 1, mxiter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
405 + call ivout (logfil, 1, [mxiter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
406 & '_naupd: Number of update iterations taken')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
407 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
408 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
409 & '_naupd: Number of wanted "converged" Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
410 call dvout (logfil, np, workl(ritzr), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
411 & '_naupd: Real part of the final Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
412 diff --git a/SRC/dneupd.f b/SRC/dneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
413 index 424ad2bf..9c2ece0e 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
414 --- a/SRC/dneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
415 +++ b/SRC/dneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
416 @@ -601,9 +601,9 @@ subroutine dneupd (rvec , howmny, select, dr , di,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
417 c %-----------------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
418 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
419 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
420 - call ivout(logfil, 1, numcnv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
421 + call ivout(logfil, 1, [numcnv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
422 & '_neupd: Number of specified eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
423 - call ivout(logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
424 + call ivout(logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
425 & '_neupd: Number of "converged" eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
426 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
427 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
428 diff --git a/SRC/dngets.f b/SRC/dngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
429 index a3145506..47d3ac2c 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
430 --- a/SRC/dngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
431 +++ b/SRC/dngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
432 @@ -212,8 +212,8 @@ subroutine dngets ( ishift, which, kev, np, ritzr, ritzi, bounds,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
433 tngets = tngets + (t1 - t0)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
434 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
435 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
436 - call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
437 - call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
438 + call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
439 + call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
440 call dvout (logfil, kev+np, ritzr, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
441 & '_ngets: Eigenvalues of current H matrix -- real part')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
442 call dvout (logfil, kev+np, ritzi, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
443 diff --git a/SRC/dsaitr.f b/SRC/dsaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
444 index 00dabfd2..3460d990 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
445 --- a/SRC/dsaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
446 +++ b/SRC/dsaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
447 @@ -364,9 +364,9 @@ subroutine dsaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
448 1000 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
449 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
450 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
451 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
452 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
453 & '_saitr: generating Arnoldi vector no.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
454 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
455 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
456 & '_saitr: B-norm of the current residual =')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
457 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
458 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
459 @@ -384,7 +384,7 @@ subroutine dsaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
460 c %---------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
461 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
462 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
463 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
464 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
465 & '_saitr: ****** restart at step ******')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
466 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
467 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
468 @@ -735,7 +735,7 @@ subroutine dsaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
469 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
470 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
471 if (msglvl .gt. 0 .and. iter .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
472 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
473 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
474 & '_saitr: Iterative refinement for Arnoldi residual')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
475 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
476 xtemp(1) = rnorm
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
477 diff --git a/SRC/dsapps.f b/SRC/dsapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
478 index 12108d0f..f84ef838 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
479 --- a/SRC/dsapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
480 +++ b/SRC/dsapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
481 @@ -261,9 +261,9 @@ subroutine dsapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
482 big = abs(h(i,2)) + abs(h(i+1,2))
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
483 if (h(i+1,1) .le. epsmch*big) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
484 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
485 - call ivout (logfil, 1, i, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
486 + call ivout (logfil, 1, [i], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
487 & '_sapps: deflation at row/column no.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
488 - call ivout (logfil, 1, jj, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
489 + call ivout (logfil, 1, [jj], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
490 & '_sapps: occurred before shift number.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
491 call dvout (logfil, 1, h(i+1,1), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
492 & '_sapps: the corresponding off diagonal element')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
493 @@ -432,7 +432,7 @@ subroutine dsapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
494 big = abs(h(i,2)) + abs(h(i+1,2))
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
495 if (h(i+1,1) .le. epsmch*big) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
496 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
497 - call ivout (logfil, 1, i, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
498 + call ivout (logfil, 1, [i], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
499 & '_sapps: deflation at row/column no.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
500 call dvout (logfil, 1, h(i+1,1), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
501 & '_sapps: the corresponding off diagonal element')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
502 diff --git a/SRC/dsaup2.f b/SRC/dsaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
503 index f4c5f90c..f7d4a119 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
504 --- a/SRC/dsaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
505 +++ b/SRC/dsaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
506 @@ -402,13 +402,13 @@ subroutine dsaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
507 iter = iter + 1
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
508 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
509 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
510 - call ivout (logfil, 1, iter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
511 + call ivout (logfil, 1, [iter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
512 & '_saup2: **** Start of major iteration number ****')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
513 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
514 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
515 - call ivout (logfil, 1, nev, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
516 + call ivout (logfil, 1, [nev], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
517 & '_saup2: The length of the current Lanczos factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
518 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
519 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
520 & '_saup2: Extend the Lanczos factorization by')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
521 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
522 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
523 @@ -446,7 +446,7 @@ subroutine dsaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
524 update = .false.
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
525 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
526 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
527 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
528 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
529 & '_saup2: Current B-norm of residual for factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
530 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
531 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
532 @@ -695,7 +695,7 @@ subroutine dsaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
533 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
534 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
535 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
536 - call ivout (logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
537 + call ivout (logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
538 & '_saup2: no. of "converged" Ritz values at this iter.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
539 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
540 kp(1) = nev
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
541 @@ -743,7 +743,7 @@ subroutine dsaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
542 if (ishift .eq. 0) call dcopy (np, workl, 1, ritz, 1)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
543 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
544 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
545 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
546 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
547 & '_saup2: The number of shifts to apply ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
548 call dvout (logfil, np, workl, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
549 & '_saup2: shifts selected')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
550 @@ -810,7 +810,7 @@ subroutine dsaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
551 130 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
552 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
553 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
554 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
555 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
556 & '_saup2: B-norm of residual for NEV factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
557 call dvout (logfil, nev, h(1,2), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
558 & '_saup2: main diagonal of compressed H matrix')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
559 diff --git a/SRC/dsaupd.f b/SRC/dsaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
560 index bd4afc26..c5b08d6b 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
561 --- a/SRC/dsaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
562 +++ b/SRC/dsaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
563 @@ -628,9 +628,9 @@ subroutine dsaupd
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
564 if (info .eq. 2) info = 3
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
565 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
566 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
567 - call ivout (logfil, 1, mxiter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
568 + call ivout (logfil, 1, [mxiter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
569 & '_saupd: number of update iterations taken')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
570 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
571 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
572 & '_saupd: number of "converged" Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
573 call dvout (logfil, np, workl(Ritz), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
574 & '_saupd: final Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
575 diff --git a/SRC/dseupd.f b/SRC/dseupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
576 index e89fdccf..ae123a20 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
577 --- a/SRC/dseupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
578 +++ b/SRC/dseupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
579 @@ -513,9 +513,9 @@ subroutine dseupd (rvec , howmny, select, d ,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
580 c %-----------------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
581 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
582 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
583 - call ivout(logfil, 1, numcnv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
584 + call ivout(logfil, 1, [numcnv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
585 & '_seupd: Number of specified eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
586 - call ivout(logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
587 + call ivout(logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
588 & '_seupd: Number of "converged" eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
589 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
590 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
591 diff --git a/SRC/dsgets.f b/SRC/dsgets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
592 index 800a02f4..436a4fe8 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
593 --- a/SRC/dsgets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
594 +++ b/SRC/dsgets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
595 @@ -202,8 +202,8 @@ subroutine dsgets ( ishift, which, kev, np, ritz, bounds, shifts )
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
596 tsgets = tsgets + (t1 - t0)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
597 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
598 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
599 - call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
600 - call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
601 + call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
602 + call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
603 call dvout (logfil, kev+np, ritz, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
604 & '_sgets: Eigenvalues of current H matrix')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
605 call dvout (logfil, kev+np, bounds, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
606 diff --git a/SRC/sgetv0.f b/SRC/sgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
607 index c768daae..d861b2d6 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
608 --- a/SRC/sgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
609 +++ b/SRC/sgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
610 @@ -366,9 +366,9 @@ subroutine sgetv0
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
611 c %--------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
612 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
613 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
614 - call svout (logfil, 1, rnorm0, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
615 + call svout (logfil, 1, [rnorm0], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
616 & '_getv0: re-orthonalization ; rnorm0 is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
617 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
618 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
619 & '_getv0: re-orthonalization ; rnorm is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
620 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
621 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
622 @@ -399,7 +399,7 @@ subroutine sgetv0
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
623 50 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
624 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
625 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
626 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
627 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
628 & '_getv0: B-norm of initial / restarted starting vector')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
629 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
630 if (msglvl .gt. 3) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
631 diff --git a/SRC/snaitr.f b/SRC/snaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
632 index 5ecdebb7..8a5d795b 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
633 --- a/SRC/snaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
634 +++ b/SRC/snaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
635 @@ -371,9 +371,9 @@ subroutine snaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
636 1000 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
637 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
638 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
639 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
640 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
641 & '_naitr: generating Arnoldi vector number')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
642 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
643 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
644 & '_naitr: B-norm of the current residual is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
645 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
646 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
647 @@ -393,7 +393,7 @@ subroutine snaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
648 c %---------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
649 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
650 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
651 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
652 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
653 & '_naitr: ****** RESTART AT STEP ******')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
654 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
655 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
656 @@ -721,7 +721,7 @@ subroutine snaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
657 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
658 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
659 if (msglvl .gt. 0 .and. iter .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
660 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
661 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
662 & '_naitr: Iterative refinement for Arnoldi residual')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
663 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
664 xtemp(1) = rnorm
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
665 diff --git a/SRC/snapps.f b/SRC/snapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
666 index 914c9b8b..9b767285 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
667 --- a/SRC/snapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
668 +++ b/SRC/snapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
669 @@ -266,11 +266,11 @@ subroutine snapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
670 sigmai = shifti(jj)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
671 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
672 if (msglvl .gt. 2 ) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
673 - call ivout (logfil, 1, jj, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
674 + call ivout (logfil, 1, [jj], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
675 & '_napps: shift number.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
676 - call svout (logfil, 1, sigmar, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
677 + call svout (logfil, 1, [sigmar], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
678 & '_napps: The real part of the shift ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
679 - call svout (logfil, 1, sigmai, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
680 + call svout (logfil, 1, [sigmai], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
681 & '_napps: The imaginary part of the shift ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
682 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
683 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
684 @@ -335,9 +335,9 @@ subroutine snapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
685 & tst1 = slanhs( '1', kplusp-jj+1, h, ldh, workl )
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
686 if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
687 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
688 - call ivout (logfil, 1, i, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
689 + call ivout (logfil, 1, [i], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
690 & '_napps: matrix splitting at row/column no.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
691 - call ivout (logfil, 1, jj, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
692 + call ivout (logfil, 1, [jj], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
693 & '_napps: matrix splitting with shift number.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
694 call svout (logfil, 1, h(i+1,i), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
695 & '_napps: off diagonal element.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
696 @@ -351,9 +351,9 @@ subroutine snapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
697 40 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
698 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
699 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
700 - call ivout (logfil, 1, istart, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
701 + call ivout (logfil, 1, [istart], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
702 & '_napps: Start of current block ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
703 - call ivout (logfil, 1, iend, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
704 + call ivout (logfil, 1, [iend], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
705 & '_napps: End of current block ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
706 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
707 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
708 @@ -625,7 +625,7 @@ subroutine snapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
709 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
710 call svout (logfil, 1, h(kev+1,kev), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
711 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
712 - call ivout (logfil, 1, kev, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
713 + call ivout (logfil, 1, [kev], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
714 & '_napps: Order of the final Hessenberg matrix ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
715 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
716 call smout (logfil, kev, kev, h, ldh, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
717 diff --git a/SRC/snaup2.f b/SRC/snaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
718 index 53e39461..12b2cfed 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
719 --- a/SRC/snaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
720 +++ b/SRC/snaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
721 @@ -388,7 +388,7 @@ subroutine snaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
722 iter = iter + 1
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
723 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
724 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
725 - call ivout (logfil, 1, iter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
726 + call ivout (logfil, 1, [iter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
727 & '_naup2: **** Start of major iteration number ****')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
728 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
729 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
730 @@ -401,9 +401,9 @@ subroutine snaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
731 np = kplusp - nev
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
732 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
733 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
734 - call ivout (logfil, 1, nev, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
735 + call ivout (logfil, 1, [nev], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
736 & '_naup2: The length of the current Arnoldi factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
737 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
738 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
739 & '_naup2: Extend the Arnoldi factorization by')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
740 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
741 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
742 @@ -435,7 +435,7 @@ subroutine snaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
743 update = .false.
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
744 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
745 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
746 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
747 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
748 & '_naup2: Corresponding B-norm of the residual')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
749 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
750 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
751 @@ -690,7 +690,7 @@ subroutine snaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
752 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
753 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
754 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
755 - call ivout (logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
756 + call ivout (logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
757 & '_naup2: no. of "converged" Ritz values at this iter.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
758 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
759 kp(1) = nev
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
760 @@ -742,7 +742,7 @@ subroutine snaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
761 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
762 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
763 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
764 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
765 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
766 & '_naup2: The number of shifts to apply ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
767 call svout (logfil, np, ritzr, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
768 & '_naup2: Real part of the shifts')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
769 @@ -808,7 +808,7 @@ subroutine snaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
770 cnorm = .false.
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
771 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
772 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
773 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
774 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
775 & '_naup2: B-norm of residual for compressed factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
776 call smout (logfil, nev, nev, h, ldh, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
777 & '_naup2: Compressed upper Hessenberg matrix H')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
778 diff --git a/SRC/snaupd.f b/SRC/snaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
779 index 19284d06..e0be1bfd 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
780 --- a/SRC/snaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
781 +++ b/SRC/snaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
782 @@ -628,9 +628,9 @@ subroutine snaupd
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
783 if (info .eq. 2) info = 3
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
784 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
785 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
786 - call ivout (logfil, 1, mxiter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
787 + call ivout (logfil, 1, [mxiter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
788 & '_naupd: Number of update iterations taken')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
789 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
790 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
791 & '_naupd: Number of wanted "converged" Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
792 call svout (logfil, np, workl(ritzr), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
793 & '_naupd: Real part of the final Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
794 diff --git a/SRC/sneupd.f b/SRC/sneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
795 index ecd8f164..4c472fef 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
796 --- a/SRC/sneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
797 +++ b/SRC/sneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
798 @@ -601,9 +601,9 @@ subroutine sneupd(rvec , howmny, select, dr , di,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
799 c %-----------------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
800 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
801 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
802 - call ivout(logfil, 1, numcnv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
803 + call ivout(logfil, 1, [numcnv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
804 & '_neupd: Number of specified eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
805 - call ivout(logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
806 + call ivout(logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
807 & '_neupd: Number of "converged" eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
808 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
809 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
810 diff --git a/SRC/sngets.f b/SRC/sngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
811 index 800282f8..7e48c0bb 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
812 --- a/SRC/sngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
813 +++ b/SRC/sngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
814 @@ -212,8 +212,8 @@ subroutine sngets ( ishift, which, kev, np, ritzr, ritzi, bounds,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
815 tngets = tngets + (t1 - t0)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
816 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
817 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
818 - call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
819 - call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
820 + call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
821 + call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
822 call svout (logfil, kev+np, ritzr, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
823 & '_ngets: Eigenvalues of current H matrix -- real part')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
824 call svout (logfil, kev+np, ritzi, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
825 diff --git a/SRC/ssaitr.f b/SRC/ssaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
826 index 721bdb58..a5df2c2e 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
827 --- a/SRC/ssaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
828 +++ b/SRC/ssaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
829 @@ -364,9 +364,9 @@ subroutine ssaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
830 1000 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
831 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
832 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
833 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
834 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
835 & '_saitr: generating Arnoldi vector no.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
836 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
837 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
838 & '_saitr: B-norm of the current residual =')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
839 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
840 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
841 @@ -384,7 +384,7 @@ subroutine ssaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
842 c %---------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
843 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
844 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
845 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
846 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
847 & '_saitr: ****** restart at step ******')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
848 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
849 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
850 @@ -735,7 +735,7 @@ subroutine ssaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
851 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
852 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
853 if (msglvl .gt. 0 .and. iter .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
854 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
855 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
856 & '_saitr: Iterative refinement for Arnoldi residual')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
857 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
858 xtemp(1) = rnorm
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
859 diff --git a/SRC/ssapps.f b/SRC/ssapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
860 index c8143111..77bd9d52 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
861 --- a/SRC/ssapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
862 +++ b/SRC/ssapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
863 @@ -261,9 +261,9 @@ subroutine ssapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
864 big = abs(h(i,2)) + abs(h(i+1,2))
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
865 if (h(i+1,1) .le. epsmch*big) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
866 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
867 - call ivout (logfil, 1, i, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
868 + call ivout (logfil, 1, [i], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
869 & '_sapps: deflation at row/column no.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
870 - call ivout (logfil, 1, jj, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
871 + call ivout (logfil, 1, [jj], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
872 & '_sapps: occurred before shift number.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
873 call svout (logfil, 1, h(i+1,1), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
874 & '_sapps: the corresponding off diagonal element')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
875 @@ -432,7 +432,7 @@ subroutine ssapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
876 big = abs(h(i,2)) + abs(h(i+1,2))
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
877 if (h(i+1,1) .le. epsmch*big) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
878 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
879 - call ivout (logfil, 1, i, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
880 + call ivout (logfil, 1, [i], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
881 & '_sapps: deflation at row/column no.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
882 call svout (logfil, 1, h(i+1,1), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
883 & '_sapps: the corresponding off diagonal element')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
884 diff --git a/SRC/ssaup2.f b/SRC/ssaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
885 index a73c9a58..8cc04638 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
886 --- a/SRC/ssaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
887 +++ b/SRC/ssaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
888 @@ -402,13 +402,13 @@ subroutine ssaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
889 iter = iter + 1
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
890 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
891 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
892 - call ivout (logfil, 1, iter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
893 + call ivout (logfil, 1, [iter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
894 & '_saup2: **** Start of major iteration number ****')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
895 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
896 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
897 - call ivout (logfil, 1, nev, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
898 + call ivout (logfil, 1, [nev], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
899 & '_saup2: The length of the current Lanczos factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
900 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
901 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
902 & '_saup2: Extend the Lanczos factorization by')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
903 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
904 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
905 @@ -446,7 +446,7 @@ subroutine ssaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
906 update = .false.
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
907 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
908 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
909 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
910 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
911 & '_saup2: Current B-norm of residual for factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
912 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
913 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
914 @@ -694,7 +694,7 @@ subroutine ssaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
915 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
916 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
917 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
918 - call ivout (logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
919 + call ivout (logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
920 & '_saup2: no. of "converged" Ritz values at this iter.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
921 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
922 kp(1) = nev
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
923 @@ -742,7 +742,7 @@ subroutine ssaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
924 if (ishift .eq. 0) call scopy (np, workl, 1, ritz, 1)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
925 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
926 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
927 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
928 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
929 & '_saup2: The number of shifts to apply ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
930 call svout (logfil, np, workl, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
931 & '_saup2: shifts selected')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
932 @@ -809,7 +809,7 @@ subroutine ssaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
933 130 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
934 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
935 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
936 - call svout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
937 + call svout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
938 & '_saup2: B-norm of residual for NEV factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
939 call svout (logfil, nev, h(1,2), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
940 & '_saup2: main diagonal of compressed H matrix')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
941 diff --git a/SRC/ssaupd.f b/SRC/ssaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
942 index d139ac53..a8d2f2d5 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
943 --- a/SRC/ssaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
944 +++ b/SRC/ssaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
945 @@ -628,9 +628,9 @@ subroutine ssaupd
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
946 if (info .eq. 2) info = 3
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
947 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
948 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
949 - call ivout (logfil, 1, mxiter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
950 + call ivout (logfil, 1, [mxiter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
951 & '_saupd: number of update iterations taken')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
952 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
953 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
954 & '_saupd: number of "converged" Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
955 call svout (logfil, np, workl(Ritz), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
956 & '_saupd: final Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
957 diff --git a/SRC/sseupd.f b/SRC/sseupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
958 index 9b94ed7c..03ba7ac5 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
959 --- a/SRC/sseupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
960 +++ b/SRC/sseupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
961 @@ -513,9 +513,9 @@ subroutine sseupd(rvec , howmny, select, d ,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
962 c %-----------------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
963 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
964 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
965 - call ivout(logfil, 1, numcnv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
966 + call ivout(logfil, 1, [numcnv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
967 & '_seupd: Number of specified eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
968 - call ivout(logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
969 + call ivout(logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
970 & '_seupd: Number of "converged" eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
971 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
972 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
973 diff --git a/SRC/ssgets.f b/SRC/ssgets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
974 index ce84d673..f40ca76a 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
975 --- a/SRC/ssgets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
976 +++ b/SRC/ssgets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
977 @@ -202,8 +202,8 @@ subroutine ssgets ( ishift, which, kev, np, ritz, bounds, shifts )
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
978 tsgets = tsgets + (t1 - t0)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
979 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
980 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
981 - call ivout (logfil, 1, kev, ndigit, '_sgets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
982 - call ivout (logfil, 1, np, ndigit, '_sgets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
983 + call ivout (logfil, 1, [kev], ndigit, '_sgets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
984 + call ivout (logfil, 1, [np], ndigit, '_sgets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
985 call svout (logfil, kev+np, ritz, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
986 & '_sgets: Eigenvalues of current H matrix')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
987 call svout (logfil, kev+np, bounds, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
988 diff --git a/SRC/zgetv0.f b/SRC/zgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
989 index d71f3c03..ff5c2b19 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
990 --- a/SRC/zgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
991 +++ b/SRC/zgetv0.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
992 @@ -361,9 +361,9 @@ subroutine zgetv0
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
993 c %--------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
994 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
995 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
996 - call dvout (logfil, 1, rnorm0, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
997 + call dvout (logfil, 1, [rnorm0], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
998 & '_getv0: re-orthonalization ; rnorm0 is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
999 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1000 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1001 & '_getv0: re-orthonalization ; rnorm is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1002 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1003 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1004 @@ -394,7 +394,7 @@ subroutine zgetv0
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1005 50 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1006 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1007 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1008 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1009 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1010 & '_getv0: B-norm of initial / restarted starting vector')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1011 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1012 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1013 diff --git a/SRC/znaitr.f b/SRC/znaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1014 index b8331c06..1c5aa57f 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1015 --- a/SRC/znaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1016 +++ b/SRC/znaitr.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1017 @@ -378,9 +378,9 @@ subroutine znaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1018 1000 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1019 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1020 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1021 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1022 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1023 & '_naitr: generating Arnoldi vector number')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1024 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1025 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1026 & '_naitr: B-norm of the current residual is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1027 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1028 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1029 @@ -400,7 +400,7 @@ subroutine znaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1030 c %---------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1031 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1032 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1033 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1034 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1035 & '_naitr: ****** RESTART AT STEP ******')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1036 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1037 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1038 @@ -729,7 +729,7 @@ subroutine znaitr
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1039 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1040 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1041 if (msglvl .gt. 0 .and. iter .gt. 0 ) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1042 - call ivout (logfil, 1, j, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1043 + call ivout (logfil, 1, [j], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1044 & '_naitr: Iterative refinement for Arnoldi residual')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1045 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1046 rtemp(1) = rnorm
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1047 diff --git a/SRC/znapps.f b/SRC/znapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1048 index a1f116d3..6d8d12a8 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1049 --- a/SRC/znapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1050 +++ b/SRC/znapps.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1051 @@ -268,9 +268,9 @@ subroutine znapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1052 sigma = shift(jj)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1053 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1054 if (msglvl .gt. 2 ) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1055 - call ivout (logfil, 1, jj, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1056 + call ivout (logfil, 1, [jj], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1057 & '_napps: shift number.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1058 - call zvout (logfil, 1, sigma, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1059 + call zvout (logfil, 1, [sigma], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1060 & '_napps: Value of the shift ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1061 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1062 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1063 @@ -291,9 +291,9 @@ subroutine znapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1064 if ( abs(dble(h(i+1,i)))
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1065 & .le. max(ulp*tst1, smlnum) ) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1066 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1067 - call ivout (logfil, 1, i, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1068 + call ivout (logfil, 1, [i], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1069 & '_napps: matrix splitting at row/column no.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1070 - call ivout (logfil, 1, jj, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1071 + call ivout (logfil, 1, [jj], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1072 & '_napps: matrix splitting with shift number.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1073 call zvout (logfil, 1, h(i+1,i), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1074 & '_napps: off diagonal element.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1075 @@ -307,9 +307,9 @@ subroutine znapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1076 40 continue
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1077 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1078 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1079 - call ivout (logfil, 1, istart, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1080 + call ivout (logfil, 1, [istart], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1081 & '_napps: Start of current block ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1082 - call ivout (logfil, 1, iend, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1083 + call ivout (logfil, 1, [iend], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1084 & '_napps: End of current block ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1085 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1086 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1087 @@ -485,7 +485,7 @@ subroutine znapps
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1088 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1089 call zvout (logfil, 1, h(kev+1,kev), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1090 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1091 - call ivout (logfil, 1, kev, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1092 + call ivout (logfil, 1, [kev], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1093 & '_napps: Order of the final Hessenberg matrix ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1094 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1095 call zmout (logfil, kev, kev, h, ldh, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1096 diff --git a/SRC/znaup2.f b/SRC/znaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1097 index 469aafb2..b814cf15 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1098 --- a/SRC/znaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1099 +++ b/SRC/znaup2.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1100 @@ -389,7 +389,7 @@ subroutine znaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1101 iter = iter + 1
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1102 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1103 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1104 - call ivout (logfil, 1, iter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1105 + call ivout (logfil, 1, [iter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1106 & '_naup2: **** Start of major iteration number ****')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1107 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1108 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1109 @@ -402,9 +402,9 @@ subroutine znaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1110 np = kplusp - nev
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1111 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1112 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1113 - call ivout (logfil, 1, nev, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1114 + call ivout (logfil, 1, [nev], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1115 & '_naup2: The length of the current Arnoldi factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1116 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1117 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1118 & '_naup2: Extend the Arnoldi factorization by')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1119 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1120 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1121 @@ -430,7 +430,7 @@ subroutine znaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1122 update = .false.
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1123 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1124 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1125 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1126 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1127 & '_naup2: Corresponding B-norm of the residual')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1128 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1129 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1130 @@ -658,7 +658,7 @@ subroutine znaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1131 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1132 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1133 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1134 - call ivout (logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1135 + call ivout (logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1136 & '_naup2: no. of "converged" Ritz values at this iter.')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1137 if (msglvl .gt. 1) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1138 kp(1) = nev
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1139 @@ -698,7 +698,7 @@ subroutine znaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1140 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1141 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1142 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1143 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1144 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1145 & '_naup2: The number of shifts to apply ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1146 call zvout (logfil, np, ritz, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1147 & '_naup2: values of the shifts')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1148 @@ -762,7 +762,7 @@ subroutine znaup2
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1149 cnorm = .false.
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1150 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1151 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1152 - call dvout (logfil, 1, rnorm, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1153 + call dvout (logfil, 1, [rnorm], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1154 & '_naup2: B-norm of residual for compressed factorization')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1155 call zmout (logfil, nev, nev, h, ldh, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1156 & '_naup2: Compressed upper Hessenberg matrix H')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1157 diff --git a/SRC/znaupd.f b/SRC/znaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1158 index 779eb2bc..c7d58aaa 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1159 --- a/SRC/znaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1160 +++ b/SRC/znaupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1161 @@ -601,9 +601,9 @@ subroutine znaupd
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1162 if (info .eq. 2) info = 3
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1163 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1164 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1165 - call ivout (logfil, 1, mxiter, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1166 + call ivout (logfil, 1, [mxiter], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1167 & '_naupd: Number of update iterations taken')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1168 - call ivout (logfil, 1, np, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1169 + call ivout (logfil, 1, [np], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1170 & '_naupd: Number of wanted "converged" Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1171 call zvout (logfil, np, workl(ritz), ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1172 & '_naupd: The final Ritz values')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1173 diff --git a/SRC/zneupd.f b/SRC/zneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1174 index f1eb68a3..9889e30e 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1175 --- a/SRC/zneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1176 +++ b/SRC/zneupd.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1177 @@ -536,9 +536,9 @@ subroutine zneupd(rvec , howmny, select, d ,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1178 c %-----------------------------------------------------------%
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1179 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1180 if (msglvl .gt. 2) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1181 - call ivout(logfil, 1, numcnv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1182 + call ivout(logfil, 1, [numcnv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1183 & '_neupd: Number of specified eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1184 - call ivout(logfil, 1, nconv, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1185 + call ivout(logfil, 1, [nconv], ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1186 & '_neupd: Number of "converged" eigenvalues')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1187 end if
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1188 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1189 diff --git a/SRC/zngets.f b/SRC/zngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1190 index 27f25803..e7d24334 100644
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1191 --- a/SRC/zngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1192 +++ b/SRC/zngets.f
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1193 @@ -161,8 +161,8 @@ subroutine zngets ( ishift, which, kev, np, ritz, bounds)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1194 tcgets = tcgets + (t1 - t0)
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1195 c
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1196 if (msglvl .gt. 0) then
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1197 - call ivout (logfil, 1, kev, ndigit, '_ngets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1198 - call ivout (logfil, 1, np, ndigit, '_ngets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1199 + call ivout (logfil, 1, [kev], ndigit, '_ngets: KEV is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1200 + call ivout (logfil, 1, [np], ndigit, '_ngets: NP is')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1201 call zvout (logfil, kev+np, ritz, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1202 & '_ngets: Eigenvalues of current H matrix ')
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1203 call zvout (logfil, kev+np, bounds, ndigit,
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1204
794ea7ca1771 Fix compiling ARPACK with gcc 10 (part 2).
Markus Mützel <markus.muetzel@gmx.de>
parents: 5520
diff changeset
1205
5520
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1206 From ad82dcbc0beeed5616e2d5a28a089d9785f8b8b8 Mon Sep 17 00:00:00 2001
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1207 From: dschwoerer <dschwoerer@users.noreply.github.com>
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1208 Date: Mon, 24 Feb 2020 09:05:43 +0000
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1209 Subject: [PATCH] gcc-10 (parpack) and mpich (#245)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1210
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1211 * port PARPACK also to gcc 10
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1212
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1213 * Ensure that the output buffer is a rank-1 vector
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1214
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1215 The vector should also not be a temporary, so that we
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1216 can use the result.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1217
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1218 * use valid address of binary
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1219
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1220 openmpi ignores this error, but mpich doesn't
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1221
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1222 * Add travis test with gcc 10 and mpich
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1223
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1224 * After pulling fedora:rawhide, use fedora:rawhide
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1225
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1226 * simplify travis tests for fedora
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1227
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1228 * run using bash -v (permissions issue otherwise)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1229
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1230 * run using bash -v (permissions issue otherwise)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1231
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1232 * fix permission of script
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1233
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1234 * Add she-bang to allow execution
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1235
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1236 * fix test for fedora
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1237
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1238 Co-authored-by: Sylvestre Ledru <sledru@mozilla.com>
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1239
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1240 diff --git a/PARPACK/SRC/BLACS/pcgetv0.f b/PARPACK/SRC/BLACS/pcgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1241 index 0325fda3..191d70fd 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1242 --- a/PARPACK/SRC/BLACS/pcgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1243 +++ b/PARPACK/SRC/BLACS/pcgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1244 @@ -406,9 +406,9 @@ subroutine pcgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1245 c %--------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1246 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1247 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1248 - call psvout (comm, logfil, 1, rnorm0, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1249 + call psvout (comm, logfil, 1, [rnorm0], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1250 & '_getv0: re-orthonalization ; rnorm0 is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1251 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1252 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1253 & '_getv0: re-orthonalization ; rnorm is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1254 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1255 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1256 diff --git a/PARPACK/SRC/BLACS/pcnaitr.f b/PARPACK/SRC/BLACS/pcnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1257 index a9f17ed8..04fa1cbe 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1258 --- a/PARPACK/SRC/BLACS/pcnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1259 +++ b/PARPACK/SRC/BLACS/pcnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1260 @@ -401,9 +401,9 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1261 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1262 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1263 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1264 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1265 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1266 & '_naitr: generating Arnoldi vector number')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1267 - call pcvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1268 + call pcvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1269 & '_naitr: B-norm of the current residual is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1270 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1271 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1272 @@ -423,7 +423,7 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1273 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1274 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1275 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1276 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1277 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1278 & '_naitr: ****** RESTART AT STEP ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1279 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1280 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1281 @@ -757,7 +757,7 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1282 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1283 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1284 if (msglvl .gt. 0 .and. iter .gt. 0 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1285 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1286 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1287 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1288 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1289 rtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1290 diff --git a/PARPACK/SRC/BLACS/pcnapps.f b/PARPACK/SRC/BLACS/pcnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1291 index 47fb7e70..e40793cf 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1292 --- a/PARPACK/SRC/BLACS/pcnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1293 +++ b/PARPACK/SRC/BLACS/pcnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1294 @@ -284,9 +284,9 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1295 sigma = shift(jj)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1296 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1297 if (msglvl .gt. 2 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1298 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1299 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1300 & '_napps: shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1301 - call pcvout (comm, logfil, 1, sigma, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1302 + call pcvout (comm, logfil, 1, [sigma], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1303 & '_napps: Value of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1304 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1305 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1306 @@ -307,9 +307,9 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1307 if ( abs(real(h(i+1,i)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1308 & .le. max(ulp*tst1, smlnum) ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1309 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1310 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1311 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1312 & '_napps: matrix splitting at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1313 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1314 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1315 & '_napps: matrix splitting with shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1316 call pcvout (comm, logfil, 1, h(i+1,i), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1317 & '_napps: off diagonal element.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1318 @@ -323,9 +323,9 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1319 40 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1320 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1321 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1322 - call pivout (comm, logfil, 1, istart, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1323 + call pivout (comm, logfil, 1, [istart], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1324 & '_napps: Start of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1325 - call pivout (comm, logfil, 1, iend, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1326 + call pivout (comm, logfil, 1, [iend], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1327 & '_napps: End of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1328 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1329 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1330 @@ -501,7 +501,7 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1331 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1332 call pcvout (comm, logfil, 1, h(kev+1,kev), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1333 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1334 - call pivout (comm, logfil, 1, kev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1335 + call pivout (comm, logfil, 1, [kev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1336 & '_napps: Order of the final Hessenberg matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1337 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1338 call pcmout (comm, logfil, kev, kev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1339 diff --git a/PARPACK/SRC/BLACS/pcnaup2.f b/PARPACK/SRC/BLACS/pcnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1340 index 55868069..757b12c3 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1341 --- a/PARPACK/SRC/BLACS/pcnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1342 +++ b/PARPACK/SRC/BLACS/pcnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1343 @@ -398,7 +398,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1344 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1345 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1346 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1347 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1348 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1349 & '_naup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1350 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1351 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1352 @@ -411,9 +411,9 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1353 np = kplusp - nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1354 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1355 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1356 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1357 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1358 & '_naup2: The length of the current Arnoldi factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1359 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1360 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1361 & '_naup2: Extend the Arnoldi factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1362 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1363 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1364 @@ -440,7 +440,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1365 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1366 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1367 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1368 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1369 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1370 & '_naup2: Corresponding B-norm of the residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1371 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1372 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1373 @@ -671,7 +671,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1374 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1375 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1376 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1377 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1378 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1379 & '_naup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1380 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1381 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1382 @@ -711,7 +711,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1383 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1384 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1385 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1386 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1387 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1388 & '_naup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1389 call pcvout (comm, logfil, np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1390 & '_naup2: values of the shifts')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1391 @@ -776,7 +776,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1392 cnorm = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1393 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1394 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1395 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1396 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1397 & '_naup2: B-norm of residual for compressed factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1398 call pcmout (comm, logfil, nev, nev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1399 & '_naup2: Compressed upper Hessenberg matrix H')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1400 diff --git a/PARPACK/SRC/BLACS/pcnaupd.f b/PARPACK/SRC/BLACS/pcnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1401 index b350199e..55bb655d 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1402 --- a/PARPACK/SRC/BLACS/pcnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1403 +++ b/PARPACK/SRC/BLACS/pcnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1404 @@ -618,9 +618,9 @@ subroutine pcnaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1405 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1406 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1407 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1408 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1409 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1410 & '_naupd: Number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1411 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1412 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1413 & '_naupd: Number of wanted "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1414 call pcvout (comm, logfil, np, workl(ritz), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1415 & '_naupd: The final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1416 diff --git a/PARPACK/SRC/BLACS/pcneupd.f b/PARPACK/SRC/BLACS/pcneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1417 index 53cf2d24..da4a9ec5 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1418 --- a/PARPACK/SRC/BLACS/pcneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1419 +++ b/PARPACK/SRC/BLACS/pcneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1420 @@ -558,9 +558,9 @@ subroutine pcneupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1421 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1422 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1423 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1424 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1425 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1426 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1427 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1428 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1429 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1430 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1431 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1432 diff --git a/PARPACK/SRC/BLACS/pcngets.f b/PARPACK/SRC/BLACS/pcngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1433 index f9cca353..89cd67ae 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1434 --- a/PARPACK/SRC/BLACS/pcngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1435 +++ b/PARPACK/SRC/BLACS/pcngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1436 @@ -177,8 +177,8 @@ subroutine pcngets ( comm, ishift, which, kev, np, ritz, bounds)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1437 tcgets = tcgets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1438 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1439 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1440 - call pivout (comm, logfil, 1, kev, ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1441 - call pivout (comm, logfil, 1, np, ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1442 + call pivout (comm, logfil, 1, [kev], ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1443 + call pivout (comm, logfil, 1, [np], ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1444 call pcvout (comm, logfil, kev+np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1445 & '_ngets: Eigenvalues of current H matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1446 call pcvout (comm, logfil, kev+np, bounds, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1447 diff --git a/PARPACK/SRC/BLACS/pdgetv0.f b/PARPACK/SRC/BLACS/pdgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1448 index 9c3a1d99..237443dd 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1449 --- a/PARPACK/SRC/BLACS/pdgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1450 +++ b/PARPACK/SRC/BLACS/pdgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1451 @@ -385,9 +385,9 @@ subroutine pdgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1452 c %--------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1453 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1454 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1455 - call pdvout (comm, logfil, 1, rnorm0, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1456 + call pdvout (comm, logfil, 1, [rnorm0], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1457 & '_getv0: re-orthonalization ; rnorm0 is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1458 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1459 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1460 & '_getv0: re-orthonalization ; rnorm is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1461 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1462 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1463 @@ -418,7 +418,7 @@ subroutine pdgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1464 50 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1465 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1466 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1467 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1468 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1469 & '_getv0: B-norm of initial / restarted starting vector')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1470 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1471 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1472 diff --git a/PARPACK/SRC/BLACS/pdnaitr.f b/PARPACK/SRC/BLACS/pdnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1473 index f6557560..fb46494f 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1474 --- a/PARPACK/SRC/BLACS/pdnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1475 +++ b/PARPACK/SRC/BLACS/pdnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1476 @@ -390,9 +390,9 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1477 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1478 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1479 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1480 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1481 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1482 & '_naitr: generating Arnoldi vector number')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1483 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1484 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1485 & '_naitr: B-norm of the current residual is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1486 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1487 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1488 @@ -412,7 +412,7 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1489 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1490 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1491 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1492 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1493 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1494 & '_naitr: ****** RESTART AT STEP ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1495 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1496 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1497 @@ -745,7 +745,7 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1498 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1499 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1500 if (msglvl .gt. 0 .and. iter .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1501 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1502 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1503 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1504 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1505 xtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1506 diff --git a/PARPACK/SRC/BLACS/pdnapps.f b/PARPACK/SRC/BLACS/pdnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1507 index 56e3414d..eadca320 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1508 --- a/PARPACK/SRC/BLACS/pdnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1509 +++ b/PARPACK/SRC/BLACS/pdnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1510 @@ -276,11 +276,11 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1511 sigmai = shifti(jj)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1512 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1513 if (msglvl .gt. 2 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1514 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1515 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1516 & '_napps: shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1517 - call pdvout (comm, logfil, 1, sigmar, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1518 + call pdvout (comm, logfil, 1, [sigmar], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1519 & '_napps: The real part of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1520 - call pdvout (comm, logfil, 1, sigmai, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1521 + call pdvout (comm, logfil, 1, [sigmai], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1522 & '_napps: The imaginary part of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1523 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1524 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1525 @@ -347,7 +347,7 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1526 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1527 call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1528 & '_napps: matrix splitting at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1529 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1530 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1531 & '_napps: matrix splitting with shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1532 call pdvout (comm, logfil, 1, h(i+1,i), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1533 & '_napps: off diagonal element.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1534 @@ -361,9 +361,9 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1535 40 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1536 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1537 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1538 - call pivout (comm, logfil, 1, istart, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1539 + call pivout (comm, logfil, 1, [istart], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1540 & '_napps: Start of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1541 - call pivout (comm, logfil, 1, iend, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1542 + call pivout (comm, logfil, 1, [iend], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1543 & '_napps: End of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1544 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1545 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1546 @@ -635,7 +635,7 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1547 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1548 call pdvout (comm, logfil, 1, h(kev+1,kev), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1549 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1550 - call pivout (comm, logfil, 1, kev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1551 + call pivout (comm, logfil, 1, [kev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1552 & '_napps: Order of the final Hessenberg matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1553 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1554 call pdmout (comm, logfil, kev, kev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1555 diff --git a/PARPACK/SRC/BLACS/pdnaup2.f b/PARPACK/SRC/BLACS/pdnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1556 index becea72d..a295dbbb 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1557 --- a/PARPACK/SRC/BLACS/pdnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1558 +++ b/PARPACK/SRC/BLACS/pdnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1559 @@ -405,7 +405,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1560 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1561 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1562 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1563 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1564 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1565 & '_naup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1566 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1567 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1568 @@ -418,9 +418,9 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1569 np = kplusp - nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1570 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1571 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1572 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1573 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1574 & '_naup2: The length of the current Arnoldi factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1575 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1576 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1577 & '_naup2: Extend the Arnoldi factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1578 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1579 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1580 @@ -452,7 +452,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1581 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1582 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1583 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1584 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1585 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1586 & '_naup2: Corresponding B-norm of the residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1587 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1588 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1589 @@ -696,7 +696,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1590 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1591 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1592 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1593 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1594 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1595 & '_naup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1596 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1597 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1598 @@ -748,7 +748,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1599 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1600 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1601 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1602 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1603 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1604 & '_naup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1605 call pdvout (comm, logfil, np, ritzr, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1606 & '_naup2: Real part of the shifts')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1607 @@ -815,7 +815,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1608 cnorm = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1609 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1610 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1611 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1612 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1613 & '_naup2: B-norm of residual for compressed factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1614 call pdmout (comm, logfil, nev, nev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1615 & '_naup2: Compressed upper Hessenberg matrix H')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1616 diff --git a/PARPACK/SRC/BLACS/pdnaupd.f b/PARPACK/SRC/BLACS/pdnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1617 index d947755b..ed0fa20f 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1618 --- a/PARPACK/SRC/BLACS/pdnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1619 +++ b/PARPACK/SRC/BLACS/pdnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1620 @@ -642,9 +642,9 @@ subroutine pdnaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1621 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1622 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1623 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1624 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1625 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1626 & '_naupd: Number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1627 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1628 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1629 & '_naupd: Number of wanted "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1630 call pdvout (comm, logfil, np, workl(ritzr), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1631 & '_naupd: Real part of the final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1632 diff --git a/PARPACK/SRC/BLACS/pdneupd.f b/PARPACK/SRC/BLACS/pdneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1633 index 0ff911ff..321202f9 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1634 --- a/PARPACK/SRC/BLACS/pdneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1635 +++ b/PARPACK/SRC/BLACS/pdneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1636 @@ -617,9 +617,9 @@ subroutine pdneupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1637 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1638 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1639 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1640 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1641 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1642 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1643 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1644 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1645 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1646 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1647 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1648 diff --git a/PARPACK/SRC/BLACS/pdngets.f b/PARPACK/SRC/BLACS/pdngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1649 index 71ed6a7c..12a691f6 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1650 --- a/PARPACK/SRC/BLACS/pdngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1651 +++ b/PARPACK/SRC/BLACS/pdngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1652 @@ -226,8 +226,8 @@ subroutine pdngets
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1653 tngets = tngets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1654 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1655 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1656 - call pivout (comm, logfil, 1, kev, ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1657 - call pivout (comm, logfil, 1, np, ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1658 + call pivout (comm, logfil, 1, [kev], ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1659 + call pivout (comm, logfil, 1, [np], ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1660 call pdvout (comm, logfil, kev+np, ritzr, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1661 & '_ngets: Eigenvalues of current H matrix -- real part')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1662 call pdvout (comm, logfil, kev+np, ritzi, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1663 diff --git a/PARPACK/SRC/BLACS/pdsaitr.f b/PARPACK/SRC/BLACS/pdsaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1664 index 37ca61e8..9a2cdfc1 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1665 --- a/PARPACK/SRC/BLACS/pdsaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1666 +++ b/PARPACK/SRC/BLACS/pdsaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1667 @@ -389,9 +389,9 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1668 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1669 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1670 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1671 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1672 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1673 & '_saitr: generating Arnoldi vector no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1674 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1675 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1676 & '_saitr: B-norm of the current residual =')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1677 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1678 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1679 @@ -409,7 +409,7 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1680 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1681 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1682 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1683 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1684 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1685 & '_saitr: ****** restart at step ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1686 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1687 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1688 @@ -767,7 +767,7 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1689 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1690 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1691 if (msglvl .gt. 0 .and. iter .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1692 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1693 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1694 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1695 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1696 xtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1697 diff --git a/PARPACK/SRC/BLACS/pdsapps.f b/PARPACK/SRC/BLACS/pdsapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1698 index b3a05cf4..4e2c0760 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1699 --- a/PARPACK/SRC/BLACS/pdsapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1700 +++ b/PARPACK/SRC/BLACS/pdsapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1701 @@ -272,9 +272,9 @@ subroutine pdsapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1702 big = abs(h(i,2)) + abs(h(i+1,2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1703 if (h(i+1,1) .le. epsmch*big) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1704 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1705 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1706 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1707 & '_sapps: deflation at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1708 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1709 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1710 & '_sapps: occurred before shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1711 call pdvout (comm, logfil, 1, h(i+1,1), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1712 & '_sapps: the corresponding off diagonal element')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1713 @@ -443,7 +443,7 @@ subroutine pdsapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1714 big = abs(h(i,2)) + abs(h(i+1,2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1715 if (h(i+1,1) .le. epsmch*big) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1716 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1717 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1718 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1719 & '_sapps: deflation at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1720 call pdvout (comm, logfil, 1, h(i+1,1), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1721 & '_sapps: the corresponding off diagonal element')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1722 diff --git a/PARPACK/SRC/BLACS/pdsaup2.f b/PARPACK/SRC/BLACS/pdsaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1723 index cf934016..599aad62 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1724 --- a/PARPACK/SRC/BLACS/pdsaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1725 +++ b/PARPACK/SRC/BLACS/pdsaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1726 @@ -421,13 +421,13 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1727 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1728 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1729 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1730 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1731 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1732 & '_saup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1733 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1734 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1735 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1736 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1737 & '_saup2: The length of the current Lanczos factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1738 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1739 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1740 & '_saup2: Extend the Lanczos factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1741 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1742 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1743 @@ -466,7 +466,7 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1744 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1745 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1746 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1747 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1748 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1749 & '_saup2: Current B-norm of residual for factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1750 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1751 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1752 @@ -716,7 +716,7 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1753 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1754 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1755 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1756 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1757 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1758 & '_saup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1759 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1760 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1761 @@ -763,7 +763,7 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1762 if (ishift .eq. 0) call dcopy (np, workl, 1, ritz, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1763 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1764 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1765 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1766 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1767 & '_saup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1768 call pdvout (comm, logfil, np, workl, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1769 & '_saup2: shifts selected')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1770 @@ -831,7 +831,7 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1771 130 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1772 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1773 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1774 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1775 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1776 & '_saup2: B-norm of residual for NEV factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1777 call pdvout (comm, logfil, nev, h(1,2), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1778 & '_saup2: main diagonal of compressed H matrix')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1779 diff --git a/PARPACK/SRC/BLACS/pdsaupd.f b/PARPACK/SRC/BLACS/pdsaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1780 index 5f606d59..cb021128 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1781 --- a/PARPACK/SRC/BLACS/pdsaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1782 +++ b/PARPACK/SRC/BLACS/pdsaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1783 @@ -644,9 +644,9 @@ subroutine pdsaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1784 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1785 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1786 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1787 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1788 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1789 & '_saupd: number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1790 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1791 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1792 & '_saupd: number of "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1793 call pdvout (comm, logfil, np, workl(Ritz), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1794 & '_saupd: final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1795 diff --git a/PARPACK/SRC/BLACS/pdseupd.f b/PARPACK/SRC/BLACS/pdseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1796 index 956891cd..074b195b 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1797 --- a/PARPACK/SRC/BLACS/pdseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1798 +++ b/PARPACK/SRC/BLACS/pdseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1799 @@ -523,9 +523,9 @@ subroutine pdseupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1800 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1801 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1802 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1803 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1804 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1805 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1806 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1807 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1808 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1809 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1810 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1811 diff --git a/PARPACK/SRC/BLACS/pdsgets.f b/PARPACK/SRC/BLACS/pdsgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1812 index aa549a25..d0f703bb 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1813 --- a/PARPACK/SRC/BLACS/pdsgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1814 +++ b/PARPACK/SRC/BLACS/pdsgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1815 @@ -216,8 +216,8 @@ subroutine pdsgets
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1816 tsgets = tsgets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1817 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1818 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1819 - call pivout (comm, logfil, 1, kev, ndigit, '_sgets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1820 - call pivout (comm, logfil, 1, np, ndigit, '_sgets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1821 + call pivout (comm, logfil, 1, [kev], ndigit, '_sgets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1822 + call pivout (comm, logfil, 1, [np], ndigit, '_sgets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1823 call pdvout (comm, logfil, kev+np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1824 & '_sgets: Eigenvalues of current H matrix')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1825 call pdvout (comm, logfil, kev+np, bounds, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1826 diff --git a/PARPACK/SRC/BLACS/psgetv0.f b/PARPACK/SRC/BLACS/psgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1827 index 9862d055..d48cb6db 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1828 --- a/PARPACK/SRC/BLACS/psgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1829 +++ b/PARPACK/SRC/BLACS/psgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1830 @@ -385,9 +385,9 @@ subroutine psgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1831 c %--------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1832 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1833 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1834 - call psvout (comm, logfil, 1, rnorm0, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1835 + call psvout (comm, logfil, 1, [rnorm0], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1836 & '_getv0: re-orthonalization ; rnorm0 is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1837 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1838 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1839 & '_getv0: re-orthonalization ; rnorm is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1840 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1841 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1842 @@ -418,7 +418,7 @@ subroutine psgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1843 50 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1844 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1845 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1846 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1847 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1848 & '_getv0: B-norm of initial / restarted starting vector')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1849 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1850 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1851 diff --git a/PARPACK/SRC/BLACS/psnaitr.f b/PARPACK/SRC/BLACS/psnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1852 index 07aa0526..bbd2809c 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1853 --- a/PARPACK/SRC/BLACS/psnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1854 +++ b/PARPACK/SRC/BLACS/psnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1855 @@ -390,9 +390,9 @@ subroutine psnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1856 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1857 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1858 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1859 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1860 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1861 & '_naitr: generating Arnoldi vector number')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1862 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1863 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1864 & '_naitr: B-norm of the current residual is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1865 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1866 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1867 @@ -412,7 +412,7 @@ subroutine psnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1868 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1869 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1870 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1871 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1872 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1873 & '_naitr: ****** RESTART AT STEP ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1874 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1875 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1876 @@ -745,7 +745,7 @@ subroutine psnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1877 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1878 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1879 if (msglvl .gt. 0 .and. iter .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1880 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1881 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1882 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1883 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1884 xtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1885 diff --git a/PARPACK/SRC/BLACS/psnapps.f b/PARPACK/SRC/BLACS/psnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1886 index a515d0cd..ba668bba 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1887 --- a/PARPACK/SRC/BLACS/psnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1888 +++ b/PARPACK/SRC/BLACS/psnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1889 @@ -276,11 +276,11 @@ subroutine psnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1890 sigmai = shifti(jj)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1891 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1892 if (msglvl .gt. 2 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1893 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1894 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1895 & '_napps: shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1896 - call psvout (comm, logfil, 1, sigmar, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1897 + call psvout (comm, logfil, 1, [sigmar], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1898 & '_napps: The real part of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1899 - call psvout (comm, logfil, 1, sigmai, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1900 + call psvout (comm, logfil, 1, [sigmai], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1901 & '_napps: The imaginary part of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1902 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1903 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1904 @@ -347,7 +347,7 @@ subroutine psnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1905 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1906 call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1907 & '_napps: matrix splitting at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1908 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1909 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1910 & '_napps: matrix splitting with shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1911 call psvout (comm, logfil, 1, h(i+1,i), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1912 & '_napps: off diagonal element.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1913 @@ -361,9 +361,9 @@ subroutine psnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1914 40 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1915 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1916 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1917 - call pivout (comm, logfil, 1, istart, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1918 + call pivout (comm, logfil, 1, [istart], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1919 & '_napps: Start of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1920 - call pivout (comm, logfil, 1, iend, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1921 + call pivout (comm, logfil, 1, [iend], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1922 & '_napps: End of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1923 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1924 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1925 @@ -635,7 +635,7 @@ subroutine psnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1926 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1927 call psvout (comm, logfil, 1, h(kev+1,kev), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1928 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1929 - call pivout (comm, logfil, 1, kev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1930 + call pivout (comm, logfil, 1, [kev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1931 & '_napps: Order of the final Hessenberg matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1932 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1933 call psmout (comm, logfil, kev, kev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1934 diff --git a/PARPACK/SRC/BLACS/psnaup2.f b/PARPACK/SRC/BLACS/psnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1935 index eff2a136..e4603273 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1936 --- a/PARPACK/SRC/BLACS/psnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1937 +++ b/PARPACK/SRC/BLACS/psnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1938 @@ -405,7 +405,7 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1939 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1940 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1941 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1942 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1943 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1944 & '_naup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1945 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1946 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1947 @@ -418,9 +418,9 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1948 np = kplusp - nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1949 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1950 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1951 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1952 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1953 & '_naup2: The length of the current Arnoldi factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1954 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1955 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1956 & '_naup2: Extend the Arnoldi factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1957 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1958 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1959 @@ -452,7 +452,7 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1960 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1961 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1962 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1963 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1964 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1965 & '_naup2: Corresponding B-norm of the residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1966 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1967 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1968 @@ -696,7 +696,7 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1969 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1970 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1971 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1972 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1973 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1974 & '_naup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1975 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1976 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1977 @@ -748,7 +748,7 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1978 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1979 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1980 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1981 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1982 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1983 & '_naup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1984 call psvout (comm, logfil, np, ritzr, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1985 & '_naup2: Real part of the shifts')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1986 @@ -815,7 +815,7 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1987 cnorm = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1988 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1989 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1990 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1991 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1992 & '_naup2: B-norm of residual for compressed factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1993 call psmout (comm, logfil, nev, nev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1994 & '_naup2: Compressed upper Hessenberg matrix H')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1995 diff --git a/PARPACK/SRC/BLACS/psnaupd.f b/PARPACK/SRC/BLACS/psnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1996 index 55f34ce6..4f2484f9 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1997 --- a/PARPACK/SRC/BLACS/psnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1998 +++ b/PARPACK/SRC/BLACS/psnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1999 @@ -642,9 +642,9 @@ subroutine psnaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2000 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2001 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2002 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2003 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2004 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2005 & '_naupd: Number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2006 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2007 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2008 & '_naupd: Number of wanted "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2009 call psvout (comm, logfil, np, workl(ritzr), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2010 & '_naupd: Real part of the final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2011 diff --git a/PARPACK/SRC/BLACS/psneupd.f b/PARPACK/SRC/BLACS/psneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2012 index 49847ffe..cbdaba28 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2013 --- a/PARPACK/SRC/BLACS/psneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2014 +++ b/PARPACK/SRC/BLACS/psneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2015 @@ -617,9 +617,9 @@ subroutine psneupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2016 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2017 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2018 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2019 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2020 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2021 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2022 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2023 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2024 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2025 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2026 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2027 diff --git a/PARPACK/SRC/BLACS/psngets.f b/PARPACK/SRC/BLACS/psngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2028 index c0e30886..33d85dfe 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2029 --- a/PARPACK/SRC/BLACS/psngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2030 +++ b/PARPACK/SRC/BLACS/psngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2031 @@ -226,8 +226,8 @@ subroutine psngets
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2032 tngets = tngets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2033 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2034 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2035 - call pivout (comm, logfil, 1, kev, ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2036 - call pivout (comm, logfil, 1, np, ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2037 + call pivout (comm, logfil, 1, [kev], ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2038 + call pivout (comm, logfil, 1, [np], ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2039 call psvout (comm, logfil, kev+np, ritzr, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2040 & '_ngets: Eigenvalues of current H matrix -- real part')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2041 call psvout (comm, logfil, kev+np, ritzi, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2042 diff --git a/PARPACK/SRC/BLACS/pssaitr.f b/PARPACK/SRC/BLACS/pssaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2043 index 50816c4f..e57864a5 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2044 --- a/PARPACK/SRC/BLACS/pssaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2045 +++ b/PARPACK/SRC/BLACS/pssaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2046 @@ -389,9 +389,9 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2047 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2048 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2049 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2050 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2051 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2052 & '_saitr: generating Arnoldi vector no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2053 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2054 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2055 & '_saitr: B-norm of the current residual =')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2056 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2057 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2058 @@ -409,7 +409,7 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2059 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2060 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2061 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2062 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2063 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2064 & '_saitr: ****** restart at step ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2065 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2066 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2067 @@ -767,7 +767,7 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2068 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2069 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2070 if (msglvl .gt. 0 .and. iter .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2071 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2072 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2073 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2074 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2075 xtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2076 diff --git a/PARPACK/SRC/BLACS/pssapps.f b/PARPACK/SRC/BLACS/pssapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2077 index 7c8465b3..5198a734 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2078 --- a/PARPACK/SRC/BLACS/pssapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2079 +++ b/PARPACK/SRC/BLACS/pssapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2080 @@ -272,9 +272,9 @@ subroutine pssapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2081 big = abs(h(i,2)) + abs(h(i+1,2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2082 if (h(i+1,1) .le. epsmch*big) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2083 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2084 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2085 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2086 & '_sapps: deflation at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2087 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2088 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2089 & '_sapps: occurred before shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2090 call psvout (comm, logfil, 1, h(i+1,1), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2091 & '_sapps: the corresponding off diagonal element')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2092 @@ -443,7 +443,7 @@ subroutine pssapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2093 big = abs(h(i,2)) + abs(h(i+1,2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2094 if (h(i+1,1) .le. epsmch*big) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2095 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2096 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2097 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2098 & '_sapps: deflation at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2099 call psvout (comm, logfil, 1, h(i+1,1), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2100 & '_sapps: the corresponding off diagonal element')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2101 diff --git a/PARPACK/SRC/BLACS/pssaup2.f b/PARPACK/SRC/BLACS/pssaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2102 index 57ab391b..87cc3a81 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2103 --- a/PARPACK/SRC/BLACS/pssaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2104 +++ b/PARPACK/SRC/BLACS/pssaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2105 @@ -421,13 +421,13 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2106 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2107 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2108 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2109 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2110 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2111 & '_saup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2112 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2113 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2114 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2115 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2116 & '_saup2: The length of the current Lanczos factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2117 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2118 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2119 & '_saup2: Extend the Lanczos factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2120 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2121 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2122 @@ -466,7 +466,7 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2123 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2124 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2125 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2126 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2127 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2128 & '_saup2: Current B-norm of residual for factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2129 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2130 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2131 @@ -716,7 +716,7 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2132 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2133 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2134 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2135 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2136 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2137 & '_saup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2138 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2139 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2140 @@ -763,7 +763,7 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2141 if (ishift .eq. 0) call scopy (np, workl, 1, ritz, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2142 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2143 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2144 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2145 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2146 & '_saup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2147 call psvout (comm, logfil, np, workl, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2148 & '_saup2: shifts selected')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2149 @@ -831,7 +831,7 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2150 130 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2151 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2152 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2153 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2154 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2155 & '_saup2: B-norm of residual for NEV factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2156 call psvout (comm, logfil, nev, h(1,2), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2157 & '_saup2: main diagonal of compressed H matrix')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2158 diff --git a/PARPACK/SRC/BLACS/pssaupd.f b/PARPACK/SRC/BLACS/pssaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2159 index 1b276e86..9d6061c1 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2160 --- a/PARPACK/SRC/BLACS/pssaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2161 +++ b/PARPACK/SRC/BLACS/pssaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2162 @@ -644,9 +644,9 @@ subroutine pssaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2163 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2164 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2165 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2166 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2167 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2168 & '_saupd: number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2169 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2170 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2171 & '_saupd: number of "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2172 call psvout (comm, logfil, np, workl(Ritz), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2173 & '_saupd: final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2174 diff --git a/PARPACK/SRC/BLACS/psseupd.f b/PARPACK/SRC/BLACS/psseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2175 index 68edab15..e8c910e8 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2176 --- a/PARPACK/SRC/BLACS/psseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2177 +++ b/PARPACK/SRC/BLACS/psseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2178 @@ -523,9 +523,9 @@ subroutine psseupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2179 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2180 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2181 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2182 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2183 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2184 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2185 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2186 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2187 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2188 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2189 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2190 diff --git a/PARPACK/SRC/BLACS/pssgets.f b/PARPACK/SRC/BLACS/pssgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2191 index d138282a..660c274f 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2192 --- a/PARPACK/SRC/BLACS/pssgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2193 +++ b/PARPACK/SRC/BLACS/pssgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2194 @@ -216,8 +216,8 @@ subroutine pssgets
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2195 tsgets = tsgets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2196 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2197 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2198 - call pivout (comm, logfil, 1, kev, ndigit, '_sgets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2199 - call pivout (comm, logfil, 1, np, ndigit, '_sgets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2200 + call pivout (comm, logfil, 1, [kev], ndigit, '_sgets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2201 + call pivout (comm, logfil, 1, [np], ndigit, '_sgets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2202 call psvout (comm, logfil, kev+np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2203 & '_sgets: Eigenvalues of current H matrix')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2204 call psvout (comm, logfil, kev+np, bounds, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2205 diff --git a/PARPACK/SRC/BLACS/pzgetv0.f b/PARPACK/SRC/BLACS/pzgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2206 index 09723313..c1d173f0 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2207 --- a/PARPACK/SRC/BLACS/pzgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2208 +++ b/PARPACK/SRC/BLACS/pzgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2209 @@ -406,9 +406,9 @@ subroutine pzgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2210 c %--------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2211 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2212 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2213 - call pdvout (comm, logfil, 1, rnorm0, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2214 + call pdvout (comm, logfil, 1, [rnorm0], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2215 & '_getv0: re-orthonalization ; rnorm0 is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2216 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2217 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2218 & '_getv0: re-orthonalization ; rnorm is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2219 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2220 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2221 @@ -440,7 +440,7 @@ subroutine pzgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2222 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2223 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2224 cnorm2 = dcmplx (rnorm,rzero)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2225 - call pzvout (comm, logfil, 1, cnorm2, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2226 + call pzvout (comm, logfil, 1, [cnorm2], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2227 & '_getv0: B-norm of initial / restarted starting vector')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2228 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2229 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2230 diff --git a/PARPACK/SRC/BLACS/pznaitr.f b/PARPACK/SRC/BLACS/pznaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2231 index 61f467a2..92db7fe7 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2232 --- a/PARPACK/SRC/BLACS/pznaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2233 +++ b/PARPACK/SRC/BLACS/pznaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2234 @@ -401,9 +401,9 @@ subroutine pznaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2235 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2236 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2237 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2238 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2239 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2240 & '_naitr: generating Arnoldi vector number')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2241 - call pzvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2242 + call pzvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2243 & '_naitr: B-norm of the current residual is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2244 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2245 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2246 @@ -423,7 +423,7 @@ subroutine pznaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2247 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2248 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2249 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2250 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2251 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2252 & '_naitr: ****** RESTART AT STEP ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2253 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2254 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2255 @@ -757,7 +757,7 @@ subroutine pznaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2256 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2257 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2258 if (msglvl .gt. 0 .and. iter .gt. 0 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2259 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2260 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2261 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2262 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2263 rtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2264 diff --git a/PARPACK/SRC/BLACS/pznapps.f b/PARPACK/SRC/BLACS/pznapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2265 index 796f4ded..155038d1 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2266 --- a/PARPACK/SRC/BLACS/pznapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2267 +++ b/PARPACK/SRC/BLACS/pznapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2268 @@ -284,9 +284,9 @@ subroutine pznapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2269 sigma = shift(jj)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2270 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2271 if (msglvl .gt. 2 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2272 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2273 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2274 & '_napps: shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2275 - call pzvout (comm, logfil, 1, sigma, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2276 + call pzvout (comm, logfil, 1, [sigma], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2277 & '_napps: Value of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2278 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2279 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2280 @@ -307,9 +307,9 @@ subroutine pznapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2281 if ( abs(dble(h(i+1,i)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2282 & .le. max(ulp*tst1, smlnum) ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2283 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2284 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2285 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2286 & '_napps: matrix splitting at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2287 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2288 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2289 & '_napps: matrix splitting with shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2290 call pzvout (comm, logfil, 1, h(i+1,i), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2291 & '_napps: off diagonal element.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2292 @@ -323,9 +323,9 @@ subroutine pznapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2293 40 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2294 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2295 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2296 - call pivout (comm, logfil, 1, istart, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2297 + call pivout (comm, logfil, 1, [istart], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2298 & '_napps: Start of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2299 - call pivout (comm, logfil, 1, iend, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2300 + call pivout (comm, logfil, 1, [iend], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2301 & '_napps: End of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2302 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2303 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2304 @@ -501,7 +501,7 @@ subroutine pznapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2305 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2306 call pzvout (comm, logfil, 1, h(kev+1,kev), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2307 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2308 - call pivout (comm, logfil, 1, kev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2309 + call pivout (comm, logfil, 1, [kev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2310 & '_napps: Order of the final Hessenberg matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2311 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2312 call pzmout (comm, logfil, kev, kev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2313 diff --git a/PARPACK/SRC/BLACS/pznaup2.f b/PARPACK/SRC/BLACS/pznaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2314 index 22b46dd2..1610a588 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2315 --- a/PARPACK/SRC/BLACS/pznaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2316 +++ b/PARPACK/SRC/BLACS/pznaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2317 @@ -398,7 +398,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2318 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2319 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2320 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2321 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2322 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2323 & '_naup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2324 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2325 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2326 @@ -411,9 +411,9 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2327 np = kplusp - nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2328 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2329 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2330 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2331 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2332 & '_naup2: The length of the current Arnoldi factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2333 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2334 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2335 & '_naup2: Extend the Arnoldi factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2336 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2337 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2338 @@ -440,7 +440,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2339 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2340 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2341 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2342 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2343 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2344 & '_naup2: Corresponding B-norm of the residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2345 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2346 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2347 @@ -671,7 +671,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2348 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2349 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2350 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2351 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2352 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2353 & '_naup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2354 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2355 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2356 @@ -711,7 +711,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2357 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2358 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2359 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2360 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2361 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2362 & '_naup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2363 call pzvout (comm, logfil, np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2364 & '_naup2: values of the shifts')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2365 @@ -776,7 +776,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2366 cnorm = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2367 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2368 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2369 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2370 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2371 & '_naup2: B-norm of residual for compressed factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2372 call pzmout (comm, logfil, nev, nev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2373 & '_naup2: Compressed upper Hessenberg matrix H')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2374 diff --git a/PARPACK/SRC/BLACS/pznaupd.f b/PARPACK/SRC/BLACS/pznaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2375 index 0bf616f9..b46679a6 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2376 --- a/PARPACK/SRC/BLACS/pznaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2377 +++ b/PARPACK/SRC/BLACS/pznaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2378 @@ -618,9 +618,9 @@ subroutine pznaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2379 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2380 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2381 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2382 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2383 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2384 & '_naupd: Number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2385 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2386 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2387 & '_naupd: Number of wanted "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2388 call pzvout (comm, logfil, np, workl(ritz), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2389 & '_naupd: The final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2390 diff --git a/PARPACK/SRC/BLACS/pzneupd.f b/PARPACK/SRC/BLACS/pzneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2391 index 1970e488..c2f508f2 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2392 --- a/PARPACK/SRC/BLACS/pzneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2393 +++ b/PARPACK/SRC/BLACS/pzneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2394 @@ -558,9 +558,9 @@ subroutine pzneupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2395 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2396 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2397 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2398 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2399 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2400 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2401 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2402 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2403 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2404 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2405 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2406 diff --git a/PARPACK/SRC/BLACS/pzngets.f b/PARPACK/SRC/BLACS/pzngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2407 index 18e1518d..d880b4cc 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2408 --- a/PARPACK/SRC/BLACS/pzngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2409 +++ b/PARPACK/SRC/BLACS/pzngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2410 @@ -177,8 +177,8 @@ subroutine pzngets ( comm, ishift, which, kev, np, ritz, bounds)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2411 tcgets = tcgets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2412 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2413 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2414 - call pivout (comm, logfil, 1, kev, ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2415 - call pivout (comm, logfil, 1, np, ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2416 + call pivout (comm, logfil, 1, [kev], ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2417 + call pivout (comm, logfil, 1, [np], ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2418 call pzvout (comm, logfil, kev+np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2419 & '_ngets: Eigenvalues of current H matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2420 call pzvout (comm, logfil, kev+np, bounds, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2421 diff --git a/PARPACK/SRC/MPI/pcgetv0.f b/PARPACK/SRC/MPI/pcgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2422 index aacfd046..72677a50 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2423 --- a/PARPACK/SRC/MPI/pcgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2424 +++ b/PARPACK/SRC/MPI/pcgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2425 @@ -185,7 +185,7 @@ subroutine pcgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2426 save first, iseed, inits, iter, msglvl, orth, rnorm0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2427 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2428 Complex
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2429 - & cnorm_buf
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2430 + & cnorm_buf, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2431 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2432 c %----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2433 c | External Subroutines |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2434 @@ -332,8 +332,9 @@ subroutine pcgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2435 first = .FALSE.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2436 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2437 cnorm_buf = cdotc (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2438 - call MPI_ALLREDUCE( cnorm_buf, cnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2439 + call MPI_ALLREDUCE( [cnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2440 & MPI_COMPLEX, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2441 + cnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2442 rnorm0 = sqrt(slapy2(real (cnorm),aimag(cnorm)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2443 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2444 rnorm0 = pscnorm2( comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2445 @@ -393,8 +394,9 @@ subroutine pcgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2446 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2447 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2448 cnorm_buf = cdotc (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2449 - call MPI_ALLREDUCE( cnorm_buf, cnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2450 + call MPI_ALLREDUCE( [cnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2451 & MPI_COMPLEX, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2452 + cnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2453 rnorm = sqrt(slapy2(real (cnorm),aimag(cnorm)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2454 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2455 rnorm = pscnorm2(comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2456 @@ -405,9 +407,9 @@ subroutine pcgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2457 c %--------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2458 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2459 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2460 - call psvout (comm, logfil, 1, rnorm0, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2461 + call psvout (comm, logfil, 1, [rnorm0], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2462 & '_getv0: re-orthonalization ; rnorm0 is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2463 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2464 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2465 & '_getv0: re-orthonalization ; rnorm is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2466 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2467 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2468 @@ -439,7 +441,7 @@ subroutine pcgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2469 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2470 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2471 cnorm2 = cmplx(rnorm,rzero)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2472 - call pcvout (comm, logfil, 1, cnorm2, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2473 + call pcvout (comm, logfil, 1, [cnorm2], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2474 & '_getv0: B-norm of initial / restarted starting vector')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2475 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2476 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2477 diff --git a/PARPACK/SRC/MPI/pcnaitr.f b/PARPACK/SRC/MPI/pcnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2478 index 4a27960a..fe246ea0 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2479 --- a/PARPACK/SRC/MPI/pcnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2480 +++ b/PARPACK/SRC/MPI/pcnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2481 @@ -293,7 +293,7 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2482 & betaj, rnorm1, smlnum, ulp, unfl, wnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2483 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2484 Complex
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2485 - & cnorm_buf
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2486 + & cnorm_buf, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2487 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2488 c %----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2489 c | External Subroutines |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2490 @@ -404,9 +404,9 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2491 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2492 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2493 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2494 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2495 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2496 & '_naitr: generating Arnoldi vector number')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2497 - call pcvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2498 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2499 & '_naitr: B-norm of the current residual is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2500 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2501 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2502 @@ -426,7 +426,7 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2503 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2504 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2505 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2506 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2507 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2508 & '_naitr: ****** RESTART AT STEP ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2509 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2510 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2511 @@ -577,8 +577,9 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2512 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2513 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2514 cnorm_buf = cdotc (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2515 - call MPI_ALLREDUCE( cnorm_buf, cnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2516 + call MPI_ALLREDUCE( [cnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2517 & MPI_COMPLEX, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2518 + cnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2519 wnorm = sqrt( slapy2(real(cnorm),aimag(cnorm)) )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2520 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2521 wnorm = pscnorm2(comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2522 @@ -653,8 +654,9 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2523 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2524 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2525 cnorm_buf = cdotc (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2526 - call MPI_ALLREDUCE( cnorm_buf, cnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2527 + call MPI_ALLREDUCE( [cnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2528 & MPI_COMPLEX, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2529 + cnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2530 rnorm = sqrt( slapy2(real(cnorm),aimag(cnorm)) )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2531 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2532 rnorm = pscnorm2(comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2533 @@ -757,15 +759,16 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2534 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2535 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2536 cnorm_buf = cdotc (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2537 - call MPI_ALLREDUCE( cnorm_buf, cnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2538 + call MPI_ALLREDUCE( [cnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2539 & MPI_COMPLEX, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2540 + cnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2541 rnorm1 = sqrt( slapy2(real(cnorm),aimag(cnorm)) )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2542 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2543 rnorm1 = pscnorm2(comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2544 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2545 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2546 if (msglvl .gt. 0 .and. iter .gt. 0 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2547 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2548 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2549 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2550 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2551 rtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2552 diff --git a/PARPACK/SRC/MPI/pcnapps.f b/PARPACK/SRC/MPI/pcnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2553 index 76077b92..f17686d8 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2554 --- a/PARPACK/SRC/MPI/pcnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2555 +++ b/PARPACK/SRC/MPI/pcnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2556 @@ -283,9 +283,9 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2557 sigma = shift(jj)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2558 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2559 if (msglvl .gt. 2 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2560 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2561 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2562 & '_napps: shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2563 - call pcvout (comm, logfil, 1, sigma, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2564 + call pcvout (comm, logfil, 1, [sigma], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2565 & '_napps: Value of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2566 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2567 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2568 @@ -306,9 +306,9 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2569 if ( abs(real(h(i+1,i)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2570 & .le. max(ulp*tst1, smlnum) ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2571 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2572 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2573 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2574 & '_napps: matrix splitting at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2575 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2576 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2577 & '_napps: matrix splitting with shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2578 call pcvout (comm, logfil, 1, h(i+1,i), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2579 & '_napps: off diagonal element.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2580 @@ -322,9 +322,9 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2581 40 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2582 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2583 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2584 - call pivout (comm, logfil, 1, istart, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2585 + call pivout (comm, logfil, 1, [istart], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2586 & '_napps: Start of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2587 - call pivout (comm, logfil, 1, iend, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2588 + call pivout (comm, logfil, 1, [iend], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2589 & '_napps: End of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2590 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2591 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2592 @@ -500,7 +500,7 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2593 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2594 call pcvout (comm, logfil, 1, h(kev+1,kev), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2595 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2596 - call pivout (comm, logfil, 1, kev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2597 + call pivout (comm, logfil, 1, [kev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2598 & '_napps: Order of the final Hessenberg matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2599 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2600 call pcmout (comm, logfil, kev, kev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2601 diff --git a/PARPACK/SRC/MPI/pcnaup2.f b/PARPACK/SRC/MPI/pcnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2602 index 91fe9293..4b0d6ceb 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2603 --- a/PARPACK/SRC/MPI/pcnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2604 +++ b/PARPACK/SRC/MPI/pcnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2605 @@ -237,7 +237,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2606 & nevbef, nev0 , np0, eps23
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2607 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2608 Real
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2609 - & cmpnorm_buf
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2610 + & cmpnorm_buf, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2611 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2612 c %-----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2613 c | Local array arguments |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2614 @@ -401,7 +401,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2615 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2616 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2617 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2618 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2619 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2620 & '_naup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2621 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2622 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2623 @@ -414,9 +414,9 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2624 np = kplusp - nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2625 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2626 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2627 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2628 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2629 & '_naup2: The length of the current Arnoldi factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2630 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2631 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2632 & '_naup2: Extend the Arnoldi factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2633 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2634 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2635 @@ -443,7 +443,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2636 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2637 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2638 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2639 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2640 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2641 & '_naup2: Corresponding B-norm of the residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2642 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2643 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2644 @@ -674,7 +674,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2645 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2646 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2647 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2648 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2649 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2650 & '_naup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2651 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2652 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2653 @@ -714,7 +714,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2654 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2655 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2656 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2657 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2658 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2659 & '_naup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2660 call pcvout (comm, logfil, np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2661 & '_naup2: values of the shifts')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2662 @@ -771,8 +771,9 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2663 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2664 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2665 cmpnorm_buf = cdotc (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2666 - call MPI_ALLREDUCE( cmpnorm_buf, cmpnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2667 + call MPI_ALLREDUCE( [cmpnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2668 & MPI_COMPLEX, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2669 + cmpnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2670 rnorm = sqrt(slapy2(real(cmpnorm),aimag(cmpnorm)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2671 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2672 rnorm = pscnorm2(comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2673 @@ -780,7 +781,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2674 cnorm = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2675 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2676 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2677 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2678 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2679 & '_naup2: B-norm of residual for compressed factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2680 call pcmout (comm, logfil, nev, nev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2681 & '_naup2: Compressed upper Hessenberg matrix H')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2682 diff --git a/PARPACK/SRC/MPI/pcnaupd.f b/PARPACK/SRC/MPI/pcnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2683 index 5b8e1f5c..0bd6eb6c 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2684 --- a/PARPACK/SRC/MPI/pcnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2685 +++ b/PARPACK/SRC/MPI/pcnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2686 @@ -626,9 +626,9 @@ subroutine pcnaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2687 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2688 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2689 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2690 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2691 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2692 & '_naupd: Number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2693 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2694 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2695 & '_naupd: Number of wanted "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2696 call pcvout (comm, logfil, np, workl(ritz), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2697 & '_naupd: The final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2698 diff --git a/PARPACK/SRC/MPI/pcneupd.f b/PARPACK/SRC/MPI/pcneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2699 index 2566f8a5..8ced1df6 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2700 --- a/PARPACK/SRC/MPI/pcneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2701 +++ b/PARPACK/SRC/MPI/pcneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2702 @@ -558,9 +558,9 @@ subroutine pcneupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2703 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2704 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2705 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2706 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2707 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2708 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2709 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2710 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2711 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2712 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2713 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2714 diff --git a/PARPACK/SRC/MPI/pcngets.f b/PARPACK/SRC/MPI/pcngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2715 index 34b9b047..5f672149 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2716 --- a/PARPACK/SRC/MPI/pcngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2717 +++ b/PARPACK/SRC/MPI/pcngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2718 @@ -177,8 +177,8 @@ subroutine pcngets ( comm, ishift, which, kev, np, ritz, bounds)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2719 tcgets = tcgets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2720 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2721 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2722 - call pivout (comm, logfil, 1, kev, ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2723 - call pivout (comm, logfil, 1, np, ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2724 + call pivout (comm, logfil, 1, [kev], ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2725 + call pivout (comm, logfil, 1, [np], ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2726 call pcvout (comm, logfil, kev+np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2727 & '_ngets: Eigenvalues of current H matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2728 call pcvout (comm, logfil, kev+np, bounds, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2729 diff --git a/PARPACK/SRC/MPI/pdgetv0.f b/PARPACK/SRC/MPI/pdgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2730 index 3dc71c66..54ed850c 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2731 --- a/PARPACK/SRC/MPI/pdgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2732 +++ b/PARPACK/SRC/MPI/pdgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2733 @@ -180,7 +180,7 @@ subroutine pdgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2734 logical first, inits, orth
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2735 integer idist, iseed(4), iter, msglvl, jj
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2736 Double precision
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2737 - & rnorm0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2738 + & rnorm0, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2739 save first, iseed, inits, iter, msglvl, orth, rnorm0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2740 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2741 Double precision
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2742 @@ -318,9 +318,9 @@ subroutine pdgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2743 first = .FALSE.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2744 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2745 rnorm_buf = ddot (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2746 - call MPI_ALLREDUCE( rnorm_buf, rnorm0, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2747 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2748 & MPI_DOUBLE_PRECISION, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2749 - rnorm0 = sqrt(abs(rnorm0))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2750 + rnorm0 = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2751 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2752 rnorm0 = pdnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2753 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2754 @@ -379,9 +379,9 @@ subroutine pdgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2755 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2756 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2757 rnorm_buf = ddot (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2758 - call MPI_ALLREDUCE( rnorm_buf, rnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2759 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2760 & MPI_DOUBLE_PRECISION, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2761 - rnorm = sqrt(abs(rnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2762 + rnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2763 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2764 rnorm = pdnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2765 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2766 @@ -391,9 +391,9 @@ subroutine pdgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2767 c %--------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2768 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2769 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2770 - call pdvout (comm, logfil, 1, rnorm0, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2771 + call pdvout (comm, logfil, 1, [rnorm0], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2772 & '_getv0: re-orthonalization ; rnorm0 is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2773 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2774 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2775 & '_getv0: re-orthonalization ; rnorm is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2776 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2777 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2778 @@ -424,7 +424,7 @@ subroutine pdgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2779 50 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2780 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2781 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2782 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2783 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2784 & '_getv0: B-norm of initial / restarted starting vector')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2785 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2786 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2787 diff --git a/PARPACK/SRC/MPI/pdlamch10.f b/PARPACK/SRC/MPI/pdlamch10.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2788 index fabfcbd1..64cd6666 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2789 --- a/PARPACK/SRC/MPI/pdlamch10.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2790 +++ b/PARPACK/SRC/MPI/pdlamch10.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2791 @@ -57,7 +57,7 @@ DOUBLE PRECISION FUNCTION PDLAMCH10( ICTXT, CMACH )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2792 *
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2793 * .. Local Scalars ..
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2794 INTEGER IDUMM
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2795 - DOUBLE PRECISION TEMP, TEMP1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2796 + DOUBLE PRECISION TEMP, TEMP1, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2797 * ..
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2798 * .. External Subroutines ..
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2799 * EXTERNAL DGAMN2D, DGAMX2D
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2800 @@ -73,19 +73,20 @@ DOUBLE PRECISION FUNCTION PDLAMCH10( ICTXT, CMACH )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2801 *
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2802 IF( LSAME( CMACH, 'E' ).OR.LSAME( CMACH, 'S' ).OR.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2803 $ LSAME( CMACH, 'M' ).OR.LSAME( CMACH, 'U' ) ) THEN
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2804 - CALL MPI_ALLREDUCE( TEMP1, TEMP, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2805 + CALL MPI_ALLREDUCE( [TEMP1], buf2, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2806 $ MPI_MAX, ICTXT, IDUMM )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2807 -* CALL DGAMX2D( ICTXT, 'All', ' ', 1, 1, TEMP, 1, IDUMM,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2808 +* CALL DGAMX2D( ICTXT, 'All', ' ', 1, 1, buf2(1), 1, IDUMM,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2809 * $ IDUMM, 1, -1, IDUMM )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2810 ELSE IF( LSAME( CMACH, 'L' ).OR.LSAME( CMACH, 'O' ) ) THEN
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2811 - CALL MPI_ALLREDUCE( TEMP1, TEMP, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2812 + CALL MPI_ALLREDUCE( [TEMP1], buf2, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2813 $ MPI_MIN, ICTXT, IDUMM )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2814 -* CALL DGAMN2D( ICTXT, 'All', ' ', 1, 1, TEMP, 1, IDUMM,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2815 +* CALL DGAMN2D( ICTXT, 'All', ' ', 1, 1, buf2(1), 1, IDUMM,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2816 * $ IDUMM, 1, -1, IDUMM )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2817 ELSE
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2818 - TEMP = TEMP1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2819 + buf2(1) = TEMP1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2820 END IF
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2821 *
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2822 + TEMP = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2823 PDLAMCH10 = TEMP
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2824 *
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2825 * End of PDLAMCH10
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2826 diff --git a/PARPACK/SRC/MPI/pdnaitr.f b/PARPACK/SRC/MPI/pdnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2827 index f531fe1e..3c71ff93 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2828 --- a/PARPACK/SRC/MPI/pdnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2829 +++ b/PARPACK/SRC/MPI/pdnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2830 @@ -276,7 +276,7 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2831 & betaj, rnorm1, smlnum, ulp, unfl, wnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2832 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2833 Double precision
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2834 - & rnorm_buf
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2835 + & rnorm_buf, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2836 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2837 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2838 c %-----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2839 @@ -393,9 +393,9 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2840 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2841 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2842 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2843 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2844 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2845 & '_naitr: generating Arnoldi vector number')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2846 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2847 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2848 & '_naitr: B-norm of the current residual is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2849 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2850 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2851 @@ -415,7 +415,7 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2852 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2853 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2854 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2855 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2856 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2857 & '_naitr: ****** RESTART AT STEP ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2858 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2859 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2860 @@ -566,9 +566,9 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2861 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2862 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2863 rnorm_buf = ddot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2864 - call MPI_ALLREDUCE( rnorm_buf, wnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2865 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2866 & MPI_DOUBLE_PRECISION, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2867 - wnorm = sqrt(abs(wnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2868 + wnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2869 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2870 wnorm = pdnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2871 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2872 @@ -642,9 +642,9 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2873 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2874 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2875 rnorm_buf = ddot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2876 - call MPI_ALLREDUCE( rnorm_buf, rnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2877 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2878 & MPI_DOUBLE_PRECISION, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2879 - rnorm = sqrt(abs(rnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2880 + rnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2881 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2882 rnorm = pdnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2883 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2884 @@ -745,15 +745,15 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2885 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2886 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2887 rnorm_buf = ddot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2888 - call MPI_ALLREDUCE( rnorm_buf, rnorm1, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2889 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2890 & MPI_DOUBLE_PRECISION, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2891 - rnorm1 = sqrt(abs(rnorm1))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2892 + rnorm1 = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2893 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2894 rnorm1 = pdnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2895 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2896 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2897 if (msglvl .gt. 0 .and. iter .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2898 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2899 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2900 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2901 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2902 xtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2903 diff --git a/PARPACK/SRC/MPI/pdnapps.f b/PARPACK/SRC/MPI/pdnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2904 index fb6f153f..b6ac3502 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2905 --- a/PARPACK/SRC/MPI/pdnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2906 +++ b/PARPACK/SRC/MPI/pdnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2907 @@ -276,11 +276,11 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2908 sigmai = shifti(jj)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2909 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2910 if (msglvl .gt. 2 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2911 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2912 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2913 & '_napps: shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2914 - call pdvout (comm, logfil, 1, sigmar, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2915 + call pdvout (comm, logfil, 1, [sigmar], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2916 & '_napps: The real part of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2917 - call pdvout (comm, logfil, 1, sigmai, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2918 + call pdvout (comm, logfil, 1, [sigmai], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2919 & '_napps: The imaginary part of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2920 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2921 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2922 @@ -345,9 +345,9 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2923 & tst1 = dlanhs( '1', kplusp-jj+1, h, ldh, workl )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2924 if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2925 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2926 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2927 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2928 & '_napps: matrix splitting at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2929 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2930 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2931 & '_napps: matrix splitting with shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2932 call pdvout (comm, logfil, 1, h(i+1,i), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2933 & '_napps: off diagonal element.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2934 @@ -361,9 +361,9 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2935 40 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2936 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2937 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2938 - call pivout (comm, logfil, 1, istart, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2939 + call pivout (comm, logfil, 1, [istart], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2940 & '_napps: Start of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2941 - call pivout (comm, logfil, 1, iend, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2942 + call pivout (comm, logfil, 1, [iend], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2943 & '_napps: End of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2944 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2945 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2946 @@ -635,7 +635,7 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2947 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2948 call pdvout (comm, logfil, 1, h(kev+1,kev), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2949 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2950 - call pivout (comm, logfil, 1, kev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2951 + call pivout (comm, logfil, 1, [kev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2952 & '_napps: Order of the final Hessenberg matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2953 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2954 call pdmout (comm, logfil, kev, kev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2955 diff --git a/PARPACK/SRC/MPI/pdnaup2.f b/PARPACK/SRC/MPI/pdnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2956 index d0f73738..c265380a 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2957 --- a/PARPACK/SRC/MPI/pdnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2958 +++ b/PARPACK/SRC/MPI/pdnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2959 @@ -234,7 +234,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2960 & nevbef, nev0 , np0 , nptemp, numcnv,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2961 & j
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2962 Double precision
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2963 - & rnorm , temp , eps23
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2964 + & rnorm , temp , eps23, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2965 save cnorm , getv0, initv , update, ushift,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2966 & rnorm , iter , kplusp, msglvl, nconv,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2967 & nevbef, nev0 , np0 , eps23 , numcnv
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2968 @@ -408,7 +408,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2969 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2970 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2971 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2972 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2973 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2974 & '_naup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2975 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2976 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2977 @@ -421,9 +421,9 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2978 np = kplusp - nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2979 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2980 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2981 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2982 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2983 & '_naup2: The length of the current Arnoldi factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2984 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2985 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2986 & '_naup2: Extend the Arnoldi factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2987 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2988 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2989 @@ -455,7 +455,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2990 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2991 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2992 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2993 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2994 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2995 & '_naup2: Corresponding B-norm of the residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2996 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2997 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2998 @@ -699,7 +699,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2999 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3000 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3001 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3002 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3003 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3004 & '_naup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3005 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3006 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3007 @@ -751,7 +751,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3008 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3009 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3010 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3011 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3012 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3013 & '_naup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3014 call pdvout (comm, logfil, np, ritzr, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3015 & '_naup2: Real part of the shifts')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3016 @@ -810,16 +810,16 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3017 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3018 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3019 rnorm_buf = ddot (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3020 - call MPI_ALLREDUCE( rnorm_buf, rnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3021 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3022 & MPI_DOUBLE_PRECISION , MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3023 - rnorm = sqrt(abs(rnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3024 + rnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3025 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3026 rnorm = pdnorm2 ( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3027 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3028 cnorm = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3029 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3030 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3031 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3032 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3033 & '_naup2: B-norm of residual for compressed factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3034 call pdmout (comm, logfil, nev, nev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3035 & '_naup2: Compressed upper Hessenberg matrix H')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3036 diff --git a/PARPACK/SRC/MPI/pdnaupd.f b/PARPACK/SRC/MPI/pdnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3037 index 1bf0fc12..231f9cab 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3038 --- a/PARPACK/SRC/MPI/pdnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3039 +++ b/PARPACK/SRC/MPI/pdnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3040 @@ -650,9 +650,9 @@ subroutine pdnaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3041 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3042 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3043 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3044 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3045 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3046 & '_naupd: Number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3047 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3048 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3049 & '_naupd: Number of wanted "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3050 call pdvout (comm, logfil, np, workl(ritzr), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3051 & '_naupd: Real part of the final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3052 diff --git a/PARPACK/SRC/MPI/pdneupd.f b/PARPACK/SRC/MPI/pdneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3053 index f80651e2..d5741956 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3054 --- a/PARPACK/SRC/MPI/pdneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3055 +++ b/PARPACK/SRC/MPI/pdneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3056 @@ -617,9 +617,9 @@ subroutine pdneupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3057 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3058 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3059 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3060 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3061 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3062 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3063 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3064 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3065 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3066 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3067 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3068 diff --git a/PARPACK/SRC/MPI/pdngets.f b/PARPACK/SRC/MPI/pdngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3069 index 4ff35165..c4294b8c 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3070 --- a/PARPACK/SRC/MPI/pdngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3071 +++ b/PARPACK/SRC/MPI/pdngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3072 @@ -226,8 +226,8 @@ subroutine pdngets
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3073 tngets = tngets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3074 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3075 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3076 - call pivout (comm, logfil, 1, kev, ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3077 - call pivout (comm, logfil, 1, np, ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3078 + call pivout (comm, logfil, 1, [kev], ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3079 + call pivout (comm, logfil, 1, [np], ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3080 call pdvout (comm, logfil, kev+np, ritzr, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3081 & '_ngets: Eigenvalues of current H matrix -- real part')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3082 call pdvout (comm, logfil, kev+np, ritzi, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3083 diff --git a/PARPACK/SRC/MPI/pdnorm2.f b/PARPACK/SRC/MPI/pdnorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3084 index 0e149585..5061d3d9 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3085 --- a/PARPACK/SRC/MPI/pdnorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3086 +++ b/PARPACK/SRC/MPI/pdnorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3087 @@ -45,7 +45,7 @@ Double precision function pdnorm2 ( comm, n, x, inc )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3088 c %---------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3089 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3090 Double precision
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3091 - & max, buf, zero
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3092 + & max, buf, zero, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3093 parameter ( zero = 0.0 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3094 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3095 c %---------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3096 @@ -69,15 +69,16 @@ Double precision function pdnorm2 ( comm, n, x, inc )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3097 pdnorm2 = dnrm2( n, x, inc)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3098 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3099 buf = pdnorm2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3100 - call MPI_ALLREDUCE( buf, max, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3101 + call MPI_ALLREDUCE( [buf], buf2, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3102 & MPI_MAX, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3103 + max = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3104 if ( max .eq. zero ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3105 pdnorm2 = zero
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3106 else
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3107 buf = (pdnorm2/max)**2.0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3108 - call MPI_ALLREDUCE( buf, pdnorm2, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3109 + call MPI_ALLREDUCE( [buf], buf2, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3110 & MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3111 - pdnorm2 = max * sqrt(abs(pdnorm2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3112 + pdnorm2 = max * sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3113 endif
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3114 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3115 c %----------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3116 diff --git a/PARPACK/SRC/MPI/pdsaitr.f b/PARPACK/SRC/MPI/pdsaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3117 index 5fe84b81..42396c11 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3118 --- a/PARPACK/SRC/MPI/pdsaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3119 +++ b/PARPACK/SRC/MPI/pdsaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3120 @@ -264,7 +264,7 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3121 integer i, ierr, ipj, irj, ivj, iter, itry, j, msglvl, infol,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3122 & jj
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3123 Double precision
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3124 - & rnorm1, wnorm, safmin, temp1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3125 + & rnorm1, wnorm, safmin, temp1, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3126 save orth1, orth2, rstart, step3, step4,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3127 & ierr, ipj, irj, ivj, iter, itry, j, msglvl,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3128 & rnorm1, safmin, wnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3129 @@ -392,9 +392,9 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3130 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3131 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3132 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3133 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3134 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3135 & '_saitr: generating Arnoldi vector no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3136 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3137 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3138 & '_saitr: B-norm of the current residual =')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3139 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3140 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3141 @@ -412,7 +412,7 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3142 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3143 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3144 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3145 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3146 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3147 & '_saitr: ****** restart at step ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3148 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3149 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3150 @@ -572,14 +572,14 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3151 c %----------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3152 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3153 rnorm_buf = ddot (n, resid, 1, workd(ivj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3154 - call MPI_ALLREDUCE( rnorm_buf, wnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3155 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3156 & MPI_DOUBLE_PRECISION, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3157 - wnorm = sqrt(abs(wnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3158 + wnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3159 else if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3160 rnorm_buf = ddot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3161 - call MPI_ALLREDUCE( rnorm_buf, wnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3162 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3163 & MPI_DOUBLE_PRECISION, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3164 - wnorm = sqrt(abs(wnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3165 + wnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3166 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3167 wnorm = pdnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3168 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3169 @@ -669,9 +669,9 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3170 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3171 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3172 rnorm_buf = ddot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3173 - call MPI_ALLREDUCE( rnorm_buf, rnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3174 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3175 & MPI_DOUBLE_PRECISION, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3176 - rnorm = sqrt(abs(rnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3177 + rnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3178 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3179 rnorm = pdnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3180 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3181 @@ -769,15 +769,15 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3182 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3183 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3184 rnorm_buf = ddot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3185 - call MPI_ALLREDUCE( rnorm_buf, rnorm1, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3186 + call MPI_ALLREDUCE( [rnorm_buf], buf2(1), 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3187 & MPI_DOUBLE_PRECISION, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3188 - rnorm1 = sqrt(abs(rnorm1))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3189 + rnorm1 = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3190 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3191 rnorm1 = pdnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3192 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3193 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3194 if (msglvl .gt. 0 .and. iter .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3195 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3196 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3197 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3198 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3199 xtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3200 diff --git a/PARPACK/SRC/MPI/pdsapps.f b/PARPACK/SRC/MPI/pdsapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3201 index e79db4e3..3feb8da0 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3202 --- a/PARPACK/SRC/MPI/pdsapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3203 +++ b/PARPACK/SRC/MPI/pdsapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3204 @@ -272,9 +272,9 @@ subroutine pdsapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3205 big = abs(h(i,2)) + abs(h(i+1,2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3206 if (h(i+1,1) .le. epsmch*big) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3207 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3208 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3209 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3210 & '_sapps: deflation at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3211 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3212 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3213 & '_sapps: occurred before shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3214 call pdvout (comm, logfil, 1, h(i+1,1), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3215 & '_sapps: the corresponding off diagonal element')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3216 @@ -443,7 +443,7 @@ subroutine pdsapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3217 big = abs(h(i,2)) + abs(h(i+1,2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3218 if (h(i+1,1) .le. epsmch*big) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3219 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3220 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3221 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3222 & '_sapps: deflation at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3223 call pdvout (comm, logfil, 1, h(i+1,1), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3224 & '_sapps: the corresponding off diagonal element')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3225 diff --git a/PARPACK/SRC/MPI/pdsaup2.f b/PARPACK/SRC/MPI/pdsaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3226 index 820459b3..a575b33f 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3227 --- a/PARPACK/SRC/MPI/pdsaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3228 +++ b/PARPACK/SRC/MPI/pdsaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3229 @@ -212,7 +212,7 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3230 integer ido, info, ishift, iupd, ldh, ldq, ldv, mxiter,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3231 & n, mode, nev, np
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3232 Double precision
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3233 - & tol
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3234 + & tol, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3235 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3236 c %-----------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3237 c | Array Arguments |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3238 @@ -424,13 +424,13 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3239 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3240 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3241 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3242 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3243 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3244 & '_saup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3245 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3246 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3247 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3248 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3249 & '_saup2: The length of the current Lanczos factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3250 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3251 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3252 & '_saup2: Extend the Lanczos factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3253 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3254 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3255 @@ -469,7 +469,7 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3256 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3257 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3258 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3259 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3260 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3261 & '_saup2: Current B-norm of residual for factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3262 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3263 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3264 @@ -719,7 +719,7 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3265 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3266 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3267 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3268 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3269 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3270 & '_saup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3271 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3272 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3273 @@ -766,7 +766,7 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3274 if (ishift .eq. 0) call dcopy (np, workl, 1, ritz, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3275 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3276 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3277 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3278 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3279 & '_saup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3280 call pdvout (comm, logfil, np, workl, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3281 & '_saup2: shifts selected')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3282 @@ -825,9 +825,9 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3283 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3284 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3285 rnorm_buf = ddot (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3286 - call MPI_ALLREDUCE( rnorm_buf, rnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3287 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3288 & MPI_DOUBLE_PRECISION, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3289 - rnorm = sqrt(abs(rnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3290 + rnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3291 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3292 rnorm = pdnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3293 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3294 @@ -835,7 +835,7 @@ subroutine pdsaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3295 130 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3296 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3297 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3298 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3299 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3300 & '_saup2: B-norm of residual for NEV factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3301 call pdvout (comm, logfil, nev, h(1,2), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3302 & '_saup2: main diagonal of compressed H matrix')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3303 diff --git a/PARPACK/SRC/MPI/pdsaupd.f b/PARPACK/SRC/MPI/pdsaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3304 index 47d05227..f505dc90 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3305 --- a/PARPACK/SRC/MPI/pdsaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3306 +++ b/PARPACK/SRC/MPI/pdsaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3307 @@ -652,9 +652,9 @@ subroutine pdsaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3308 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3309 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3310 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3311 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3312 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3313 & '_saupd: number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3314 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3315 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3316 & '_saupd: number of "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3317 call pdvout (comm, logfil, np, workl(Ritz), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3318 & '_saupd: final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3319 diff --git a/PARPACK/SRC/MPI/pdseupd.f b/PARPACK/SRC/MPI/pdseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3320 index 9e866ab7..66e85995 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3321 --- a/PARPACK/SRC/MPI/pdseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3322 +++ b/PARPACK/SRC/MPI/pdseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3323 @@ -523,9 +523,9 @@ subroutine pdseupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3324 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3325 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3326 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3327 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3328 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3329 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3330 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3331 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3332 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3333 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3334 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3335 diff --git a/PARPACK/SRC/MPI/pdsgets.f b/PARPACK/SRC/MPI/pdsgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3336 index 01b52394..c71421b4 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3337 --- a/PARPACK/SRC/MPI/pdsgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3338 +++ b/PARPACK/SRC/MPI/pdsgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3339 @@ -216,8 +216,8 @@ subroutine pdsgets
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3340 tsgets = tsgets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3341 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3342 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3343 - call pivout (comm, logfil, 1, kev, ndigit, '_sgets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3344 - call pivout (comm, logfil, 1, np, ndigit, '_sgets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3345 + call pivout (comm, logfil, 1, [kev], ndigit, '_sgets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3346 + call pivout (comm, logfil, 1, [np], ndigit, '_sgets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3347 call pdvout (comm, logfil, kev+np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3348 & '_sgets: Eigenvalues of current H matrix')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3349 call pdvout (comm, logfil, kev+np, bounds, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3350 diff --git a/PARPACK/SRC/MPI/pdznorm2.f b/PARPACK/SRC/MPI/pdznorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3351 index 7a7173f3..4651679b 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3352 --- a/PARPACK/SRC/MPI/pdznorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3353 +++ b/PARPACK/SRC/MPI/pdznorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3354 @@ -45,7 +45,7 @@ Double precision function pdznorm2 ( comm, n, x, inc )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3355 c %---------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3356 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3357 Double precision
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3358 - & max, buf, zero
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3359 + & max(1), buf, zero
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3360 parameter ( zero = 0.0 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3361 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3362 c %---------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3363 @@ -59,7 +59,7 @@ Double precision function pdznorm2 ( comm, n, x, inc )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3364 c %--------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3365 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3366 Double precision
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3367 - & dznrm2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3368 + & dznrm2, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3369 External dznrm2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3370 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3371 c %-----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3372 @@ -69,15 +69,15 @@ Double precision function pdznorm2 ( comm, n, x, inc )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3373 pdznorm2 = dznrm2( n, x, inc)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3374 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3375 buf = pdznorm2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3376 - call MPI_ALLREDUCE( buf, max, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3377 + call MPI_ALLREDUCE( [buf], max, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3378 & MPI_MAX, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3379 - if ( max .eq. zero ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3380 + if ( max(1) .eq. zero ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3381 pdznorm2 = zero
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3382 else
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3383 - buf = (pdznorm2/max)**2.0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3384 - call MPI_ALLREDUCE( buf, pdznorm2, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3385 + buf = (pdznorm2/max(1))**2.0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3386 + call MPI_ALLREDUCE( [buf], buf2, 1, MPI_DOUBLE_PRECISION,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3387 & MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3388 - pdznorm2 = max * sqrt(abs(pdznorm2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3389 + pdznorm2 = max(1) * sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3390 endif
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3391 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3392 c %-----------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3393 diff --git a/PARPACK/SRC/MPI/pscnorm2.f b/PARPACK/SRC/MPI/pscnorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3394 index 2c64831e..50dea8bd 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3395 --- a/PARPACK/SRC/MPI/pscnorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3396 +++ b/PARPACK/SRC/MPI/pscnorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3397 @@ -45,7 +45,7 @@ Real function pscnorm2 ( comm, n, x, inc )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3398 c %---------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3399 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3400 Real
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3401 - & max, buf, zero
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3402 + & max(1), buf, zero
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3403 parameter ( zero = 0.0 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3404 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3405 c %---------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3406 @@ -61,6 +61,7 @@ Real function pscnorm2 ( comm, n, x, inc )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3407 Real
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3408 & scnrm2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3409 External scnrm2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3410 + Real buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3411 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3412 c %-----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3413 c | Executable Statements |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3414 @@ -69,15 +70,15 @@ Real function pscnorm2 ( comm, n, x, inc )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3415 pscnorm2 = scnrm2( n, x, inc)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3416 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3417 buf = pscnorm2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3418 - call MPI_ALLREDUCE( buf, max, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3419 + call MPI_ALLREDUCE( [buf], max, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3420 & MPI_MAX, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3421 - if ( max .eq. zero ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3422 + if ( max(1) .eq. zero ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3423 pscnorm2 = zero
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3424 else
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3425 - buf = (pscnorm2/max)**2.0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3426 - call MPI_ALLREDUCE( buf, pscnorm2, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3427 + buf = (pscnorm2/max(1))**2.0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3428 + call MPI_ALLREDUCE( [buf], buf2, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3429 & MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3430 - pscnorm2 = max * sqrt(abs(pscnorm2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3431 + pscnorm2 = max(1) * sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3432 endif
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3433 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3434 c %-----------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3435 diff --git a/PARPACK/SRC/MPI/psgetv0.f b/PARPACK/SRC/MPI/psgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3436 index a721c9b9..597212b5 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3437 --- a/PARPACK/SRC/MPI/psgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3438 +++ b/PARPACK/SRC/MPI/psgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3439 @@ -163,7 +163,7 @@ subroutine psgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3440 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3441 integer ipntr(3)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3442 Real
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3443 - & resid(n), v(ldv,j), workd(2*n), workl(2*j)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3444 + & resid(n), v(ldv,j), workd(2*n), workl(2*j), buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3445 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3446 c %------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3447 c | Parameters |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3448 @@ -318,9 +318,9 @@ subroutine psgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3449 first = .FALSE.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3450 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3451 rnorm_buf = sdot (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3452 - call MPI_ALLREDUCE( rnorm_buf, rnorm0, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3453 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3454 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3455 - rnorm0 = sqrt(abs(rnorm0))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3456 + rnorm0 = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3457 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3458 rnorm0 = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3459 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3460 @@ -379,9 +379,9 @@ subroutine psgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3461 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3462 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3463 rnorm_buf = sdot (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3464 - call MPI_ALLREDUCE( rnorm_buf, rnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3465 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3466 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3467 - rnorm = sqrt(abs(rnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3468 + rnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3469 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3470 rnorm = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3471 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3472 @@ -391,9 +391,9 @@ subroutine psgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3473 c %--------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3474 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3475 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3476 - call psvout (comm, logfil, 1, rnorm0, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3477 + call psvout (comm, logfil, 1, [rnorm0], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3478 & '_getv0: re-orthonalization ; rnorm0 is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3479 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3480 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3481 & '_getv0: re-orthonalization ; rnorm is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3482 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3483 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3484 @@ -424,7 +424,7 @@ subroutine psgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3485 50 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3486 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3487 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3488 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3489 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3490 & '_getv0: B-norm of initial / restarted starting vector')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3491 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3492 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3493 diff --git a/PARPACK/SRC/MPI/pslamch10.f b/PARPACK/SRC/MPI/pslamch10.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3494 index cd7215c5..c3c13b8e 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3495 --- a/PARPACK/SRC/MPI/pslamch10.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3496 +++ b/PARPACK/SRC/MPI/pslamch10.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3497 @@ -53,7 +53,7 @@ REAL FUNCTION PSLAMCH10( ICTXT, CMACH )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3498 *
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3499 * .. Local Scalars ..
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3500 INTEGER IDUMM
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3501 - REAL TEMP, TEMP1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3502 + REAL TEMP, TEMP1, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3503 * ..
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3504 * .. External Subroutines ..
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3505 * EXTERNAL SGAMN2D, SGAMX2D
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3506 @@ -69,14 +69,16 @@ REAL FUNCTION PSLAMCH10( ICTXT, CMACH )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3507 *
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3508 IF( LSAME( CMACH, 'E' ).OR.LSAME( CMACH, 'S' ).OR.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3509 $ LSAME( CMACH, 'M' ).OR.LSAME( CMACH, 'U' ) ) THEN
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3510 - CALL MPI_ALLREDUCE( TEMP1, TEMP, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3511 + CALL MPI_ALLREDUCE( [TEMP1], buf2, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3512 $ MPI_MAX, ICTXT, IDUMM )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3513 -* CALL SGAMX2D( ICTXT, 'All', ' ', 1, 1, TEMP, 1, IDUMM,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3514 + TEMP = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3515 +* CALL SGAMX2D( ICTXT, 'All', ' ', 1, 1, TEMP, 1, IDUMM,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3516 * $ IDUMM, 1, -1, IDUMM )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3517 ELSE IF( LSAME( CMACH, 'L' ).OR.LSAME( CMACH, 'O' ) ) THEN
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3518 - CALL MPI_ALLREDUCE( TEMP1, TEMP, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3519 + CALL MPI_ALLREDUCE( [TEMP1], buf2, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3520 $ MPI_MIN, ICTXT, IDUMM )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3521 -* CALL SGAMN2D( ICTXT, 'All', ' ', 1, 1, TEMP, 1, IDUMM,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3522 + TEMP = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3523 +* CALL SGAMN2D( ICTXT, 'All', ' ', 1, 1, TEMP, 1, IDUMM,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3524 * $ IDUMM, 1, -1, IDUMM )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3525 ELSE
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3526 TEMP = TEMP1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3527 diff --git a/PARPACK/SRC/MPI/psnaitr.f b/PARPACK/SRC/MPI/psnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3528 index ab63f99a..8b5f635d 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3529 --- a/PARPACK/SRC/MPI/psnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3530 +++ b/PARPACK/SRC/MPI/psnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3531 @@ -276,7 +276,7 @@ subroutine psnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3532 & betaj, rnorm1, smlnum, ulp, unfl, wnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3533 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3534 Real
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3535 - & rnorm_buf
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3536 + & rnorm_buf, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3537 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3538 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3539 c %-----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3540 @@ -393,9 +393,9 @@ subroutine psnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3541 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3542 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3543 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3544 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3545 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3546 & '_naitr: generating Arnoldi vector number')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3547 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3548 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3549 & '_naitr: B-norm of the current residual is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3550 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3551 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3552 @@ -415,7 +415,7 @@ subroutine psnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3553 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3554 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3555 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3556 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3557 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3558 & '_naitr: ****** RESTART AT STEP ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3559 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3560 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3561 @@ -566,9 +566,9 @@ subroutine psnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3562 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3563 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3564 rnorm_buf = sdot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3565 - call MPI_ALLREDUCE( rnorm_buf, wnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3566 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3567 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3568 - wnorm = sqrt(abs(wnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3569 + wnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3570 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3571 wnorm = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3572 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3573 @@ -642,9 +642,9 @@ subroutine psnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3574 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3575 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3576 rnorm_buf = sdot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3577 - call MPI_ALLREDUCE( rnorm_buf, rnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3578 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3579 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3580 - rnorm = sqrt(abs(rnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3581 + rnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3582 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3583 rnorm = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3584 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3585 @@ -745,15 +745,15 @@ subroutine psnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3586 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3587 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3588 rnorm_buf = sdot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3589 - call MPI_ALLREDUCE( rnorm_buf, rnorm1, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3590 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3591 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3592 - rnorm1 = sqrt(abs(rnorm1))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3593 + rnorm1 = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3594 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3595 rnorm1 = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3596 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3597 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3598 if (msglvl .gt. 0 .and. iter .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3599 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3600 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3601 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3602 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3603 xtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3604 diff --git a/PARPACK/SRC/MPI/psnapps.f b/PARPACK/SRC/MPI/psnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3605 index c06fba58..b6f8645b 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3606 --- a/PARPACK/SRC/MPI/psnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3607 +++ b/PARPACK/SRC/MPI/psnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3608 @@ -276,11 +276,11 @@ subroutine psnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3609 sigmai = shifti(jj)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3610 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3611 if (msglvl .gt. 2 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3612 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3613 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3614 & '_napps: shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3615 - call psvout (comm, logfil, 1, sigmar, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3616 + call psvout (comm, logfil, 1, [sigmar], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3617 & '_napps: The real part of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3618 - call psvout (comm, logfil, 1, sigmai, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3619 + call psvout (comm, logfil, 1, [sigmai], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3620 & '_napps: The imaginary part of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3621 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3622 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3623 @@ -345,9 +345,9 @@ subroutine psnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3624 & tst1 = slanhs( '1', kplusp-jj+1, h, ldh, workl )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3625 if( abs( h( i+1,i ) ).le.max( ulp*tst1, smlnum ) ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3626 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3627 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3628 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3629 & '_napps: matrix splitting at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3630 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3631 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3632 & '_napps: matrix splitting with shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3633 call psvout (comm, logfil, 1, h(i+1,i), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3634 & '_napps: off diagonal element.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3635 @@ -361,9 +361,9 @@ subroutine psnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3636 40 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3637 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3638 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3639 - call pivout (comm, logfil, 1, istart, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3640 + call pivout (comm, logfil, 1, [istart], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3641 & '_napps: Start of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3642 - call pivout (comm, logfil, 1, iend, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3643 + call pivout (comm, logfil, 1, [iend], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3644 & '_napps: End of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3645 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3646 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3647 @@ -635,7 +635,7 @@ subroutine psnapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3648 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3649 call psvout (comm, logfil, 1, h(kev+1,kev), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3650 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3651 - call pivout (comm, logfil, 1, kev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3652 + call pivout (comm, logfil, 1, [kev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3653 & '_napps: Order of the final Hessenberg matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3654 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3655 call psmout (comm, logfil, kev, kev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3656 diff --git a/PARPACK/SRC/MPI/psnaup2.f b/PARPACK/SRC/MPI/psnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3657 index 6195d4b6..bfca7fb1 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3658 --- a/PARPACK/SRC/MPI/psnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3659 +++ b/PARPACK/SRC/MPI/psnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3660 @@ -241,7 +241,7 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3661 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3662
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3663 Real
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3664 - & rnorm_buf
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3665 + & rnorm_buf, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3666 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3667 c %-----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3668 c | Local array arguments |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3669 @@ -408,7 +408,7 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3670 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3671 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3672 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3673 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3674 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3675 & '_naup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3676 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3677 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3678 @@ -421,9 +421,9 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3679 np = kplusp - nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3680 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3681 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3682 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3683 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3684 & '_naup2: The length of the current Arnoldi factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3685 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3686 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3687 & '_naup2: Extend the Arnoldi factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3688 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3689 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3690 @@ -455,7 +455,7 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3691 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3692 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3693 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3694 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3695 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3696 & '_naup2: Corresponding B-norm of the residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3697 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3698 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3699 @@ -699,7 +699,7 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3700 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3701 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3702 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3703 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3704 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3705 & '_naup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3706 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3707 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3708 @@ -751,7 +751,7 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3709 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3710 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3711 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3712 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3713 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3714 & '_naup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3715 call psvout (comm, logfil, np, ritzr, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3716 & '_naup2: Real part of the shifts')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3717 @@ -810,16 +810,16 @@ subroutine psnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3718 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3719 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3720 rnorm_buf = sdot (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3721 - call MPI_ALLREDUCE( rnorm_buf, rnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3722 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3723 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3724 - rnorm = sqrt(abs(rnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3725 + rnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3726 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3727 rnorm = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3728 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3729 cnorm = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3730 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3731 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3732 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3733 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3734 & '_naup2: B-norm of residual for compressed factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3735 call psmout (comm, logfil, nev, nev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3736 & '_naup2: Compressed upper Hessenberg matrix H')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3737 diff --git a/PARPACK/SRC/MPI/psnaupd.f b/PARPACK/SRC/MPI/psnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3738 index a55f5fba..35e85b74 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3739 --- a/PARPACK/SRC/MPI/psnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3740 +++ b/PARPACK/SRC/MPI/psnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3741 @@ -650,9 +650,9 @@ subroutine psnaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3742 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3743 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3744 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3745 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3746 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3747 & '_naupd: Number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3748 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3749 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3750 & '_naupd: Number of wanted "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3751 call psvout (comm, logfil, np, workl(ritzr), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3752 & '_naupd: Real part of the final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3753 diff --git a/PARPACK/SRC/MPI/psneupd.f b/PARPACK/SRC/MPI/psneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3754 index c7f939a4..d4090b66 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3755 --- a/PARPACK/SRC/MPI/psneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3756 +++ b/PARPACK/SRC/MPI/psneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3757 @@ -617,9 +617,9 @@ subroutine psneupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3758 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3759 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3760 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3761 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3762 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3763 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3764 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3765 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3766 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3767 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3768 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3769 diff --git a/PARPACK/SRC/MPI/psngets.f b/PARPACK/SRC/MPI/psngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3770 index c4bf9ac7..91a6d730 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3771 --- a/PARPACK/SRC/MPI/psngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3772 +++ b/PARPACK/SRC/MPI/psngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3773 @@ -226,8 +226,8 @@ subroutine psngets
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3774 tngets = tngets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3775 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3776 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3777 - call pivout (comm, logfil, 1, kev, ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3778 - call pivout (comm, logfil, 1, np, ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3779 + call pivout (comm, logfil, 1, [kev], ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3780 + call pivout (comm, logfil, 1, [np], ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3781 call psvout (comm, logfil, kev+np, ritzr, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3782 & '_ngets: Eigenvalues of current H matrix -- real part')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3783 call psvout (comm, logfil, kev+np, ritzi, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3784 diff --git a/PARPACK/SRC/MPI/psnorm2.f b/PARPACK/SRC/MPI/psnorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3785 index b5fbcd13..8e487b35 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3786 --- a/PARPACK/SRC/MPI/psnorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3787 +++ b/PARPACK/SRC/MPI/psnorm2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3788 @@ -45,7 +45,7 @@ Real function psnorm2 ( comm, n, x, inc )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3789 c %---------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3790 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3791 Real
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3792 - & max, buf, zero
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3793 + & max, buf, zero, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3794 parameter ( zero = 0.0 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3795 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3796 c %---------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3797 @@ -69,15 +69,16 @@ Real function psnorm2 ( comm, n, x, inc )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3798 psnorm2 = snrm2( n, x, inc)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3799 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3800 buf = psnorm2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3801 - call MPI_ALLREDUCE( buf, max, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3802 + call MPI_ALLREDUCE( [buf], buf2, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3803 & MPI_MAX, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3804 + max = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3805 if ( max .eq. zero ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3806 psnorm2 = zero
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3807 else
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3808 buf = (psnorm2/max)**2.0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3809 - call MPI_ALLREDUCE( buf, psnorm2, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3810 + call MPI_ALLREDUCE( [buf], buf2, 1, MPI_REAL,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3811 & MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3812 - psnorm2 = max * sqrt(abs(psnorm2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3813 + psnorm2 = max * sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3814 endif
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3815 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3816 c %----------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3817 diff --git a/PARPACK/SRC/MPI/pssaitr.f b/PARPACK/SRC/MPI/pssaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3818 index a0fde737..8ceaebe4 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3819 --- a/PARPACK/SRC/MPI/pssaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3820 +++ b/PARPACK/SRC/MPI/pssaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3821 @@ -264,7 +264,7 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3822 integer i, ierr, ipj, irj, ivj, iter, itry, j, msglvl, infol,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3823 & jj
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3824 Real
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3825 - & rnorm1, wnorm, safmin, temp1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3826 + & rnorm1, wnorm(1), safmin, temp1, temp2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3827 save orth1, orth2, rstart, step3, step4,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3828 & ierr, ipj, irj, ivj, iter, itry, j, msglvl,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3829 & rnorm1, safmin, wnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3830 @@ -392,9 +392,9 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3831 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3832 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3833 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3834 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3835 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3836 & '_saitr: generating Arnoldi vector no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3837 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3838 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3839 & '_saitr: B-norm of the current residual =')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3840 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3841 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3842 @@ -412,7 +412,7 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3843 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3844 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3845 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3846 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3847 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3848 & '_saitr: ****** restart at step ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3849 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3850 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3851 @@ -572,16 +572,16 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3852 c %----------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3853 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3854 rnorm_buf = sdot (n, resid, 1, workd(ivj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3855 - call MPI_ALLREDUCE( rnorm_buf, wnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3856 + call MPI_ALLREDUCE( [rnorm_buf], wnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3857 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3858 - wnorm = sqrt(abs(wnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3859 + wnorm(1) = sqrt(abs(wnorm(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3860 else if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3861 rnorm_buf = sdot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3862 - call MPI_ALLREDUCE( rnorm_buf, wnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3863 + call MPI_ALLREDUCE( [rnorm_buf], wnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3864 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3865 wnorm = sqrt(abs(wnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3866 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3867 - wnorm = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3868 + wnorm(1) = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3869 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3870 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3871 c %-----------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3872 @@ -669,9 +669,9 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3873 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3874 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3875 rnorm_buf = sdot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3876 - call MPI_ALLREDUCE( rnorm_buf, rnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3877 + call MPI_ALLREDUCE( [rnorm_buf], temp2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3878 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3879 - rnorm = sqrt(abs(rnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3880 + rnorm = sqrt(abs(temp2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3881 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3882 rnorm = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3883 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3884 @@ -691,7 +691,7 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3885 c | to enforce ||v(:,1:j)^T * r_{j}|| .le. eps * || r_{j} || |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3886 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3887 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3888 - if (rnorm .gt. 0.717*wnorm) go to 100
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3889 + if (rnorm .gt. 0.717*wnorm(1)) go to 100
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3890 nrorth = nrorth + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3891 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3892 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3893 @@ -704,7 +704,7 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3894 80 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3895 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3896 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3897 - xtemp(1) = wnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3898 + xtemp(1) = wnorm(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3899 xtemp(2) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3900 call psvout (comm, logfil, 2, xtemp, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3901 & '_naitr: re-orthonalization ; wnorm and rnorm are')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3902 @@ -769,15 +769,15 @@ subroutine pssaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3903 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3904 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3905 rnorm_buf = sdot (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3906 - call MPI_ALLREDUCE( rnorm_buf, rnorm1, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3907 + call MPI_ALLREDUCE( [rnorm_buf], temp2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3908 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3909 - rnorm1 = sqrt(abs(rnorm1))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3910 + rnorm1 = sqrt(abs(temp2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3911 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3912 rnorm1 = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3913 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3914 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3915 if (msglvl .gt. 0 .and. iter .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3916 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3917 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3918 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3919 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3920 xtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3921 diff --git a/PARPACK/SRC/MPI/pssapps.f b/PARPACK/SRC/MPI/pssapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3922 index 481cc355..07f96452 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3923 --- a/PARPACK/SRC/MPI/pssapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3924 +++ b/PARPACK/SRC/MPI/pssapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3925 @@ -271,9 +271,9 @@ subroutine pssapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3926 big = abs(h(i,2)) + abs(h(i+1,2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3927 if (h(i+1,1) .le. epsmch*big) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3928 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3929 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3930 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3931 & '_sapps: deflation at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3932 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3933 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3934 & '_sapps: occurred before shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3935 call psvout (comm, logfil, 1, h(i+1,1), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3936 & '_sapps: the corresponding off diagonal element')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3937 @@ -442,7 +442,7 @@ subroutine pssapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3938 big = abs(h(i,2)) + abs(h(i+1,2))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3939 if (h(i+1,1) .le. epsmch*big) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3940 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3941 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3942 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3943 & '_sapps: deflation at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3944 call psvout (comm, logfil, 1, h(i+1,1), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3945 & '_sapps: the corresponding off diagonal element')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3946 diff --git a/PARPACK/SRC/MPI/pssaup2.f b/PARPACK/SRC/MPI/pssaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3947 index ab00ec77..25af8b7f 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3948 --- a/PARPACK/SRC/MPI/pssaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3949 +++ b/PARPACK/SRC/MPI/pssaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3950 @@ -241,7 +241,7 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3951 integer ierr, iter, j, kplusp, msglvl, nconv, nevbef, nev0,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3952 & np0, nptemp, nevd2, nevm2, kp(3)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3953 Real
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3954 - & rnorm, temp, eps23
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3955 + & rnorm, temp, eps23, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3956 save cnorm, getv0, initv, update, ushift,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3957 & iter, kplusp, msglvl, nconv, nev0, np0,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3958 & rnorm, eps23
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3959 @@ -424,13 +424,13 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3960 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3961 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3962 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3963 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3964 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3965 & '_saup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3966 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3967 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3968 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3969 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3970 & '_saup2: The length of the current Lanczos factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3971 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3972 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3973 & '_saup2: Extend the Lanczos factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3974 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3975 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3976 @@ -469,7 +469,7 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3977 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3978 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3979 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3980 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3981 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3982 & '_saup2: Current B-norm of residual for factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3983 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3984 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3985 @@ -719,7 +719,7 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3986 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3987 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3988 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3989 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3990 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3991 & '_saup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3992 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3993 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3994 @@ -766,7 +766,7 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3995 if (ishift .eq. 0) call scopy (np, workl, 1, ritz, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3996 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3997 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3998 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3999 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4000 & '_saup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4001 call psvout (comm, logfil, np, workl, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4002 & '_saup2: shifts selected')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4003 @@ -825,9 +825,9 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4004 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4005 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4006 rnorm_buf = sdot (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4007 - call MPI_ALLREDUCE( rnorm_buf, rnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4008 + call MPI_ALLREDUCE( [rnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4009 & MPI_REAL, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4010 - rnorm = sqrt(abs(rnorm))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4011 + rnorm = sqrt(abs(buf2(1)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4012 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4013 rnorm = psnorm2( comm, n, resid, 1 )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4014 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4015 @@ -835,7 +835,7 @@ subroutine pssaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4016 130 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4017 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4018 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4019 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4020 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4021 & '_saup2: B-norm of residual for NEV factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4022 call psvout (comm, logfil, nev, h(1,2), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4023 & '_saup2: main diagonal of compressed H matrix')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4024 diff --git a/PARPACK/SRC/MPI/pssaupd.f b/PARPACK/SRC/MPI/pssaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4025 index 7f616008..3077ff5f 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4026 --- a/PARPACK/SRC/MPI/pssaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4027 +++ b/PARPACK/SRC/MPI/pssaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4028 @@ -652,9 +652,9 @@ subroutine pssaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4029 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4030 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4031 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4032 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4033 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4034 & '_saupd: number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4035 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4036 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4037 & '_saupd: number of "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4038 call psvout (comm, logfil, np, workl(Ritz), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4039 & '_saupd: final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4040 diff --git a/PARPACK/SRC/MPI/psseupd.f b/PARPACK/SRC/MPI/psseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4041 index 23e2caad..85175870 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4042 --- a/PARPACK/SRC/MPI/psseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4043 +++ b/PARPACK/SRC/MPI/psseupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4044 @@ -523,9 +523,9 @@ subroutine psseupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4045 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4046 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4047 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4048 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4049 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4050 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4051 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4052 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4053 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4054 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4055 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4056 diff --git a/PARPACK/SRC/MPI/pssgets.f b/PARPACK/SRC/MPI/pssgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4057 index 487689b0..dcc08bcb 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4058 --- a/PARPACK/SRC/MPI/pssgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4059 +++ b/PARPACK/SRC/MPI/pssgets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4060 @@ -216,8 +216,8 @@ subroutine pssgets
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4061 tsgets = tsgets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4062 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4063 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4064 - call pivout (comm, logfil, 1, kev, ndigit, '_sgets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4065 - call pivout (comm, logfil, 1, np, ndigit, '_sgets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4066 + call pivout (comm, logfil, 1, [kev], ndigit, '_sgets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4067 + call pivout (comm, logfil, 1, [np], ndigit, '_sgets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4068 call psvout (comm, logfil, kev+np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4069 & '_sgets: Eigenvalues of current H matrix')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4070 call psvout (comm, logfil, kev+np, bounds, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4071 diff --git a/PARPACK/SRC/MPI/pzgetv0.f b/PARPACK/SRC/MPI/pzgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4072 index 42cd0865..29f18f5b 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4073 --- a/PARPACK/SRC/MPI/pzgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4074 +++ b/PARPACK/SRC/MPI/pzgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4075 @@ -185,7 +185,7 @@ subroutine pzgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4076 save first, iseed, inits, iter, msglvl, orth, rnorm0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4077 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4078 Complex*16
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4079 - & cnorm_buf
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4080 + & cnorm_buf, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4081 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4082 c %----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4083 c | External Subroutines |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4084 @@ -332,8 +332,9 @@ subroutine pzgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4085 first = .FALSE.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4086 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4087 cnorm_buf = zdotc (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4088 - call MPI_ALLREDUCE( cnorm_buf, cnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4089 + call MPI_ALLREDUCE( [cnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4090 & MPI_DOUBLE_COMPLEX , MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4091 + cnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4092 rnorm0 = sqrt(dlapy2 (dble (cnorm),dimag (cnorm)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4093 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4094 rnorm0 = pdznorm2 ( comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4095 @@ -393,8 +394,9 @@ subroutine pzgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4096 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4097 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4098 cnorm_buf = zdotc (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4099 - call MPI_ALLREDUCE( cnorm_buf, cnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4100 + call MPI_ALLREDUCE( [cnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4101 & MPI_DOUBLE_COMPLEX , MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4102 + cnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4103 rnorm = sqrt(dlapy2 (dble (cnorm),dimag (cnorm)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4104 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4105 rnorm = pdznorm2 (comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4106 @@ -405,9 +407,9 @@ subroutine pzgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4107 c %--------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4108 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4109 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4110 - call pdvout (comm, logfil, 1, rnorm0, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4111 + call pdvout (comm, logfil, 1, [rnorm0], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4112 & '_getv0: re-orthonalization ; rnorm0 is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4113 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4114 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4115 & '_getv0: re-orthonalization ; rnorm is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4116 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4117 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4118 @@ -439,7 +441,7 @@ subroutine pzgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4119 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4120 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4121 cnorm2 = dcmplx (rnorm,rzero)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4122 - call pzvout (comm, logfil, 1, cnorm2, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4123 + call pzvout (comm, logfil, 1, [cnorm2], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4124 & '_getv0: B-norm of initial / restarted starting vector')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4125 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4126 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4127 diff --git a/PARPACK/SRC/MPI/pznaitr.f b/PARPACK/SRC/MPI/pznaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4128 index 0b8af181..4ec77e4e 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4129 --- a/PARPACK/SRC/MPI/pznaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4130 +++ b/PARPACK/SRC/MPI/pznaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4131 @@ -293,7 +293,7 @@ subroutine pznaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4132 & betaj, rnorm1, smlnum, ulp, unfl, wnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4133 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4134 Complex*16
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4135 - & cnorm_buf
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4136 + & cnorm_buf, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4137 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4138 c %----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4139 c | External Subroutines |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4140 @@ -404,9 +404,9 @@ subroutine pznaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4141 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4142 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4143 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4144 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4145 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4146 & '_naitr: generating Arnoldi vector number')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4147 - call pzvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4148 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4149 & '_naitr: B-norm of the current residual is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4150 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4151 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4152 @@ -426,7 +426,7 @@ subroutine pznaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4153 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4154 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4155 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4156 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4157 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4158 & '_naitr: ****** RESTART AT STEP ******')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4159 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4160 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4161 @@ -577,9 +577,10 @@ subroutine pznaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4162 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4163 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4164 cnorm_buf = zdotc (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4165 - call MPI_ALLREDUCE( cnorm_buf, cnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4166 + call MPI_ALLREDUCE( [cnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4167 & MPI_DOUBLE_COMPLEX, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4168 - wnorm = sqrt( dlapy2(dble(cnorm),dimag(cnorm)) )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4169 + cnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4170 + wnorm = sqrt( dlapy2(dble(cnorm),dimag(cnorm)) )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4171 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4172 wnorm = pdznorm2(comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4173 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4174 @@ -653,8 +654,9 @@ subroutine pznaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4175 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4176 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4177 cnorm_buf = zdotc (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4178 - call MPI_ALLREDUCE( cnorm_buf, cnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4179 + call MPI_ALLREDUCE( [cnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4180 & MPI_DOUBLE_COMPLEX, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4181 + cnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4182 rnorm = sqrt( dlapy2(dble(cnorm),dimag(cnorm)) )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4183 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4184 rnorm = pdznorm2(comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4185 @@ -757,15 +759,16 @@ subroutine pznaitr
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4186 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4187 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4188 cnorm_buf = zdotc (n, resid, 1, workd(ipj), 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4189 - call MPI_ALLREDUCE( cnorm_buf, cnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4190 + call MPI_ALLREDUCE( [cnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4191 & MPI_DOUBLE_COMPLEX, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4192 - rnorm1 = sqrt( dlapy2(dble(cnorm),dimag(cnorm)) )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4193 + cnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4194 + rnorm1 = sqrt( dlapy2(dble(cnorm),dimag(cnorm)) )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4195 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4196 rnorm1 = pdznorm2(comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4197 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4198 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4199 if (msglvl .gt. 0 .and. iter .gt. 0 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4200 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4201 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4202 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4203 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4204 rtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4205 diff --git a/PARPACK/SRC/MPI/pznapps.f b/PARPACK/SRC/MPI/pznapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4206 index 3e00c903..4952544c 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4207 --- a/PARPACK/SRC/MPI/pznapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4208 +++ b/PARPACK/SRC/MPI/pznapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4209 @@ -283,9 +283,9 @@ subroutine pznapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4210 sigma = shift(jj)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4211 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4212 if (msglvl .gt. 2 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4213 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4214 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4215 & '_napps: shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4216 - call pzvout (comm, logfil, 1, sigma, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4217 + call pzvout (comm, logfil, 1, [sigma], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4218 & '_napps: Value of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4219 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4220 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4221 @@ -306,9 +306,9 @@ subroutine pznapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4222 if ( abs(dble(h(i+1,i)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4223 & .le. max(ulp*tst1, smlnum) ) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4224 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4225 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4226 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4227 & '_napps: matrix splitting at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4228 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4229 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4230 & '_napps: matrix splitting with shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4231 call pzvout (comm, logfil, 1, h(i+1,i), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4232 & '_napps: off diagonal element.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4233 @@ -322,9 +322,9 @@ subroutine pznapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4234 40 continue
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4235 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4236 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4237 - call pivout (comm, logfil, 1, istart, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4238 + call pivout (comm, logfil, 1, [istart], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4239 & '_napps: Start of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4240 - call pivout (comm, logfil, 1, iend, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4241 + call pivout (comm, logfil, 1, [iend], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4242 & '_napps: End of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4243 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4244 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4245 @@ -500,7 +500,7 @@ subroutine pznapps
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4246 & '_napps: sigmak = (e_{kev+p}^T*Q)*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4247 call pzvout (comm, logfil, 1, h(kev+1,kev), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4248 & '_napps: betak = e_{kev+1}^T*H*e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4249 - call pivout (comm, logfil, 1, kev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4250 + call pivout (comm, logfil, 1, [kev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4251 & '_napps: Order of the final Hessenberg matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4252 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4253 call pzmout (comm, logfil, kev, kev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4254 diff --git a/PARPACK/SRC/MPI/pznaup2.f b/PARPACK/SRC/MPI/pznaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4255 index bf3c2016..78521979 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4256 --- a/PARPACK/SRC/MPI/pznaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4257 +++ b/PARPACK/SRC/MPI/pznaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4258 @@ -237,7 +237,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4259 & nevbef, nev0 , np0, eps23
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4260 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4261 Double precision
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4262 - & cmpnorm_buf
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4263 + & cmpnorm_buf, buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4264 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4265 c %-----------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4266 c | Local array arguments |
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4267 @@ -401,7 +401,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4268 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4269 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4270 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4271 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4272 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4273 & '_naup2: **** Start of major iteration number ****')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4274 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4275 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4276 @@ -414,9 +414,9 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4277 np = kplusp - nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4278 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4279 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4280 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4281 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4282 & '_naup2: The length of the current Arnoldi factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4283 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4284 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4285 & '_naup2: Extend the Arnoldi factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4286 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4287 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4288 @@ -443,7 +443,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4289 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4290 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4291 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4292 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4293 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4294 & '_naup2: Corresponding B-norm of the residual')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4295 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4296 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4297 @@ -674,7 +674,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4298 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4299 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4300 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4301 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4302 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4303 & '_naup2: no. of "converged" Ritz values at this iter.')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4304 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4305 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4306 @@ -714,7 +714,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4307 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4308 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4309 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4310 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4311 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4312 & '_naup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4313 call pzvout (comm, logfil, np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4314 & '_naup2: values of the shifts')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4315 @@ -771,8 +771,9 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4316 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4317 if (bmat .eq. 'G') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4318 cmpnorm_buf = zdotc (n, resid, 1, workd, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4319 - call MPI_ALLREDUCE( cmpnorm_buf, cmpnorm, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4320 + call MPI_ALLREDUCE( [cmpnorm_buf], buf2, 1,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4321 & MPI_DOUBLE_COMPLEX, MPI_SUM, comm, ierr )
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4322 + cmpnorm = buf2(1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4323 rnorm = sqrt(dlapy2(dble(cmpnorm),dimag(cmpnorm)))
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4324 else if (bmat .eq. 'I') then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4325 rnorm = pdznorm2(comm, n, resid, 1)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4326 @@ -780,7 +781,7 @@ subroutine pznaup2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4327 cnorm = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4328 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4329 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4330 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4331 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4332 & '_naup2: B-norm of residual for compressed factorization')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4333 call pzmout (comm, logfil, nev, nev, h, ldh, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4334 & '_naup2: Compressed upper Hessenberg matrix H')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4335 diff --git a/PARPACK/SRC/MPI/pznaupd.f b/PARPACK/SRC/MPI/pznaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4336 index 979402b3..7d6ea4c4 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4337 --- a/PARPACK/SRC/MPI/pznaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4338 +++ b/PARPACK/SRC/MPI/pznaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4339 @@ -626,9 +626,9 @@ subroutine pznaupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4340 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4341 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4342 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4343 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4344 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4345 & '_naupd: Number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4346 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4347 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4348 & '_naupd: Number of wanted "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4349 call pzvout (comm, logfil, np, workl(ritz), ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4350 & '_naupd: The final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4351 diff --git a/PARPACK/SRC/MPI/pzneupd.f b/PARPACK/SRC/MPI/pzneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4352 index 4bb1173a..7b6e7fe1 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4353 --- a/PARPACK/SRC/MPI/pzneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4354 +++ b/PARPACK/SRC/MPI/pzneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4355 @@ -558,9 +558,9 @@ subroutine pzneupd
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4356 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4357 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4358 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4359 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4360 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4361 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4362 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4363 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4364 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4365 end if
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4366 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4367 diff --git a/PARPACK/SRC/MPI/pzngets.f b/PARPACK/SRC/MPI/pzngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4368 index 97bc4070..cb58f5ce 100644
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4369 --- a/PARPACK/SRC/MPI/pzngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4370 +++ b/PARPACK/SRC/MPI/pzngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4371 @@ -177,8 +177,8 @@ subroutine pzngets ( comm, ishift, which, kev, np, ritz, bounds)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4372 tcgets = tcgets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4373 c
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4374 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4375 - call pivout (comm, logfil, 1, kev, ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4376 - call pivout (comm, logfil, 1, np, ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4377 + call pivout (comm, logfil, 1, [kev], ndigit, '_ngets: KEV is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4378 + call pivout (comm, logfil, 1, [np], ndigit, '_ngets: NP is')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4379 call pzvout (comm, logfil, kev+np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4380 & '_ngets: Eigenvalues of current H matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4381 call pzvout (comm, logfil, kev+np, bounds, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4382 diff --git a/scripts/travis_fedora.sh b/scripts/travis_fedora.sh
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4383 new file mode 100755
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4384 index 00000000..0bfa5736
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4385 --- /dev/null
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4386 +++ b/scripts/travis_fedora.sh
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4387 @@ -0,0 +1,51 @@
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4388 +#!/bin/sh
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4389 +## -e : Make sure all errors cause the script to fail
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4390 +## -x be verbose; write what we are doing, as we do it
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4391 +set -ex
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4392 +## Should we init a container?
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4393 +if [ ".$1" = .setup ]
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4394 +then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4395 + # fedora
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4396 + # note: when you PR, docker-cp provides, in the container, the branch associated with the PR (not master where there's nothing new)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4397 + # 1. docker create --name mobydick IMAGE CMD <=> create a container (= instance of image) but container is NOT yet started
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4398 + # 2. docker cp -a ${TRAVIS_BUILD_DIR} mobydick:/tmp <=> copy git repository (CI worker, checkout-ed on PR branch) into the container
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4399 + # note: docker-cp works only if copy from/to containers (not images)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4400 + # 3. docker start -a mobydick <=> start to run the container (initialized with docker-cp)
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4401 + test . != ".$2" && mpi="$2" || mpi=openmpi
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4402 + test . != ".$3" && version="$3" || version=latest
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4403 + time sudo docker pull registry.fedoraproject.org/fedora:$version ||
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4404 + sudo docker pull fedora:$version
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4405 + time sudo docker create --name mobydick fedora:$version \
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4406 + /tmp/arpack-ng/scripts/travis_fedora.sh $mpi
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4407 + time sudo docker cp -a ${TRAVIS_BUILD_DIR} mobydick:/tmp
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4408 + time sudo docker start -a mobydick ; e=$?
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4409 + exit $e
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4410 +fi
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4411 +
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4412 +test . != ".$1" && mpi="$1" || mpi=openmpi
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4413 +
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4414 +## If we are called as root, setup everything
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4415 +if [ $UID -eq 0 ]
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4416 +then
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4417 + time dnf -y upgrade
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4418 + time dnf -y install environment-modules git \
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4419 + gfortran openblas-devel cmake ${mpi}-devel make gcc-c++
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4420 + useradd test
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4421 + chown -R test /tmp
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4422 + sudo -u test $0 $mpi
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4423 +## If we are called as normal user, run test
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4424 +else
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4425 + . /etc/profile.d/modules.sh
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4426 + module load mpi
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4427 + export OMPI_MCA_rmaps_base_oversubscribe=yes
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4428 + cd /tmp
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4429 + cd arpack-ng
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4430 + git status
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4431 + git log -2
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4432 + mkdir -p build && cd build
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4433 + time cmake -DEXAMPLES=ON -DMPI=ON -DICB=ON ..
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4434 + export VERBOSE=1
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4435 + time make all
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4436 + time make test
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4437 + tail -n 300 ./Testing/Temporary/LastTest.log
efe91da1a169 Fix compiling ARPACK with gcc 10.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4438 +fi