diff options
author | Étienne Mollier <etienne.mollier@mailoo.org> | 2022-07-03 09:43:47 +0200 |
---|---|---|
committer | Étienne Mollier <emollier@debian.org> | 2022-07-03 09:43:47 +0200 |
commit | c82eff69be37dc744ae60fb2f7ae27fb25850ce6 (patch) | |
tree | 81fc109ac7e69162be459214c31833071e2ef50a | |
parent | 60fcf64007b984f5c32510641515dacc1811132f (diff) |
fix ftbfs with gcc-10
Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=957828
Forwarded: saad *at* cs *dot* umn *dot* edu
Last-Update: 2021-02-02
This fixes the argument type mismatch in the csrcsc
call by introducing the one dimension vector iziama of type
real(8), instead of an integer(4) scalar, while trying to
maintain compatibility with Fortran 77.
Last-Update: 2021-02-02
Gbp-Pq: Name gcc-10.patch
-rw-r--r-- | ORDERINGS/ccn.f | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/ORDERINGS/ccn.f b/ORDERINGS/ccn.f index eee5836..037cfa9 100644 --- a/ORDERINGS/ccn.f +++ b/ORDERINGS/ccn.f @@ -90,7 +90,7 @@ C Laura C. Dutto - email: dutto@cerca.umontreal.ca c July 1992 - Update: March 1994 C----------------------------------------------------------------------- integer izs(nw), lpw(n), nsbloc(0:nblcmx), ia(n+1), ja(*) - real*8 amat(*) + real*8 amat(*), iziama(1) logical impr character*6 chsubr C----------------------------------------------------------------------- @@ -147,10 +147,12 @@ c..........We copy IA and JA on IAT and JAT respectively * ja, ia, izs(ilpw), izs(ilpw), job) ipos = 1 c..........We sort columns inside JA. - call csrcsc(n, job, ipos, amat, ja, ia, izs(iamat), + iziama(1) = izs(iamat) + call csrcsc(n, job, ipos, amat, ja, ia, iziama, * izs(ijat), izs(iiat)) - call csrcsc(n, job, ipos, izs(iamat), izs(ijat), izs(iiat), + call csrcsc(n, job, ipos, iziama, izs(ijat), izs(iiat), * amat, ja, ia) + izs(iamat) = iziama(1) endif c.....We modify the ordering of unknowns in LPW call compos(n, lpw, izs(ilpw)) |