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/modules/psb_c_base_mat_mod.f90
 base/modules/psb_d_base_mat_mod.f90
 base/modules/psb_s_base_mat_mod.f90
 base/modules/psb_z_base_mat_mod.f90

coo%transp should call set_sorted(.false.)
psblas-3.2.0
Salvatore Filippone 11 years ago
parent 118aa6795f
commit af8ae96628
4 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File

3
base/modules/psb_c_base_mat_mod.f90
Unescape Escape View File

@ -1821,7 +1821,7 @@ contains
call move_alloc(a%ja,a%ia) call move_alloc(a%ja,a%ia)
call move_alloc(itemp,a%ja) call move_alloc(itemp,a%ja)
call a%fix(info) call a%set_sorted(.false.)
return return
@ -1841,7 +1841,6 @@ contains
end subroutine c_coo_transc_1mat end subroutine c_coo_transc_1mat
end module psb_c_base_mat_mod end module psb_c_base_mat_mod

3
base/modules/psb_d_base_mat_mod.f90
Unescape Escape View File

@ -1821,7 +1821,7 @@ contains
call move_alloc(a%ja,a%ia) call move_alloc(a%ja,a%ia)
call move_alloc(itemp,a%ja) call move_alloc(itemp,a%ja)
call a%fix(info) call a%set_sorted(.false.)
return return
@ -1841,7 +1841,6 @@ contains
end subroutine d_coo_transc_1mat end subroutine d_coo_transc_1mat
end module psb_d_base_mat_mod end module psb_d_base_mat_mod

3
base/modules/psb_s_base_mat_mod.f90
Unescape Escape View File

@ -1821,7 +1821,7 @@ contains
call move_alloc(a%ja,a%ia) call move_alloc(a%ja,a%ia)
call move_alloc(itemp,a%ja) call move_alloc(itemp,a%ja)
call a%fix(info) call a%set_sorted(.false.)
return return
@ -1841,7 +1841,6 @@ contains
end subroutine s_coo_transc_1mat end subroutine s_coo_transc_1mat
end module psb_s_base_mat_mod end module psb_s_base_mat_mod

3
base/modules/psb_z_base_mat_mod.f90
Unescape Escape View File

@ -1821,7 +1821,7 @@ contains
call move_alloc(a%ja,a%ia) call move_alloc(a%ja,a%ia)
call move_alloc(itemp,a%ja) call move_alloc(itemp,a%ja)
call a%fix(info) call a%set_sorted(.false.)
return return
@ -1841,7 +1841,6 @@ contains
end subroutine z_coo_transc_1mat end subroutine z_coo_transc_1mat
end module psb_z_base_mat_mod end module psb_z_base_mat_mod

Write Preview
Loading…
Cancel
Save