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

Fix call to prec%descr

Browse Source
This commit is contained in:
Salvatore Filippone
2017-12-12 11:40:15 +00:00
parent 54d1478e21
commit 9fe63d8387
8 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/fileread/mld_cf_sample.f90
+1 -1
View File
@@ -516,8 +516,8 @@ program mld_cf_sample
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)
call prec%descr(iout=psb_out_unit)
if (iam == psb_root_) then
call prec%descr(info)
write(psb_out_unit,'("Matrix: ",a)')mtrx_file
write(psb_out_unit,'("Computed solution on ",i8," processors")')np
write(psb_out_unit,'("Krylov method : ",a)') trim(s_choice%kmethd)
tests/fileread/mld_df_sample.f90
+1 -1
View File
@@ -516,8 +516,8 @@ program mld_df_sample
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)
call prec%descr(iout=psb_out_unit)
if (iam == psb_root_) then
call prec%descr(info)
write(psb_out_unit,'("Matrix: ",a)')mtrx_file
write(psb_out_unit,'("Computed solution on ",i8," processors")')np
write(psb_out_unit,'("Krylov method : ",a)') trim(s_choice%kmethd)
tests/fileread/mld_sf_sample.f90
+1 -1
View File
@@ -516,8 +516,8 @@ program mld_sf_sample
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)
call prec%descr(iout=psb_out_unit)
if (iam == psb_root_) then
call prec%descr(info)
write(psb_out_unit,'("Matrix: ",a)')mtrx_file
write(psb_out_unit,'("Computed solution on ",i8," processors")')np
write(psb_out_unit,'("Krylov method : ",a)') trim(s_choice%kmethd)
tests/fileread/mld_zf_sample.f90
+1 -1
View File
@@ -516,8 +516,8 @@ program mld_zf_sample
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)
call prec%descr(iout=psb_out_unit)
if (iam == psb_root_) then
call prec%descr(info)
write(psb_out_unit,'("Matrix: ",a)')mtrx_file
write(psb_out_unit,'("Computed solution on ",i8," processors")')np
write(psb_out_unit,'("Krylov method : ",a)') trim(s_choice%kmethd)
tests/pdegen/mld_d_pde2d.f90
+1 -1
View File
@@ -730,8 +730,8 @@ program mld_d_pde2d
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)
call prec%descr(iout=psb_out_unit)
if (iam == psb_root_) then
call prec%descr(info)
write(psb_out_unit,'("Computed solution on ",i8," processors")') np
write(psb_out_unit,'("Krylov method : ",a)') trim(s_choice%kmethd)
write(psb_out_unit,'("Preconditioner : ",a)') trim(p_choice%descr)
tests/pdegen/mld_d_pde3d.f90
+1 -1
View File
@@ -784,8 +784,8 @@ program mld_d_pde3d
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)
call prec%descr(iout=psb_out_unit)
if (iam == psb_root_) then
call prec%descr(info)
write(psb_out_unit,'("Computed solution on ",i8," processors")') np
write(psb_out_unit,'("Krylov method : ",a)') trim(s_choice%kmethd)
write(psb_out_unit,'("Preconditioner : ",a)') trim(p_choice%descr)
tests/pdegen/mld_s_pde2d.f90
+1 -1
View File
@@ -730,8 +730,8 @@ program mld_s_pde2d
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)
call prec%descr(iout=psb_out_unit)
if (iam == psb_root_) then
call prec%descr(info)
write(psb_out_unit,'("Computed solution on ",i8," processors")') np
write(psb_out_unit,'("Krylov method : ",a)') trim(s_choice%kmethd)
write(psb_out_unit,'("Preconditioner : ",a)') trim(p_choice%descr)
tests/pdegen/mld_s_pde3d.f90
+1 -1
View File
@@ -784,8 +784,8 @@ program mld_s_pde3d
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)
call prec%descr(iout=psb_out_unit)
if (iam == psb_root_) then
call prec%descr(info)
write(psb_out_unit,'("Computed solution on ",i8," processors")') np
write(psb_out_unit,'("Krylov method : ",a)') trim(s_choice%kmethd)
write(psb_out_unit,'("Preconditioner : ",a)') trim(p_choice%descr)