From 9f3f14592873bb76822629ba6d27d1551d522a83 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Mon, 6 Mar 2006 16:52:10 +0000
Subject: [PATCH] Renaming: moved PSB_DESCPRT into PSB_CDPRT.

---
 src/modules/psb_tools_mod.f90                | 6 +++---
 src/tools/Makefile                           | 2 +-
 src/tools/{psb_descprt.f90 => psb_cdprt.f90} | 8 ++++----
 src/tools/psb_descasb.f90                    | 4 ++--
 4 files changed, 10 insertions(+), 10 deletions(-)
 rename src/tools/{psb_descprt.f90 => psb_cdprt.f90} (98%)

diff --git a/src/modules/psb_tools_mod.f90 b/src/modules/psb_tools_mod.f90
index 7b8ffff3..45af4d9e 100644
--- a/src/modules/psb_tools_mod.f90
+++ b/src/modules/psb_tools_mod.f90
@@ -142,15 +142,15 @@ Module psb_tools_mod
   end interface
 
 
-  interface psb_descprt
-     subroutine psb_descprt(iout,desc_p,glob,short)
+  interface psb_cdprt
+     subroutine psb_cdprt(iout,desc_p,glob,short)
        use psb_const_mod
        use psb_descriptor_type
        implicit none 
        type(psb_desc_type), intent(in)    :: desc_p
        integer, intent(in)                :: iout
        logical, intent(in), optional      :: glob,short
-     end subroutine psb_descprt
+     end subroutine psb_cdprt
   end interface
 
 
diff --git a/src/tools/Makefile b/src/tools/Makefile
index cbab5094..ac506141 100644
--- a/src/tools/Makefile
+++ b/src/tools/Makefile
@@ -1,6 +1,6 @@
 include ../../Make.inc
 
-FOBJS = psb_dallc.o psb_dasb.o psb_dcsrp.o psb_descprt.o \
+FOBJS = psb_dallc.o psb_dasb.o psb_dcsrp.o psb_cdprt.o \
 	psb_dfree.o psb_dgelp.o psb_dins.o \
 	psb_dscall.o psb_dscalv.o psb_dscasb.o psb_dsccpy.o \
 	psb_dscdec.o psb_dscfree.o psb_dscins.o psb_cdovr.o \
diff --git a/src/tools/psb_descprt.f90 b/src/tools/psb_cdprt.f90
similarity index 98%
rename from src/tools/psb_descprt.f90
rename to src/tools/psb_cdprt.f90
index d3bd7082..742ba540 100644
--- a/src/tools/psb_descprt.f90
+++ b/src/tools/psb_cdprt.f90
@@ -28,9 +28,9 @@
 !!$  POSSIBILITY OF SUCH DAMAGE.
 !!$ 
 !!$  
-! File: psb_descprt.f90
+! File: psb_cdprt.f90
 !
-! Subroutine: psb_descprt
+! Subroutine: psb_cdprt
 !    Prints the descriptor to an output file
 ! 
 ! Parameters: 
@@ -38,7 +38,7 @@
 !    desc_p        - type(<psb_desc_type>).  The communication descriptor to be printed.
 !    glob          - logical(otpional).      Wheter to print out global or local data.
 !    short         - logical(optional).      Used to choose a verbose output.
-subroutine psb_descprt(iout,desc_p,glob,short)
+subroutine psb_cdprt(iout,desc_p,glob,short)
   use psb_const_mod
   use psb_descriptor_type
   implicit none 
@@ -203,4 +203,4 @@ subroutine psb_descprt(iout,desc_p,glob,short)
       enddo
     endif
   end if
-end subroutine psb_descprt
+end subroutine psb_cdprt
diff --git a/src/tools/psb_descasb.f90 b/src/tools/psb_descasb.f90
index 5583c2aa..cd43bc7f 100644
--- a/src/tools/psb_descasb.f90
+++ b/src/tools/psb_descasb.f90
@@ -52,7 +52,7 @@ Subroutine psb_descasb(n_ovr,desc_p,desc_a,a,&
   use psb_serial_mod
   Use psi_mod
   use psb_realloc_mod
-  use psb_tools_mod, only : psb_descprt, psb_spfree
+  use psb_tools_mod, only : psb_cdprt, psb_spfree
   use psb_error_mod
   use psb_const_mod
   Implicit None
@@ -660,7 +660,7 @@ Subroutine psb_descasb(n_ovr,desc_p,desc_a,a,&
   end if
 
   if (.false.) then
-     call psb_descprt(70+myrow,desc_p,.false.)
+     call psb_cdprt(70+myrow,desc_p,.false.)
   end if
 
   if (debug) write(0,*) myrow,'Done ConvertComm'