From d95e29f1ff18d8815be37378505bb999a73f305f Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Mon, 21 Nov 2011 21:00:56 +0000
Subject: [PATCH]

---
 util/Makefile                     | 2 +-
 util/{psb_amd => psb_amd_order.c} | 2 +-
 util/psb_d_renum_impl.F90         | 8 ++++----
 3 files changed, 6 insertions(+), 6 deletions(-)
 rename util/{psb_amd => psb_amd_order.c} (97%)

diff --git a/util/Makefile b/util/Makefile
index bd461d7a..fa0b49a4 100644
--- a/util/Makefile
+++ b/util/Makefile
@@ -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_c_renum_impl.o psb_z_renum_impl.o 
 MODOBJS=psb_util_mod.o $(BASEOBJS)
-COBJS=psb_amd_interface.o
+COBJS=psb_amd_order.o
 OBJS=$(MODOBJS) $(IMPLOBJS) $(COBJS)
 LIBMOD=psb_util_mod$(.mod)
 LOCAL_MODS=$(MODOBJS:.o=$(.mod))
diff --git a/util/psb_amd b/util/psb_amd_order.c
similarity index 97%
rename from util/psb_amd
rename to util/psb_amd_order.c
index e5d899c0..b4aab068 100644
--- a/util/psb_amd
+++ b/util/psb_amd_order.c
@@ -33,7 +33,7 @@
 #include "amd.h"
 #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;
 #ifdef HAVE_AMD_
diff --git a/util/psb_d_renum_impl.F90 b/util/psb_d_renum_impl.F90
index 9451e357..601d278a 100644
--- a/util/psb_d_renum_impl.F90
+++ b/util/psb_d_renum_impl.F90
@@ -192,12 +192,12 @@ contains
     ! 
 #if defined(HAVE_AMD) && defined(HAVE_ISO_C_BINDING)
     interface 
-      function psb_amd_interface(n,ap,ai,p)&
-           & result(res) bind(c,name='psb_amd_interface')
+      function psb_amd_order(n,ap,ai,p)&
+           & result(res) bind(c,name='psb_amd_order')
         use iso_c_binding
         integer(c_int) :: res, n
         integer(c_int) :: ap(*), ai(*), p(*)
-      end function psb_amd_interface
+      end function psb_amd_order
     end interface
 #endif
 
@@ -225,7 +225,7 @@ contains
 
     acsc%ia(:)  = acsc%ia(:) - 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 
       info = psb_err_from_subroutine_
       call psb_errpush(info,name)