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_(:)