fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
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().
psblas3-accel
Salvatore Filippone 10 years ago
parent c143117ae1
commit 95e8be9af8
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
base/serial/impl/psb_c_csr_impl.f90
Unescape Escape View File

@ -2761,7 +2761,7 @@ subroutine psb_c_cp_csr_to_coo(a,b,info)
end do end do
end do end do
call b%set_nzeros(a%get_nzeros()) call b%set_nzeros(a%get_nzeros())
call b%set_sorted() call b%set_sort_status(psb_row_major_)
call b%set_asb() call b%set_asb()
end subroutine psb_c_cp_csr_to_coo 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
end do end do
call a%free() call a%free()
call b%set_sorted() call b%set_sort_status(psb_row_major_)
call b%set_asb() call b%set_asb()
end subroutine psb_c_mv_csr_to_coo end subroutine psb_c_mv_csr_to_coo

4
base/serial/impl/psb_d_csr_impl.f90
Unescape Escape View File

@ -2761,7 +2761,7 @@ subroutine psb_d_cp_csr_to_coo(a,b,info)
end do end do
end do end do
call b%set_nzeros(a%get_nzeros()) call b%set_nzeros(a%get_nzeros())
call b%set_sorted() call b%set_sort_status(psb_row_major_)
call b%set_asb() call b%set_asb()
end subroutine psb_d_cp_csr_to_coo 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
end do end do
call a%free() call a%free()
call b%set_sorted() call b%set_sort_status(psb_row_major_)
call b%set_asb() call b%set_asb()
end subroutine psb_d_mv_csr_to_coo end subroutine psb_d_mv_csr_to_coo

4
base/serial/impl/psb_s_csr_impl.f90
Unescape Escape View File

@ -2761,7 +2761,7 @@ subroutine psb_s_cp_csr_to_coo(a,b,info)
end do end do
end do end do
call b%set_nzeros(a%get_nzeros()) call b%set_nzeros(a%get_nzeros())
call b%set_sorted() call b%set_sort_status(psb_row_major_)
call b%set_asb() call b%set_asb()
end subroutine psb_s_cp_csr_to_coo 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
end do end do
call a%free() call a%free()
call b%set_sorted() call b%set_sort_status(psb_row_major_)
call b%set_asb() call b%set_asb()
end subroutine psb_s_mv_csr_to_coo end subroutine psb_s_mv_csr_to_coo

4
base/serial/impl/psb_z_csr_impl.f90
Unescape Escape View File

@ -2761,7 +2761,7 @@ subroutine psb_z_cp_csr_to_coo(a,b,info)
end do end do
end do end do
call b%set_nzeros(a%get_nzeros()) call b%set_nzeros(a%get_nzeros())
call b%set_sorted() call b%set_sort_status(psb_row_major_)
call b%set_asb() call b%set_asb()
end subroutine psb_z_cp_csr_to_coo 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
end do end do
call a%free() call a%free()
call b%set_sorted() call b%set_sort_status(psb_row_major_)
call b%set_asb() call b%set_asb()
end subroutine psb_z_mv_csr_to_coo end subroutine psb_z_mv_csr_to_coo

Write Preview
Loading…
Cancel
Save