diff --git a/base/modules/psb_c_base_mat_mod.f90 b/base/modules/psb_c_base_mat_mod.f90 index d02e6096..e55340c6 100644 --- a/base/modules/psb_c_base_mat_mod.f90 +++ b/base/modules/psb_c_base_mat_mod.f90 @@ -1821,7 +1821,7 @@ contains call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - call a%fix(info) + call a%set_sorted(.false.) return @@ -1841,7 +1841,6 @@ contains end subroutine c_coo_transc_1mat - end module psb_c_base_mat_mod diff --git a/base/modules/psb_d_base_mat_mod.f90 b/base/modules/psb_d_base_mat_mod.f90 index 7382eb44..e424d112 100644 --- a/base/modules/psb_d_base_mat_mod.f90 +++ b/base/modules/psb_d_base_mat_mod.f90 @@ -1821,7 +1821,7 @@ contains call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - call a%fix(info) + call a%set_sorted(.false.) return @@ -1841,7 +1841,6 @@ contains end subroutine d_coo_transc_1mat - end module psb_d_base_mat_mod diff --git a/base/modules/psb_s_base_mat_mod.f90 b/base/modules/psb_s_base_mat_mod.f90 index dd173201..a2bd2ccb 100644 --- a/base/modules/psb_s_base_mat_mod.f90 +++ b/base/modules/psb_s_base_mat_mod.f90 @@ -1821,7 +1821,7 @@ contains call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - call a%fix(info) + call a%set_sorted(.false.) return @@ -1841,7 +1841,6 @@ contains end subroutine s_coo_transc_1mat - end module psb_s_base_mat_mod diff --git a/base/modules/psb_z_base_mat_mod.f90 b/base/modules/psb_z_base_mat_mod.f90 index 779f45bd..66108a4b 100644 --- a/base/modules/psb_z_base_mat_mod.f90 +++ b/base/modules/psb_z_base_mat_mod.f90 @@ -1821,7 +1821,7 @@ contains call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - call a%fix(info) + call a%set_sorted(.false.) return @@ -1841,7 +1841,6 @@ contains end subroutine z_coo_transc_1mat - end module psb_z_base_mat_mod