fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix spurious free

Browse Source
This commit is contained in:
sfilippone
2023-10-24 18:23:44 +02:00
parent a97f56d673
commit 975fc6265f
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/fileread/amg_cf_sample.f90
+1 -1
View File
@@ -586,7 +586,7 @@ program amg_cf_sample
call psb_gefree(b_col,desc_a,info)
call psb_gefree(x_col,desc_a,info)
call psb_gefree(r_col,desc_a,info)
call psb_gefree(ref_col,desc_a,info)
if (have_ref) call psb_gefree(ref_col,desc_a,info)
call psb_spfree(a, desc_a,info)
call prec%free(info)
call psb_cdfree(desc_a,info)
samples/advanced/fileread/amg_df_sample.f90
+1 -1
View File
@@ -586,7 +586,7 @@ program amg_df_sample
call psb_gefree(b_col,desc_a,info)
call psb_gefree(x_col,desc_a,info)
call psb_gefree(r_col,desc_a,info)
call psb_gefree(ref_col,desc_a,info)
if (have_ref) call psb_gefree(ref_col,desc_a,info)
call psb_spfree(a, desc_a,info)
call prec%free(info)
call psb_cdfree(desc_a,info)
samples/advanced/fileread/amg_sf_sample.f90
+1 -1
View File
@@ -586,7 +586,7 @@ program amg_sf_sample
call psb_gefree(b_col,desc_a,info)
call psb_gefree(x_col,desc_a,info)
call psb_gefree(r_col,desc_a,info)
call psb_gefree(ref_col,desc_a,info)
if (have_ref) call psb_gefree(ref_col,desc_a,info)
call psb_spfree(a, desc_a,info)
call prec%free(info)
call psb_cdfree(desc_a,info)
samples/advanced/fileread/amg_zf_sample.f90
+1 -1
View File
@@ -586,7 +586,7 @@ program amg_zf_sample
call psb_gefree(b_col,desc_a,info)
call psb_gefree(x_col,desc_a,info)
call psb_gefree(r_col,desc_a,info)
call psb_gefree(ref_col,desc_a,info)
if (have_ref) call psb_gefree(ref_col,desc_a,info)
call psb_spfree(a, desc_a,info)
call prec%free(info)
call psb_cdfree(desc_a,info)