add deallocation, question on matrix memory

gismo · Apr 23, 2024 · 5168439 · 5168439
1 parent c09c55b
commit 5168439
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/examples/geometry_fexample.F90 b/examples/geometry_fexample.F90
@@ -83,7 +83,11 @@ subroutine show_basic_usage( g )
    do irow = 1, out_rows
       write(*,'(3a,10f10.3)') '  ',c_coor(irow),': ', (xyz(irow,icol), icol=1,out_cols)
    enddo
+
+   call gsMatrix_delete(uvm)
+   call gsMatrix_delete(xyzm)
    deallocate(uv)
+   ! TODO: deallocate memory allocated by gsMatrix_data?  Or is xyz1 pointing inside xyzm?
 
 end subroutine show_basic_usage