|
|
@ -463,7 +463,7 @@ program amg_d_pde2d
|
|
|
|
call psb_sum(ctxt,precsize)
|
|
|
|
call psb_sum(ctxt,precsize)
|
|
|
|
call prec%descr(info,iout=psb_out_unit)
|
|
|
|
call prec%descr(info,iout=psb_out_unit)
|
|
|
|
if (iam == psb_root_) then
|
|
|
|
if (iam == psb_root_) then
|
|
|
|
write(psb_out_unit,'("Computed solution on ",i8," processors")') np
|
|
|
|
write(psb_out_unit,'("Computed solution on ",i8," process(es)")') np
|
|
|
|
write(psb_out_unit,'("Number of threads : ",i12)') nth
|
|
|
|
write(psb_out_unit,'("Number of threads : ",i12)') nth
|
|
|
|
write(psb_out_unit,'("Total number of tasks : ",i12)') nth*np
|
|
|
|
write(psb_out_unit,'("Total number of tasks : ",i12)') nth*np
|
|
|
|
write(psb_out_unit,'("Linear system size : ",i12)') system_size
|
|
|
|
write(psb_out_unit,'("Linear system size : ",i12)') system_size
|
|
|
|