Renaming: moved PSB_DESCPRT into PSB_CDPRT.

psblas3-type-indexed
Salvatore Filippone 19 years ago
parent 2d898df6b6
commit 9f3f145928

@ -142,15 +142,15 @@ Module psb_tools_mod
end interface 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_const_mod
use psb_descriptor_type use psb_descriptor_type
implicit none implicit none
type(psb_desc_type), intent(in) :: desc_p type(psb_desc_type), intent(in) :: desc_p
integer, intent(in) :: iout integer, intent(in) :: iout
logical, intent(in), optional :: glob,short logical, intent(in), optional :: glob,short
end subroutine psb_descprt end subroutine psb_cdprt
end interface end interface

@ -1,6 +1,6 @@
include ../../Make.inc 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_dfree.o psb_dgelp.o psb_dins.o \
psb_dscall.o psb_dscalv.o psb_dscasb.o psb_dsccpy.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 \ psb_dscdec.o psb_dscfree.o psb_dscins.o psb_cdovr.o \

@ -28,9 +28,9 @@
!!$ POSSIBILITY OF SUCH DAMAGE. !!$ 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 ! Prints the descriptor to an output file
! !
! Parameters: ! Parameters:
@ -38,7 +38,7 @@
! desc_p - type(<psb_desc_type>). The communication descriptor to be printed. ! desc_p - type(<psb_desc_type>). The communication descriptor to be printed.
! glob - logical(otpional). Wheter to print out global or local data. ! glob - logical(otpional). Wheter to print out global or local data.
! short - logical(optional). Used to choose a verbose output. ! 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_const_mod
use psb_descriptor_type use psb_descriptor_type
implicit none implicit none
@ -203,4 +203,4 @@ subroutine psb_descprt(iout,desc_p,glob,short)
enddo enddo
endif endif
end if end if
end subroutine psb_descprt end subroutine psb_cdprt

@ -52,7 +52,7 @@ Subroutine psb_descasb(n_ovr,desc_p,desc_a,a,&
use psb_serial_mod use psb_serial_mod
Use psi_mod Use psi_mod
use psb_realloc_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_error_mod
use psb_const_mod use psb_const_mod
Implicit None Implicit None
@ -660,7 +660,7 @@ Subroutine psb_descasb(n_ovr,desc_p,desc_a,a,&
end if end if
if (.false.) then if (.false.) then
call psb_descprt(70+myrow,desc_p,.false.) call psb_cdprt(70+myrow,desc_p,.false.)
end if end if
if (debug) write(0,*) myrow,'Done ConvertComm' if (debug) write(0,*) myrow,'Done ConvertComm'

Loading…
Cancel
Save