fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Alfredo Buttari
2005-10-10 15:39:42 +00:00
parent aedef1ef01
commit 9ad5ffe8a6
8 changed files with 74 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Fileread/partgraph.f90
+1 -1
View File
@@ -139,7 +139,7 @@ CONTAINS
wgflag = 0
call METIS_PartGraphRecursive(n,ia2,ia1,idummy,jdummy,&
& wgflag,numflag,nparts,iopt,nedc,graph_vect)
write(0,*)'Edge cut from Metis ',nedc
! write(0,*)'Edge cut from Metis ',nedc
DO I=1, N
GRAPH_VECT(I) = GRAPH_VECT(I) - 1
ENDDO