Cosmetic change in sample source code

3 years ago · 49777a379b
parent 5768238f66
commit 49777a379b
2 changed files with 2 additions and 2 deletions
--- a/samples/advanced/pdegen/amg_d_pde3d.f90
+++ b/samples/advanced/pdegen/amg_d_pde3d.f90
@ -630,6 +630,7 @@ contains
    call psb_bcast(ctxt,prec%mlcycle)
    call psb_bcast(ctxt,prec%outer_sweeps)
    call psb_bcast(ctxt,prec%maxlevs)
+    call psb_bcast(ctxt,prec%csizepp)

    call psb_bcast(ctxt,prec%aggr_prol)
    call psb_bcast(ctxt,prec%par_aggr_alg)
@ -645,7 +646,6 @@ contains
    end if
    call psb_bcast(ctxt,prec%athres)

-    call psb_bcast(ctxt,prec%csizepp)
    call psb_bcast(ctxt,prec%cmat)
    call psb_bcast(ctxt,prec%csolve)
    call psb_bcast(ctxt,prec%csbsolve)
--- a/samples/advanced/pdegen/amg_s_pde3d.f90
+++ b/samples/advanced/pdegen/amg_s_pde3d.f90
@ -630,6 +630,7 @@ contains
    call psb_bcast(ctxt,prec%mlcycle)
    call psb_bcast(ctxt,prec%outer_sweeps)
    call psb_bcast(ctxt,prec%maxlevs)
+    call psb_bcast(ctxt,prec%csizepp)

    call psb_bcast(ctxt,prec%aggr_prol)
    call psb_bcast(ctxt,prec%par_aggr_alg)
@ -645,7 +646,6 @@ contains
    end if
    call psb_bcast(ctxt,prec%athres)

-    call psb_bcast(ctxt,prec%csizepp)
    call psb_bcast(ctxt,prec%cmat)
    call psb_bcast(ctxt,prec%csolve)
    call psb_bcast(ctxt,prec%csbsolve)