fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix spurious free

Browse Source
jac_solver
sfilippone 1 year ago
parent a97f56d673
commit 975fc6265f
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
samples/advanced/fileread/amg_cf_sample.f90
Unescape Escape View File

@ -586,7 +586,7 @@ program amg_cf_sample
call psb_gefree(b_col,desc_a,info) call psb_gefree(b_col,desc_a,info)
call psb_gefree(x_col,desc_a,info) call psb_gefree(x_col,desc_a,info)
call psb_gefree(r_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 psb_spfree(a, desc_a,info)
call prec%free(info) call prec%free(info)
call psb_cdfree(desc_a,info) call psb_cdfree(desc_a,info)

2
samples/advanced/fileread/amg_df_sample.f90
Unescape Escape View File

@ -586,7 +586,7 @@ program amg_df_sample
call psb_gefree(b_col,desc_a,info) call psb_gefree(b_col,desc_a,info)
call psb_gefree(x_col,desc_a,info) call psb_gefree(x_col,desc_a,info)
call psb_gefree(r_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 psb_spfree(a, desc_a,info)
call prec%free(info) call prec%free(info)
call psb_cdfree(desc_a,info) call psb_cdfree(desc_a,info)

2
samples/advanced/fileread/amg_sf_sample.f90
Unescape Escape View File

@ -586,7 +586,7 @@ program amg_sf_sample
call psb_gefree(b_col,desc_a,info) call psb_gefree(b_col,desc_a,info)
call psb_gefree(x_col,desc_a,info) call psb_gefree(x_col,desc_a,info)
call psb_gefree(r_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 psb_spfree(a, desc_a,info)
call prec%free(info) call prec%free(info)
call psb_cdfree(desc_a,info) call psb_cdfree(desc_a,info)

2
samples/advanced/fileread/amg_zf_sample.f90
Unescape Escape View File

@ -586,7 +586,7 @@ program amg_zf_sample
call psb_gefree(b_col,desc_a,info) call psb_gefree(b_col,desc_a,info)
call psb_gefree(x_col,desc_a,info) call psb_gefree(x_col,desc_a,info)
call psb_gefree(r_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 psb_spfree(a, desc_a,info)
call prec%free(info) call prec%free(info)
call psb_cdfree(desc_a,info) call psb_cdfree(desc_a,info)

Write Preview
Loading…
Cancel
Save