From 08db7aea4f0c7fc670844e2cea8fcc4473c8a158 Mon Sep 17 00:00:00 2001 From: "Vandenplas, Jeremie" Date: Fri, 17 Jul 2026 13:05:33 +0200 Subject: [PATCH] Fix set_coo: use set_coo instead of add_coo to increase size of COO --- src/modsparse_coo.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/modsparse_coo.f90 b/src/modsparse_coo.f90 index 35bec2a..7df870e 100644 --- a/src/modsparse_coo.f90 +++ b/src/modsparse_coo.f90 @@ -531,7 +531,7 @@ recursive module subroutine set_coo(sparse,row,col,val) !1. Copy matrix sptmp=coosparse(sparse%dim1,sparse%dim2,int(sparse%nel*1.5_real64, int64)) do i8=1_int64,sparse%nel - call sptmp%add(sparse%ij(1,i8),sparse%ij(2,i8),sparse%a(i8)) + call sptmp%set(sparse%ij(1,i8),sparse%ij(2,i8),sparse%a(i8)) enddo !2. reallocate matrix using move_alloc write(sparse%unlog,'(2(a,i0))')' Current | New size COO: ',sparse%nel,' | ',sptmp%nel