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

Fixed prec%descr call

Browse Source
This commit is contained in:
Salvatore Filippone
2017-12-06 09:34:36 +00:00
parent 55ec0f3da0
commit f1f3240f27
4 changed files with 4 additions and 4 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(info)
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(info)
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(info)
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(info)
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)