From 876f9fc84fd148058c4579b49c756c4e6f5920aa Mon Sep 17 00:00:00 2001 From: Ben Greiner Date: Sun, 7 Feb 2021 18:41:42 +0100 Subject: [PATCH] fix argument mismatch error in gcc10 (see https://gcc.gnu.org/gcc-10/porting_to.html) --- src/AB13ID.f | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/AB13ID.f b/src/AB13ID.f index 546f908..b6ec045 100644 --- a/src/AB13ID.f +++ b/src/AB13ID.f @@ -396,7 +396,7 @@ LOGICAL FUNCTION AB13ID( JOBSYS, JOBEIG, EQUIL, CKSING, RESTOR, $ LUPD, MAXACC INTEGER I, ISV, ITAU, IWRK, IWS, J, K, MAXMP, MAXWRK, $ MINWRK, N1, NA, RANKA - DOUBLE PRECISION PREC, SVLMAX, THRESH, TOLDEF + DOUBLE PRECISION PREC, SVLMAX, THRESH, TOLDEF, RCOND C C .. Local Arrays .. DOUBLE PRECISION DUM( 2 ), TOLV( 3 ) @@ -511,7 +511,8 @@ LOGICAL FUNCTION AB13ID( JOBSYS, JOBEIG, EQUIL, CKSING, RESTOR, $ INFO ) MAXWRK = MAX( MAXWRK, INT( DWORK( 1 ) ) ) END IF - CALL MB03OD( 'QR Decomposition', N, N, E, LDE, IWORK, TOL, + RCOND = TOL( 1 ) + CALL MB03OD( 'QR Decomposition', N, N, E, LDE, IWORK, RCOND, $ ZERO, DWORK, RANKE, DWORK, DUM, -1, INFO ) MAXWRK = MAX( MAXWRK, INT( DUM( 1 ) ) + N + 3 ) CALL DORMQR( 'Left', 'Transpose', N, N, N, E, LDE, DWORK, A,