fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-13 01:19:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2007-09-21 08:48:08 +00:00
parent 031c0a6007
commit 3bf7f8a8f0
1 changed files with 1 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_tools_mod.f90
+1 -22
View File
@@ -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)