Temporary fix for AMD and METIS on I8.

8 years ago · 8550e380e4
parent 099e81c887
commit 8550e380e4
5 changed files with 5 additions and 5 deletions
--- a/util/psb_c_renum_impl.F90
+++ b/util/psb_c_renum_impl.F90
@ -267,7 +267,7 @@ contains
    name = 'mat_renum_amd'
    call psb_erractionsave(err_act)

-#if defined(HAVE_AMD) 
+#if defined(HAVE_AMD)  && !defined(INT_I8_L8)

    info = psb_success_
    nr   = a%get_nrows()
--- a/util/psb_d_renum_impl.F90
+++ b/util/psb_d_renum_impl.F90
@ -267,7 +267,7 @@ contains
    name = 'mat_renum_amd'
    call psb_erractionsave(err_act)

-#if defined(HAVE_AMD) 
+#if defined(HAVE_AMD)  && !defined(INT_I8_L8)

    info = psb_success_
    nr   = a%get_nrows()
--- a/util/psb_metispart_mod.F90
+++ b/util/psb_metispart_mod.F90
@ -314,7 +314,7 @@ contains
    integer(psb_ipk_), allocatable :: irpl(:),jal(:),gvl(:)
    real(psb_spk_),allocatable  :: wgh_(:)

-#if defined(HAVE_METIS)
+#if defined(HAVE_METIS) && !defined(INT_I8_L8)
    interface 
      ! subroutine METIS_PartGraphKway(n,ixadj,iadj,ivwg,iajw,&
      !     & wgflag,numflag,nparts,weights,iopt,nedc,part) bind(c)
--- a/util/psb_s_renum_impl.F90
+++ b/util/psb_s_renum_impl.F90
@ -268,7 +268,7 @@ contains
    name = 'mat_renum_amd'
    call psb_erractionsave(err_act)

-#if defined(HAVE_AMD) 
+#if defined(HAVE_AMD)  && !defined(INT_I8_L8)

    info = psb_success_
    nr   = a%get_nrows()
--- a/util/psb_z_renum_impl.F90
+++ b/util/psb_z_renum_impl.F90
@ -267,7 +267,7 @@ contains
    name = 'mat_renum_amd'
    call psb_erractionsave(err_act)

-#if defined(HAVE_AMD) 
+#if defined(HAVE_AMD)  && !defined(INT_I8_L8)

    info = psb_success_
    nr   = a%get_nrows()