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

Improve diagnostic printout in samples

Browse Source
This commit is contained in:
sfilippone
2025-05-26 12:00:49 +02:00
parent 22b37fa6d3
commit 2f4c9dd579
4 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/pdegen/amg_d_pde2d.F90
+5 -5
View File
@@ -568,11 +568,11 @@ program amg_d_pde2d
write(psb_out_unit,'("Total time : ",es12.5)') tslv+tprec+thier
write(psb_out_unit,'("Residual 2-norm : ",es12.5)') resmx
write(psb_out_unit,'("Residual inf-norm : ",es12.5)') resmxp
write(psb_out_unit,'("Total memory occupation for X : ",i12)') vecsize
write(psb_out_unit,'("Total memory occupation for A : ",i12)') amatsize
write(psb_out_unit,'("Total memory occupation for DESC_A : ",i12)') descsize
write(psb_out_unit,'("Total memory occupation for PREC : ",i12)') precsize
write(psb_out_unit,'("Total memory occupation : ",i12)') &
write(psb_out_unit,'("Total memory occupation for X : ",i16)') vecsize
write(psb_out_unit,'("Total memory occupation for A : ",i16)') amatsize
write(psb_out_unit,'("Total memory occupation for DESC_A : ",i16)') descsize
write(psb_out_unit,'("Total memory occupation for PREC : ",i16)') precsize
write(psb_out_unit,'("Total memory occupation : ",i16)') &
& amatsize + descsize+precsize+2*vecsize
write(psb_out_unit,'("Storage format for A : ",a )') a%get_fmt()
write(psb_out_unit,'("Storage format for DESC_A : ",a )') desc_a%get_fmt()
samples/advanced/pdegen/amg_d_pde3d.F90
+5 -5
View File
@@ -572,11 +572,11 @@ program amg_d_pde3d
write(psb_out_unit,'("Total time : ",es12.5)') tslv+tprec+thier
write(psb_out_unit,'("Residual 2-norm : ",es12.5)') resmx
write(psb_out_unit,'("Residual inf-norm : ",es12.5)') resmxp
write(psb_out_unit,'("Total memory occupation for X : ",i12)') vecsize
write(psb_out_unit,'("Total memory occupation for A : ",i12)') amatsize
write(psb_out_unit,'("Total memory occupation for DESC_A : ",i12)') descsize
write(psb_out_unit,'("Total memory occupation for PREC : ",i12)') precsize
write(psb_out_unit,'("Total memory occupation : ",i12)') &
write(psb_out_unit,'("Total memory occupation for X : ",i16)') vecsize
write(psb_out_unit,'("Total memory occupation for A : ",i16)') amatsize
write(psb_out_unit,'("Total memory occupation for DESC_A : ",i16)') descsize
write(psb_out_unit,'("Total memory occupation for PREC : ",i16)') precsize
write(psb_out_unit,'("Total memory occupation : ",i16)') &
& amatsize + descsize+precsize+2*vecsize
write(psb_out_unit,'("Storage format for A : ",a )') a%get_fmt()
write(psb_out_unit,'("Storage format for DESC_A : ",a )') desc_a%get_fmt()
samples/advanced/pdegen/amg_s_pde2d.F90
+5 -5
View File
@@ -568,11 +568,11 @@ program amg_s_pde2d
write(psb_out_unit,'("Total time : ",es12.5)') tslv+tprec+thier
write(psb_out_unit,'("Residual 2-norm : ",es12.5)') resmx
write(psb_out_unit,'("Residual inf-norm : ",es12.5)') resmxp
write(psb_out_unit,'("Total memory occupation for X : ",i12)') vecsize
write(psb_out_unit,'("Total memory occupation for A : ",i12)') amatsize
write(psb_out_unit,'("Total memory occupation for DESC_A : ",i12)') descsize
write(psb_out_unit,'("Total memory occupation for PREC : ",i12)') precsize
write(psb_out_unit,'("Total memory occupation : ",i12)') &
write(psb_out_unit,'("Total memory occupation for X : ",i16)') vecsize
write(psb_out_unit,'("Total memory occupation for A : ",i16)') amatsize
write(psb_out_unit,'("Total memory occupation for DESC_A : ",i16)') descsize
write(psb_out_unit,'("Total memory occupation for PREC : ",i16)') precsize
write(psb_out_unit,'("Total memory occupation : ",i16)') &
& amatsize + descsize+precsize+2*vecsize
write(psb_out_unit,'("Storage format for A : ",a )') a%get_fmt()
write(psb_out_unit,'("Storage format for DESC_A : ",a )') desc_a%get_fmt()
samples/advanced/pdegen/amg_s_pde3d.F90
+5 -5
View File
@@ -572,11 +572,11 @@ program amg_s_pde3d
write(psb_out_unit,'("Total time : ",es12.5)') tslv+tprec+thier
write(psb_out_unit,'("Residual 2-norm : ",es12.5)') resmx
write(psb_out_unit,'("Residual inf-norm : ",es12.5)') resmxp
write(psb_out_unit,'("Total memory occupation for X : ",i12)') vecsize
write(psb_out_unit,'("Total memory occupation for A : ",i12)') amatsize
write(psb_out_unit,'("Total memory occupation for DESC_A : ",i12)') descsize
write(psb_out_unit,'("Total memory occupation for PREC : ",i12)') precsize
write(psb_out_unit,'("Total memory occupation : ",i12)') &
write(psb_out_unit,'("Total memory occupation for X : ",i16)') vecsize
write(psb_out_unit,'("Total memory occupation for A : ",i16)') amatsize
write(psb_out_unit,'("Total memory occupation for DESC_A : ",i16)') descsize
write(psb_out_unit,'("Total memory occupation for PREC : ",i16)') precsize
write(psb_out_unit,'("Total memory occupation : ",i16)') &
& amatsize + descsize+precsize+2*vecsize
write(psb_out_unit,'("Storage format for A : ",a )') a%get_fmt()
write(psb_out_unit,'("Storage format for DESC_A : ",a )') desc_a%get_fmt()