From af8ae966284e9b50cc86aa15bc964472a594c8c0 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 26 Nov 2013 14:31:00 +0000 Subject: [PATCH] psblas3: 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.) --- base/modules/psb_c_base_mat_mod.f90 | 3 +-- base/modules/psb_d_base_mat_mod.f90 | 3 +-- base/modules/psb_s_base_mat_mod.f90 | 3 +-- base/modules/psb_z_base_mat_mod.f90 | 3 +-- 4 files changed, 4 insertions(+), 8 deletions(-) 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