|
|
@ -139,6 +139,8 @@ contains
|
|
|
|
integer, parameter :: nb=512
|
|
|
|
integer, parameter :: nb=512
|
|
|
|
real(kind(1.d0)), parameter :: seed=12345.d0
|
|
|
|
real(kind(1.d0)), parameter :: seed=12345.d0
|
|
|
|
integer :: iopt(10),idummy(2),jdummy(2)
|
|
|
|
integer :: iopt(10),idummy(2),jdummy(2)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if defined(HAVE_METIS)
|
|
|
|
interface
|
|
|
|
interface
|
|
|
|
subroutine METIS_PartGraphRecursive(n,ixadj,iadj,ivwg,iajw,&
|
|
|
|
subroutine METIS_PartGraphRecursive(n,ixadj,iadj,ivwg,iajw,&
|
|
|
|
& wgflag,numflag,nparts,iopt,nedc,part)
|
|
|
|
& wgflag,numflag,nparts,iopt,nedc,part)
|
|
|
@ -176,7 +178,10 @@ contains
|
|
|
|
graph_vect(i) = 0
|
|
|
|
graph_vect(i) = 0
|
|
|
|
enddo
|
|
|
|
enddo
|
|
|
|
endif
|
|
|
|
endif
|
|
|
|
|
|
|
|
#else
|
|
|
|
|
|
|
|
write(0,*) 'Warning: METIS was not configured at PSBLAS compile time !'
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
|
|
end subroutine build_mtpart
|
|
|
|
end subroutine build_mtpart
|