Fix bug in transpose not setting coo%sort_status

10 years ago · e922cc52b4
parent a292f638f4
commit e922cc52b4
5 changed files with 13 additions and 4 deletions
--- a/1
+++ b/1
@ -1,5 +1,6 @@
 Changelog. A lot less detailed than usual, at least for past
 history.
+2015/07/28: Fix bug in transpose.
 2015/03/20: Introduce some optimizations for conversions to/from.	
 2015/01/05: Fix silly bug in format conversion csr_from_coo.
 	
--- a/base/modules/psb_c_base_mat_mod.f90
+++ b/base/modules/psb_c_base_mat_mod.f90
@ -1873,6 +1873,7 @@ contains
    call a%set_nrows(izero)
    call a%set_ncols(izero)
    call a%set_nzeros(izero)
+    call a%set_sort_status(psb_unsorted_)
    
    return
    
@ -1904,8 +1905,9 @@ contains
    call move_alloc(a%ia,itemp)
    call move_alloc(a%ja,a%ia)
    call move_alloc(itemp,a%ja)
-    
+        
    call a%set_sorted(.false.)
+    call a%set_sort_status(psb_unsorted_)
    
    return
    
--- a/base/modules/psb_d_base_mat_mod.f90
+++ b/base/modules/psb_d_base_mat_mod.f90
@ -1873,6 +1873,7 @@ contains
    call a%set_nrows(izero)
    call a%set_ncols(izero)
    call a%set_nzeros(izero)
+    call a%set_sort_status(psb_unsorted_)
    
    return
    
@ -1904,8 +1905,9 @@ contains
    call move_alloc(a%ia,itemp)
    call move_alloc(a%ja,a%ia)
    call move_alloc(itemp,a%ja)
-    
+        
    call a%set_sorted(.false.)
+    call a%set_sort_status(psb_unsorted_)
    
    return
    
--- a/base/modules/psb_s_base_mat_mod.f90
+++ b/base/modules/psb_s_base_mat_mod.f90
@ -1873,6 +1873,7 @@ contains
    call a%set_nrows(izero)
    call a%set_ncols(izero)
    call a%set_nzeros(izero)
+    call a%set_sort_status(psb_unsorted_)
    
    return
    
@ -1904,8 +1905,9 @@ contains
    call move_alloc(a%ia,itemp)
    call move_alloc(a%ja,a%ia)
    call move_alloc(itemp,a%ja)
-    
+        
    call a%set_sorted(.false.)
+    call a%set_sort_status(psb_unsorted_)
    
    return
    
--- a/base/modules/psb_z_base_mat_mod.f90
+++ b/base/modules/psb_z_base_mat_mod.f90
@ -1873,6 +1873,7 @@ contains
    call a%set_nrows(izero)
    call a%set_ncols(izero)
    call a%set_nzeros(izero)
+    call a%set_sort_status(psb_unsorted_)
    
    return
    
@ -1904,8 +1905,9 @@ contains
    call move_alloc(a%ia,itemp)
    call move_alloc(a%ja,a%ia)
    call move_alloc(itemp,a%ja)
-    
+        
    call a%set_sorted(.false.)
+    call a%set_sort_status(psb_unsorted_)
    
    return