From 1ecb1f053cbb141b01665fe210871b785b83d2cc Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 8 Jun 2012 14:13:24 +0000 Subject: [PATCH] psblas-3.0: util/psb_gps_mod.f90 Bug in GPS renumbering: double declaration of a variable was shadowing the COMMON version. --- util/psb_gps_mod.f90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/util/psb_gps_mod.f90 b/util/psb_gps_mod.f90 index f3975720..22389ebf 100644 --- a/util/psb_gps_mod.f90 +++ b/util/psb_gps_mod.f90 @@ -112,7 +112,6 @@ CONTAINS use psb_base_mod implicit none INTEGER(psb_ipk_) :: NR, IDEGE, IBW2, IPF2, IDPTHE -!!$ INTEGER(psb_ipk_) :: STNODE, RVNODE, RENUM, STNUM, CCSTOR, SBNUM ! COMMON /GRA/ N, IDPTH, IDEG ! IT IS ASSUMED THAT THE GRAPH HAS AT MOST 50 CONNECTED COMPONENTS. ! COMMON /CC/ XCC, SIZEG(50), STPT(50) @@ -487,14 +486,14 @@ CONTAINS ! STPT(I)- INDEX INTO CCSTORE OF 1ST NODE IN ITH CON COMPT ! ISDIR- FLAG WHICH INDICATES WHICH WAY THE LARGEST CONNECTED ! COMPONENT FELL. =+1 IF LOW AND -1 IF HIGH - INTEGER(psb_ipk_) :: LVLS1(N), LVLS2(N), CCSTOR(N),idflt,isdir ! COMMON /GRA/ N, IDPTH, IDEG ! IT IS ASSUMED THAT THE GRAPH HAS AT MOST 50 COMPONENTS AND ! THAT THERE ARE AT MOST 100 LEVELS. ! COMMON /LVLW/ NHIGH(100), NLOW(100), NACUM(100) ! COMMON /CC/ XCC, SIZEG(50), STPT(50) - integer(psb_ipk_) :: SZ, ENDC,i,j,idpth,max1,max2,inode - integer(psb_ipk_) :: lvlnh, it, k, lvlnl + INTEGER(psb_ipk_) :: LVLS1(N), LVLS2(N), CCSTOR(N) + integer(psb_ipk_) :: SZ, ENDC,i,j,max1,max2,inode + integer(psb_ipk_) :: lvlnh, it, k, lvlnl,idflt,isdir ! FOR EACH CONNECTED COMPONENT DO DO 80 I=1,XCC J = STPT(I)