psblas3-type-indexed
Salvatore Filippone 13 years ago
parent b6d1548195
commit d95e29f1ff

@ -17,7 +17,7 @@ IMPLOBJS= psb_s_hbio_impl.o psb_d_hbio_impl.o \
psb_s_renum_impl.o psb_d_renum_impl.o \ psb_s_renum_impl.o psb_d_renum_impl.o \
psb_c_renum_impl.o psb_z_renum_impl.o psb_c_renum_impl.o psb_z_renum_impl.o
MODOBJS=psb_util_mod.o $(BASEOBJS) MODOBJS=psb_util_mod.o $(BASEOBJS)
COBJS=psb_amd_interface.o COBJS=psb_amd_order.o
OBJS=$(MODOBJS) $(IMPLOBJS) $(COBJS) OBJS=$(MODOBJS) $(IMPLOBJS) $(COBJS)
LIBMOD=psb_util_mod$(.mod) LIBMOD=psb_util_mod$(.mod)
LOCAL_MODS=$(MODOBJS:.o=$(.mod)) LOCAL_MODS=$(MODOBJS:.o=$(.mod))

@ -33,7 +33,7 @@
#include "amd.h" #include "amd.h"
#endif #endif
int psb_amd_interface(int n, int Ap[], int Ai[], int P[]) int psb_amd_order(int n, int Ap[], int Ai[], int P[])
{ {
int i; int i;
#ifdef HAVE_AMD_ #ifdef HAVE_AMD_

@ -192,12 +192,12 @@ contains
! !
#if defined(HAVE_AMD) && defined(HAVE_ISO_C_BINDING) #if defined(HAVE_AMD) && defined(HAVE_ISO_C_BINDING)
interface interface
function psb_amd_interface(n,ap,ai,p)& function psb_amd_order(n,ap,ai,p)&
& result(res) bind(c,name='psb_amd_interface') & result(res) bind(c,name='psb_amd_order')
use iso_c_binding use iso_c_binding
integer(c_int) :: res, n integer(c_int) :: res, n
integer(c_int) :: ap(*), ai(*), p(*) integer(c_int) :: ap(*), ai(*), p(*)
end function psb_amd_interface end function psb_amd_order
end interface end interface
#endif #endif
@ -225,7 +225,7 @@ contains
acsc%ia(:) = acsc%ia(:) - 1 acsc%ia(:) = acsc%ia(:) - 1
acsc%icp(:) = acsc%icp(:) - 1 acsc%icp(:) = acsc%icp(:) - 1
info = psb_amd_interface(nr,acsc%icp,acsc%ia,perm) info = psb_amd_order(nr,acsc%icp,acsc%ia,perm)
if (info /= psb_success_) then if (info /= psb_success_) then
info = psb_err_from_subroutine_ info = psb_err_from_subroutine_
call psb_errpush(info,name) call psb_errpush(info,name)

Loading…
Cancel
Save