From 8b2426e21752783c4861347ae424d0da0e6a1ebb Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 31 Jan 2008 14:32:30 +0000 Subject: [PATCH] psblas:test:fileread Changed convergence messages in sample codes. --- test/fileread/df_sample.f90 | 4 ++-- test/fileread/zf_sample.f90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/test/fileread/df_sample.f90 b/test/fileread/df_sample.f90 index 35ef20dd..3362aa37 100644 --- a/test/fileread/df_sample.f90 +++ b/test/fileread/df_sample.f90 @@ -233,7 +233,7 @@ program df_sample write(*,'("Matrix: ",a)')mtrx_file write(*,'("Computed solution on ",i8," processors")')np write(*,'("Iterations to convergence: ",i6)')iter - write(*,'("Error indicator on exit: ",f7.2)')err + write(*,'("Error estimate on exit: ",f7.2)')err write(*,'("Time to buil prec. : ",es10.4)')tprec write(*,'("Time to solve matrix : ",es10.4)')t2 write(*,'("Time per iteration : ",es10.4)')t2/(iter) @@ -257,7 +257,7 @@ program df_sample write(20,*) 'matrix: ',mtrx_file write(20,*) 'computed solution on ',np,' processors.' write(20,*) 'iterations to convergence: ',iter - write(20,*) 'error indicator (infinity norm) on exit:', & + write(20,*) 'error estimate (infinity norm) on exit:', & & ' ||r||/(||a||||x||+||b||) = ',err write(20,*) 'max residual = ',resmx, resmxp write(20,'(a8,4(2x,a20))') 'I','X(I)','R(I)','B(I)' diff --git a/test/fileread/zf_sample.f90 b/test/fileread/zf_sample.f90 index d53d8c13..c1c3ef61 100644 --- a/test/fileread/zf_sample.f90 +++ b/test/fileread/zf_sample.f90 @@ -232,7 +232,7 @@ program zf_sample write(*,'("Matrix: ",a)')mtrx_file write(*,'("Computed solution on ",i8," processors")')np write(*,'("Iterations to convergence: ",i6)')iter - write(*,'("Error indicator on exit: ",f7.2)')err + write(*,'("Error estimate on exit: ",f7.2)')err write(*,'("Time to buil prec. : ",es10.4)')tprec write(*,'("Time to solve matrix : ",es10.4)')t2 write(*,'("Time per iteration : ",es10.4)')t2/(iter) @@ -256,7 +256,7 @@ program zf_sample write(20,*) 'matrix: ',mtrx_file write(20,*) 'computed solution on ',np,' processors.' write(20,*) 'iterations to convergence: ',iter - write(20,*) 'error indicator (infinity norm) on exit:', & + write(20,*) 'error estimate (infinity norm) on exit:', & & ' ||r||/(||a||||x||+||b||) = ',err write(20,*) 'max residual = ',resmx, resmxp write(20,'(a8,4(2x,a20))') 'I','X(I)','R(I)','B(I)'