Fix metispart in case !HAVE_METIS

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