Renaming: moved PSB_DESCPRT into PSB_CDPRT.

src/modules/psb_tools_mod.f90

@@ -142,15 +142,15 @@ Module psb_tools_mod
   end interface
 
 
-  interface psb_descprt
+  interface psb_cdprt
-     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 
        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
 
 

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 \

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

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'