Add discretization domain size

1 year ago · aa03a1cafd
parent f3123f1acc
commit aa03a1cafd
4 changed files with 4 additions and 0 deletions
--- a/samples/advanced/pdegen/amg_d_pde2d.F90
+++ b/samples/advanced/pdegen/amg_d_pde2d.F90
@ -551,6 +551,7 @@ program amg_d_pde2d
    write(psb_out_unit,'("Computed solution on ",i8," process(es)")')  np
    write(psb_out_unit,'("Number of threads                  : ",i12)') nth
    write(psb_out_unit,'("Total number of tasks              : ",i12)') nth*np
+    write(psb_out_unit,'("Discretization domain size         : ",i12)') idim
    write(psb_out_unit,'("Linear system size                 : ",i12)') system_size
    write(psb_out_unit,'("PDE Coefficients                   : ",a)') trim(pdecoeff)
    write(psb_out_unit,'("Krylov method                      : ",a)') trim(s_choice%kmethd)
--- a/samples/advanced/pdegen/amg_d_pde3d.F90
+++ b/samples/advanced/pdegen/amg_d_pde3d.F90
@ -555,6 +555,7 @@ program amg_d_pde3d
    write(psb_out_unit,'("Computed solution on ",i8," process(es)")')  np
    write(psb_out_unit,'("Number of threads                  : ",i12)') nth
    write(psb_out_unit,'("Total number of tasks              : ",i12)') nth*np
+    write(psb_out_unit,'("Discretization domain size         : ",i12)') idim
    write(psb_out_unit,'("Linear system size                 : ",i12)') system_size
    write(psb_out_unit,'("PDE Coefficients                   : ",a)') trim(pdecoeff)
    write(psb_out_unit,'("Krylov method                      : ",a)') trim(s_choice%kmethd)
--- a/samples/advanced/pdegen/amg_s_pde2d.F90
+++ b/samples/advanced/pdegen/amg_s_pde2d.F90
@ -551,6 +551,7 @@ program amg_s_pde2d
    write(psb_out_unit,'("Computed solution on ",i8," process(es)")')  np
    write(psb_out_unit,'("Number of threads                  : ",i12)') nth
    write(psb_out_unit,'("Total number of tasks              : ",i12)') nth*np
+    write(psb_out_unit,'("Discretization domain size         : ",i12)') idim
    write(psb_out_unit,'("Linear system size                 : ",i12)') system_size
    write(psb_out_unit,'("PDE Coefficients                   : ",a)') trim(pdecoeff)
    write(psb_out_unit,'("Krylov method                      : ",a)') trim(s_choice%kmethd)
--- a/samples/advanced/pdegen/amg_s_pde3d.F90
+++ b/samples/advanced/pdegen/amg_s_pde3d.F90
@ -555,6 +555,7 @@ program amg_s_pde3d
    write(psb_out_unit,'("Computed solution on ",i8," process(es)")')  np
    write(psb_out_unit,'("Number of threads                  : ",i12)') nth
    write(psb_out_unit,'("Total number of tasks              : ",i12)') nth*np
+    write(psb_out_unit,'("Discretization domain size         : ",i12)') idim
    write(psb_out_unit,'("Linear system size                 : ",i12)') system_size
    write(psb_out_unit,'("PDE Coefficients                   : ",a)') trim(pdecoeff)
    write(psb_out_unit,'("Krylov method                      : ",a)') trim(s_choice%kmethd)