From ba35025f231157e9b0fb252cb8f890d6a7efe55f Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 5 Nov 2020 14:43:47 +0100 Subject: [PATCH] Fix metispart in case !HAVE_METIS --- 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 081d1bc1..8a928b84 100644 --- a/util/psb_metispart_mod.F90 +++ b/util/psb_metispart_mod.F90 @@ -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_(:)