From d6195df8ac5774c8b2fcc2a3c64ef2a3656f3b8a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 25 Aug 2006 10:20:06 +0000 Subject: [PATCH] *** empty log message *** --- test/Fileread/partgraph.f90 | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/test/Fileread/partgraph.f90 b/test/Fileread/partgraph.f90 index 9603a34c..c6c0ce66 100644 --- a/test/Fileread/partgraph.f90 +++ b/test/Fileread/partgraph.f90 @@ -106,9 +106,7 @@ CONTAINS call psb_bcast(ictxt,n,root=root) else call psb_bcast(ictxt,n,root=root) -!!$ if (associated(graph_vect)) then -!!$ deallocate(graph_vect) -!!$ endif + allocate(graph_vect(n),stat=info) if (info /= 0) then write(0,*) 'Fatal error in DISTR_GRPPART: memory allocation ',& @@ -151,11 +149,6 @@ CONTAINS end subroutine METIS_PartGraphRecursive end interface - -!!$ IF (ASSOCIATED(GRAPH_VECT)) THEN -!!$ DEALLOCATE(GRAPH_VECT) -!!$ ENDIF - allocate(graph_vect(n),stat=info) if (info /= 0) then @@ -168,12 +161,10 @@ CONTAINS iopt(1) = 0 numflag = 1 wgflag = 0 -!!$ -!!$ write(0,*)'CSR structure ', size(ia2),size(ia1),& -!!$ & ia2(n+1),minval(ia1(1:ia2(n+1)-1)),maxval(ia1(1:ia2(n+1)-1)) + call METIS_PartGraphRecursive(n,ia2,ia1,idummy,jdummy,& & wgflag,numflag,nparts,iopt,nedc,graph_vect) -!!$ write(0,*)'Edge cut from Metis ',nedc + do i=1, n graph_vect(i) = graph_vect(i) - 1 enddo