From d5468f699f596c96272418933b92b5abc50c3e23 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 11 Nov 2013 10:47:41 +0000 Subject: [PATCH] *** empty log message *** --- util/psb_metispart_mod.F90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/util/psb_metispart_mod.F90 b/util/psb_metispart_mod.F90 index b4c2fd0f..13c52fff 100644 --- a/util/psb_metispart_mod.F90 +++ b/util/psb_metispart_mod.F90 @@ -280,7 +280,7 @@ contains numflag = 1 wgflag = 0 - write(*,*) 'Before allocation',nparts +!!$ write(*,*) 'Before allocation',nparts irpl=irp jal = ja @@ -289,23 +289,23 @@ contains wgh_ = -1.0 if(present(weights)) then if (size(weights) == nptl) then - write(*,*) 'weights present',weights +!!$ write(*,*) 'weights present',weights ! call METIS_PartGraphRecursive(n,irp,ja,idummy,jdummy,& ! & wgflag,numflag,nparts,weights,iopt,nedc,graph_vect) info = METIS_PartGraphRecursive(nl,irpl,jal,idummy,jdummy,& & nptl,weights,gvl) else - write(*,*) 'weights absent',wgh_ + !write(*,*) 'weights absent',wgh_ info = METIS_PartGraphRecursive(nl,irpl,jal,idummy,jdummy,& & nptl,wgh_,gvl) end if else - write(*,*) 'weights absent',wgh_ + !write(*,*) 'weights absent',wgh_ info = METIS_PartGraphRecursive(nl,irpl,jal,idummy,jdummy,& & nptl,wgh_,gvl) endif - write(*,*) 'after allocation',info + !write(*,*) 'after allocation',info do i=1, n graph_vect(i) = gvl(i) - 1