From 3bf7f8a8f0af41776aeabdde807970bcf4e4719a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 21 Sep 2007 08:48:08 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_tools_mod.f90 | 23 +---------------------- 1 file changed, 1 insertion(+), 22 deletions(-) diff --git a/base/modules/psb_tools_mod.f90 b/base/modules/psb_tools_mod.f90 index 7e0f3af4..7f1c9803 100644 --- a/base/modules/psb_tools_mod.f90 +++ b/base/modules/psb_tools_mod.f90 @@ -280,7 +280,7 @@ Module psb_tools_mod use psb_descriptor_type integer, intent(in) :: m type(psb_desc_type), intent(in) :: desc_a - real(kind(1.d0)),intent(inout) :: x(:) + real(kind(1.d0)),intent(inout) :: x(:) integer, intent(in) :: irw(:) real(kind(1.d0)), intent(in) :: val(:) integer, intent(out) :: info @@ -461,27 +461,6 @@ Module psb_tools_mod end subroutine psb_zspasb end interface - -!!$ interface psb_spcnv -!!$ subroutine psb_dspcnv(a,b,desc_a,info) -!!$ use psb_descriptor_type -!!$ use psb_spmat_type -!!$ type(psb_dspmat_type), intent(in) :: a -!!$ type(psb_dspmat_type), intent(out) :: b -!!$ type(psb_desc_type), intent(in) :: desc_a -!!$ integer, intent(out) :: info -!!$ end subroutine psb_dspcnv -!!$ subroutine psb_zspcnv(a,b,desc_a,info) -!!$ use psb_descriptor_type -!!$ use psb_spmat_type -!!$ type(psb_zspmat_type), intent(in) :: a -!!$ type(psb_zspmat_type), intent(out) :: b -!!$ type(psb_desc_type), intent(in) :: desc_a -!!$ integer, intent(out) :: info -!!$ end subroutine psb_zspcnv -!!$ end interface - - interface psb_spfree module procedure psb_dsp_free, psb_zsp_free subroutine psb_dspfree(a, desc_a,info)