mxe-octave: src/arpack-1-gcc10.patch annotate

author	Markus Mützel <markus.muetzel@gmx.de>
date	Thu, 27 Aug 2020 21:37:36 +0200
parents
children	794ea7ca1771

rev	line source
5520 efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	1 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	2 From: dschwoerer <dschwoerer@users.noreply.github.com>
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	3 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	4 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	5
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	6 * port PARPACK also to gcc 10
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	7
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	8 * 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	9
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	10 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	11 can use the result.
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	12
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	13 * use valid address of binary
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	14
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	15 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	16
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	17 * 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	18
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	19 * After pulling fedora:rawhide, use fedora:rawhide
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	20
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	21 * simplify travis tests for fedora
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	22
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	23 * run using bash -v (permissions issue otherwise)
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	24
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	25 * run using bash -v (permissions issue otherwise)
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	26
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	27 * fix permission of script
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	28
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	29 * Add she-bang to allow execution
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	30
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	31 * fix test for fedora
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	32
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	33 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	34
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	35 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	36 index 0325fda3..191d70fd 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	37 --- a/PARPACK/SRC/BLACS/pcgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	38 +++ b/PARPACK/SRC/BLACS/pcgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	39 @@ -406,9 +406,9 @@ subroutine pcgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	40 c %--------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	41 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	42 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	43 - call psvout (comm, logfil, 1, rnorm0, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	44 + call psvout (comm, logfil, 1, [rnorm0], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	45 & '_getv0: re-orthonalization ; rnorm0 is')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	46 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	47 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	48 & '_getv0: re-orthonalization ; rnorm is')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	49 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	50 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	51 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	52 index a9f17ed8..04fa1cbe 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	53 --- a/PARPACK/SRC/BLACS/pcnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	54 +++ b/PARPACK/SRC/BLACS/pcnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	55 @@ -401,9 +401,9 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	56 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	57 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	58 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	59 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	60 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	61 & '_naitr: generating Arnoldi vector number')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	62 - call pcvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	63 + call pcvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	64 & '_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	65 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	66 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	67 @@ -423,7 +423,7 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	68 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	69 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	70 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	71 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	72 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	73 & '_naitr: **** RESTART AT STEP ****')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	74 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	75 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	76 @@ -757,7 +757,7 @@ subroutine pcnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	77 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	78 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	79 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	80 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	81 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	82 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	83 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	84 rtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	85 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	86 index 47fb7e70..e40793cf 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	87 --- a/PARPACK/SRC/BLACS/pcnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	88 +++ b/PARPACK/SRC/BLACS/pcnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	89 @@ -284,9 +284,9 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	90 sigma = shift(jj)
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	91 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	92 if (msglvl .gt. 2 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	93 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	94 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	95 & '_napps: shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	96 - call pcvout (comm, logfil, 1, sigma, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	97 + call pcvout (comm, logfil, 1, [sigma], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	98 & '_napps: Value of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	99 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	100 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	101 @@ -307,9 +307,9 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	102 if ( abs(real(h(i+1,i)))
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	103 & .le. max(ulp*tst1, smlnum) ) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	104 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	105 - call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	106 + call pivout (comm, logfil, 1, [i], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	107 & '_napps: matrix splitting at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	108 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	109 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	110 & '_napps: matrix splitting with shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	111 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	112 & '_napps: off diagonal element.')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	113 @@ -323,9 +323,9 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	114 40 continue
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	115 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	116 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	117 - call pivout (comm, logfil, 1, istart, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	118 + call pivout (comm, logfil, 1, [istart], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	119 & '_napps: Start of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	120 - call pivout (comm, logfil, 1, iend, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	121 + call pivout (comm, logfil, 1, [iend], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	122 & '_napps: End of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	123 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	124 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	125 @@ -501,7 +501,7 @@ subroutine pcnapps
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	126 & '_napps: sigmak = (e_{kev+p}^TQ)e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	127 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	128 & '_napps: betak = e_{kev+1}^THe_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	129 - call pivout (comm, logfil, 1, kev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	130 + call pivout (comm, logfil, 1, [kev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	131 & '_napps: Order of the final Hessenberg matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	132 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	133 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	134 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	135 index 55868069..757b12c3 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	136 --- a/PARPACK/SRC/BLACS/pcnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	137 +++ b/PARPACK/SRC/BLACS/pcnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	138 @@ -398,7 +398,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	139 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	140 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	141 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	142 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	143 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	144 & '_naup2: ** Start of major iteration number **')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	145 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	146 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	147 @@ -411,9 +411,9 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	148 np = kplusp - nev
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	149 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	150 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	151 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	152 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	153 & '_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	154 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	155 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	156 & '_naup2: Extend the Arnoldi factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	157 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	158 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	159 @@ -440,7 +440,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	160 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	161 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	162 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	163 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	164 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	165 & '_naup2: Corresponding B-norm of the residual')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	166 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	167 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	168 @@ -671,7 +671,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	169 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	170 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	171 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	172 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	173 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	174 & '_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	175 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	176 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	177 @@ -711,7 +711,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	178 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	179 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	180 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	181 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	182 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	183 & '_naup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	184 call pcvout (comm, logfil, np, ritz, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	185 & '_naup2: values of the shifts')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	186 @@ -776,7 +776,7 @@ subroutine pcnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	187 cnorm = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	188 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	189 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	190 - call psvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	191 + call psvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	192 & '_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	193 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	194 & '_naup2: Compressed upper Hessenberg matrix H')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	195 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	196 index b350199e..55bb655d 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	197 --- a/PARPACK/SRC/BLACS/pcnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	198 +++ b/PARPACK/SRC/BLACS/pcnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	199 @@ -618,9 +618,9 @@ subroutine pcnaupd
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	200 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	201 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	202 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	203 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	204 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	205 & '_naupd: Number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	206 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	207 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	208 & '_naupd: Number of wanted "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	209 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	210 & '_naupd: The final Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	211 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	212 index 53cf2d24..da4a9ec5 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	213 --- a/PARPACK/SRC/BLACS/pcneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	214 +++ b/PARPACK/SRC/BLACS/pcneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	215 @@ -558,9 +558,9 @@ subroutine pcneupd
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	216 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	217 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	218 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	219 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	220 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	221 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	222 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	223 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	224 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	225 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	226 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	227 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	228 index f9cca353..89cd67ae 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	229 --- a/PARPACK/SRC/BLACS/pcngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	230 +++ b/PARPACK/SRC/BLACS/pcngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	231 @@ -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	232 tcgets = tcgets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	233 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	234 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	235 - 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	236 - 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	237 + 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	238 + 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	239 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	240 & '_ngets: Eigenvalues of current H matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	241 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	242 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	243 index 9c3a1d99..237443dd 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	244 --- a/PARPACK/SRC/BLACS/pdgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	245 +++ b/PARPACK/SRC/BLACS/pdgetv0.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	246 @@ -385,9 +385,9 @@ subroutine pdgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	247 c %--------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	248 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	249 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	250 - call pdvout (comm, logfil, 1, rnorm0, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	251 + call pdvout (comm, logfil, 1, [rnorm0], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	252 & '_getv0: re-orthonalization ; rnorm0 is')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	253 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	254 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	255 & '_getv0: re-orthonalization ; rnorm is')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	256 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	257 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	258 @@ -418,7 +418,7 @@ subroutine pdgetv0
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	259 50 continue
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	260 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	261 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	262 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	263 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	264 & '_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	265 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	266 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	267 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	268 index f6557560..fb46494f 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	269 --- a/PARPACK/SRC/BLACS/pdnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	270 +++ b/PARPACK/SRC/BLACS/pdnaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	271 @@ -390,9 +390,9 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	272 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	273 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	274 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	275 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	276 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	277 & '_naitr: generating Arnoldi vector number')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	278 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	279 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	280 & '_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	281 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	282 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	283 @@ -412,7 +412,7 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	284 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	285 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	286 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	287 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	288 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	289 & '_naitr: **** RESTART AT STEP ****')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	290 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	291 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	292 @@ -745,7 +745,7 @@ subroutine pdnaitr
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	293 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	294 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	295 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	296 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	297 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	298 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	299 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	300 xtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	301 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	302 index 56e3414d..eadca320 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	303 --- a/PARPACK/SRC/BLACS/pdnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	304 +++ b/PARPACK/SRC/BLACS/pdnapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	305 @@ -276,11 +276,11 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	306 sigmai = shifti(jj)
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	307 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	308 if (msglvl .gt. 2 ) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	309 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	310 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	311 & '_napps: shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	312 - call pdvout (comm, logfil, 1, sigmar, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	313 + call pdvout (comm, logfil, 1, [sigmar], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	314 & '_napps: The real part of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	315 - call pdvout (comm, logfil, 1, sigmai, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	316 + call pdvout (comm, logfil, 1, [sigmai], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	317 & '_napps: The imaginary part of the shift ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	318 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	319 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	320 @@ -347,7 +347,7 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	321 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	322 call pivout (comm, logfil, 1, i, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	323 & '_napps: matrix splitting at row/column no.')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	324 - call pivout (comm, logfil, 1, jj, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	325 + call pivout (comm, logfil, 1, [jj], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	326 & '_napps: matrix splitting with shift number.')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	327 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	328 & '_napps: off diagonal element.')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	329 @@ -361,9 +361,9 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	330 40 continue
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	331 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	332 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	333 - call pivout (comm, logfil, 1, istart, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	334 + call pivout (comm, logfil, 1, [istart], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	335 & '_napps: Start of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	336 - call pivout (comm, logfil, 1, iend, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	337 + call pivout (comm, logfil, 1, [iend], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	338 & '_napps: End of current block ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	339 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	340 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	341 @@ -635,7 +635,7 @@ subroutine pdnapps
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	342 & '_napps: sigmak = (e_{kev+p}^TQ)e_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	343 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	344 & '_napps: betak = e_{kev+1}^THe_{kev}')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	345 - call pivout (comm, logfil, 1, kev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	346 + call pivout (comm, logfil, 1, [kev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	347 & '_napps: Order of the final Hessenberg matrix ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	348 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	349 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	350 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	351 index becea72d..a295dbbb 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	352 --- a/PARPACK/SRC/BLACS/pdnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	353 +++ b/PARPACK/SRC/BLACS/pdnaup2.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	354 @@ -405,7 +405,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	355 iter = iter + 1
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	356 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	357 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	358 - call pivout (comm, logfil, 1, iter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	359 + call pivout (comm, logfil, 1, [iter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	360 & '_naup2: ** Start of major iteration number **')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	361 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	362 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	363 @@ -418,9 +418,9 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	364 np = kplusp - nev
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	365 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	366 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	367 - call pivout (comm, logfil, 1, nev, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	368 + call pivout (comm, logfil, 1, [nev], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	369 & '_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	370 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	371 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	372 & '_naup2: Extend the Arnoldi factorization by')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	373 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	374 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	375 @@ -452,7 +452,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	376 update = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	377 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	378 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	379 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	380 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	381 & '_naup2: Corresponding B-norm of the residual')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	382 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	383 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	384 @@ -696,7 +696,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	385 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	386 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	387 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	388 - call pivout (comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	389 + call pivout (comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	390 & '_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	391 if (msglvl .gt. 1) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	392 kp(1) = nev
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	393 @@ -748,7 +748,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	394 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	395 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	396 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	397 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	398 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	399 & '_naup2: The number of shifts to apply ')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	400 call pdvout (comm, logfil, np, ritzr, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	401 & '_naup2: Real part of the shifts')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	402 @@ -815,7 +815,7 @@ subroutine pdnaup2
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	403 cnorm = .false.
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	404 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	405 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	406 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	407 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	408 & '_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	409 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	410 & '_naup2: Compressed upper Hessenberg matrix H')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	411 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	412 index d947755b..ed0fa20f 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	413 --- a/PARPACK/SRC/BLACS/pdnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	414 +++ b/PARPACK/SRC/BLACS/pdnaupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	415 @@ -642,9 +642,9 @@ subroutine pdnaupd
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	416 if (info .eq. 2) info = 3
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	417 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	418 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	419 - call pivout (comm, logfil, 1, mxiter, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	420 + call pivout (comm, logfil, 1, [mxiter], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	421 & '_naupd: Number of update iterations taken')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	422 - call pivout (comm, logfil, 1, np, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	423 + call pivout (comm, logfil, 1, [np], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	424 & '_naupd: Number of wanted "converged" Ritz values')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	425 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	426 & '_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	427 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	428 index 0ff911ff..321202f9 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	429 --- a/PARPACK/SRC/BLACS/pdneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	430 +++ b/PARPACK/SRC/BLACS/pdneupd.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	431 @@ -617,9 +617,9 @@ subroutine pdneupd
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	432 c %-----------------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	433 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	434 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	435 - call pivout(comm, logfil, 1, numcnv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	436 + call pivout(comm, logfil, 1, [numcnv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	437 & '_neupd: Number of specified eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	438 - call pivout(comm, logfil, 1, nconv, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	439 + call pivout(comm, logfil, 1, [nconv], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	440 & '_neupd: Number of "converged" eigenvalues')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	441 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	442 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	443 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	444 index 71ed6a7c..12a691f6 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	445 --- a/PARPACK/SRC/BLACS/pdngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	446 +++ b/PARPACK/SRC/BLACS/pdngets.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	447 @@ -226,8 +226,8 @@ subroutine pdngets
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	448 tngets = tngets + (t1 - t0)
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	449 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	450 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	451 - 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	452 - 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	453 + 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	454 + 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	455 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	456 & '_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	457 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	458 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	459 index 37ca61e8..9a2cdfc1 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	460 --- a/PARPACK/SRC/BLACS/pdsaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	461 +++ b/PARPACK/SRC/BLACS/pdsaitr.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	462 @@ -389,9 +389,9 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	463 1000 continue
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	464 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	465 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	466 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	467 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	468 & '_saitr: generating Arnoldi vector no.')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	469 - call pdvout (comm, logfil, 1, rnorm, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	470 + call pdvout (comm, logfil, 1, [rnorm], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	471 & '_saitr: B-norm of the current residual =')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	472 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	473 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	474 @@ -409,7 +409,7 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	475 c %---------------------------------------------------%
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	476 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	477 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	478 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	479 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	480 & '_saitr: **** restart at step ****')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	481 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	482 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	483 @@ -767,7 +767,7 @@ subroutine pdsaitr
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	484 end if
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	485 c
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	486 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	487 - call pivout (comm, logfil, 1, j, ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	488 + call pivout (comm, logfil, 1, [j], ndigit,
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	489 & '_naitr: Iterative refinement for Arnoldi residual')
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	490 if (msglvl .gt. 2) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	491 xtemp(1) = rnorm
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	492 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	493 index b3a05cf4..4e2c0760 100644
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	494 --- a/PARPACK/SRC/BLACS/pdsapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	495 +++ b/PARPACK/SRC/BLACS/pdsapps.f
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	496 @@ -272,9 +272,9 @@ subroutine pdsapps
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	497 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	498 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	499 if (msglvl .gt. 0) then
efe91da1a169 Fix compiling ARPACK with gcc 10. Markus Mützel <markus.muetzel@gmx.de> parents: diff changeset	500 - call pivout (comm, logfil, 1, i, ndigit,

5520

efe91da1a169 Fix compiling ARPACK with gcc 10.