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

Fix metispart in case !HAVE_METIS

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-05 14:43:47 +01:00
parent 1023ba9019
commit ba35025f23
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
util/psb_metispart_mod.F90
+5 -5
View File
@@ -77,7 +77,7 @@ module psb_metispart_mod
integer(psb_lpk_), intent(in) :: n, nparts
integer(psb_lpk_), intent(in) :: ja(:), irp(:)
integer(psb_lpk_), allocatable, intent(inout) :: vect(:)
#if defined(METIS_REAL_32)
#if defined(METIS_REAL_32) || !defined(HAVE_METIS)
real(psb_spk_),optional, intent(in) :: weights(:)
#elif defined(METIS_REAL_64)
real(psb_dpk_),optional, intent(in) :: weights(:)
@@ -186,7 +186,7 @@ contains
type(psb_ld_csr_sparse_mat), intent(in) :: a
integer(psb_lpk_) :: nparts
real(psb_dpk_), optional :: weights(:)
#if defined(METIS_REAL_32)
#if defined(METIS_REAL_32) || !defined(HAVE_METIS)
real(psb_spk_), allocatable :: wgh_(:)
#elif defined(METIS_REAL_64)
real(psb_dpk_), allocatable :: wgh_(:)
@@ -230,7 +230,7 @@ contains
type(psb_lz_csr_sparse_mat), intent(in) :: a
integer(psb_lpk_) :: nparts
real(psb_dpk_), optional :: weights(:)
#if defined(METIS_REAL_32)
#if defined(METIS_REAL_32) || !defined(HAVE_METIS)
real(psb_spk_), allocatable :: wgh_(:)
#elif defined(METIS_REAL_64)
real(psb_dpk_), allocatable :: wgh_(:)
@@ -291,7 +291,7 @@ contains
type(psb_lc_csr_sparse_mat), intent(in) :: a
integer(psb_lpk_) :: nparts
real(psb_spk_), optional :: weights(:)
#if defined(METIS_REAL_32)
#if defined(METIS_REAL_32) || !defined(HAVE_METIS)
real(psb_spk_), allocatable :: wgh_(:)
#elif defined(METIS_REAL_64)
real(psb_dpk_), allocatable :: wgh_(:)
@@ -319,7 +319,7 @@ contains
type(psb_ls_csr_sparse_mat), intent(in) :: a
integer(psb_lpk_) :: nparts
real(psb_spk_), optional :: weights(:)
#if defined(METIS_REAL_32)
#if defined(METIS_REAL_32) || !defined(HAVE_METIS)
real(psb_spk_), allocatable :: wgh_(:)
#elif defined(METIS_REAL_64)
real(psb_dpk_), allocatable :: wgh_(:)