fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 03:12:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
Reworked CSR, take 3. But still waiting for the second NAG bugfix.
This commit is contained in:
Salvatore Filippone
2009-08-28 11:36:50 +00:00
parent ef68641888
commit 7d8a6bd486
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/newserial/psbn_d_csr_impl.f03
+1 -1
View File
@@ -937,7 +937,7 @@ subroutine d_csr_csins_impl(nz,val,ia,ja,a,imin,imax,jmin,jmax,info,gtl)
use psb_realloc_mod
use psbn_d_csr_mat_mod, psb_protect_name => d_csr_csins_impl
class(psbn_d_coo_sparse_mat), intent(inout) :: a
class(psbn_d_csr_sparse_mat), intent(inout) :: a
real(psb_dpk_), intent(in) :: val(:)
integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax
integer, intent(out) :: info
base/newserial/psbn_d_csr_mat_mod.f03
+3 -1
View File
@@ -30,6 +30,7 @@ module psbn_d_csr_mat_mod
interface
subroutine d_csr_to_coo_impl(a,b,info)
use psb_const_mod
use psbn_d_base_mat_mod
import psbn_d_csr_sparse_mat
class(psbn_d_csr_sparse_mat), intent(in) :: a
class(psbn_d_coo_sparse_mat), intent(out) :: b
@@ -40,6 +41,7 @@ module psbn_d_csr_mat_mod
interface
subroutine d_csr_from_coo_impl(a,b,info)
use psb_const_mod
use psbn_d_base_mat_mod
import psbn_d_csr_sparse_mat
class(psbn_d_csr_sparse_mat), intent(inout) :: a
class(psbn_d_coo_sparse_mat), intent(in) :: b
@@ -503,9 +505,9 @@ contains
if (info == 0) call psb_realloc(nz,a%ja,info)
if (info == 0) call psb_realloc(nz,a%val,info)
if (info == 0) then
a%irp=0
call a%set_nrows(m)
call a%set_ncols(n)
call a%set_nzeros(0)
call a%set_bld()
call a%set_triangle(.false.)
end if