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

psblas3:

Browse Source 
base/serial/impl/psb_c_csr_impl.f90
 base/serial/impl/psb_d_csr_impl.f90
 base/serial/impl/psb_s_csr_impl.f90
 base/serial/impl/psb_z_csr_impl.f90

Fix set_Sort_status in to_coo().
This commit is contained in:
Salvatore Filippone
2015-04-04 15:42:08 +00:00
parent c143117ae1
commit 95e8be9af8
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csr_impl.f90
+2 -2
View File
@@ -2761,7 +2761,7 @@ subroutine psb_c_cp_csr_to_coo(a,b,info)
end do
end do
call b%set_nzeros(a%get_nzeros())
call b%set_sorted()
call b%set_sort_status(psb_row_major_)
call b%set_asb()
end subroutine psb_c_cp_csr_to_coo
@@ -2804,7 +2804,7 @@ subroutine psb_c_mv_csr_to_coo(a,b,info)
end do
end do
call a%free()
call b%set_sorted()
call b%set_sort_status(psb_row_major_)
call b%set_asb()
end subroutine psb_c_mv_csr_to_coo
base/serial/impl/psb_d_csr_impl.f90
+2 -2
View File
@@ -2761,7 +2761,7 @@ subroutine psb_d_cp_csr_to_coo(a,b,info)
end do
end do
call b%set_nzeros(a%get_nzeros())
call b%set_sorted()
call b%set_sort_status(psb_row_major_)
call b%set_asb()
end subroutine psb_d_cp_csr_to_coo
@@ -2804,7 +2804,7 @@ subroutine psb_d_mv_csr_to_coo(a,b,info)
end do
end do
call a%free()
call b%set_sorted()
call b%set_sort_status(psb_row_major_)
call b%set_asb()
end subroutine psb_d_mv_csr_to_coo
base/serial/impl/psb_s_csr_impl.f90
+2 -2
View File
@@ -2761,7 +2761,7 @@ subroutine psb_s_cp_csr_to_coo(a,b,info)
end do
end do
call b%set_nzeros(a%get_nzeros())
call b%set_sorted()
call b%set_sort_status(psb_row_major_)
call b%set_asb()
end subroutine psb_s_cp_csr_to_coo
@@ -2804,7 +2804,7 @@ subroutine psb_s_mv_csr_to_coo(a,b,info)
end do
end do
call a%free()
call b%set_sorted()
call b%set_sort_status(psb_row_major_)
call b%set_asb()
end subroutine psb_s_mv_csr_to_coo
base/serial/impl/psb_z_csr_impl.f90
+2 -2
View File
@@ -2761,7 +2761,7 @@ subroutine psb_z_cp_csr_to_coo(a,b,info)
end do
end do
call b%set_nzeros(a%get_nzeros())
call b%set_sorted()
call b%set_sort_status(psb_row_major_)
call b%set_asb()
end subroutine psb_z_cp_csr_to_coo
@@ -2804,7 +2804,7 @@ subroutine psb_z_mv_csr_to_coo(a,b,info)
end do
end do
call a%free()
call b%set_sorted()
call b%set_sort_status(psb_row_major_)
call b%set_asb()
end subroutine psb_z_mv_csr_to_coo