psblas3:

Fixed message in solution dump on file.

test/fileread/cf_sample.f90

@@ -282,7 +282,8 @@ program cf_sample
       write(20,*) 'iterations to convergence: ',iter
       write(20,*) 'error estimate (infinity norm) on exit:', &
            & ' ||r||/(||a||||x||+||b||) = ',err
-      write(20,*) 'max residual = ',resmx, resmxp
+      write(20,'("Residual norm 2          : ",es12.5)')resmx
+      write(20,'("Residual norm inf        : ",es12.5)')resmxp
       write(20,'(a8,4(2x,a20))') 'I','X(I)','R(I)','B(I)'
       do i=1,m_problem
         write(20,998) i,x_col_glob(i),r_col_glob(i),b_col_glob(i)

test/fileread/df_sample.f90

@@ -287,7 +287,8 @@ program df_sample
       write(20,*) 'iterations to convergence: ',iter
       write(20,*) 'error estimate (infinity norm) on exit:', &
            & ' ||r||/(||a||||x||+||b||) = ',err
-      write(20,*) 'max residual = ',resmx, resmxp
+      write(20,'("Residual norm 2          : ",es12.5)')resmx
+      write(20,'("Residual norm inf        : ",es12.5)')resmxp
       write(20,'(a8,4(2x,a20))') 'I','X(I)','R(I)','B(I)'
       do i=1,m_problem
         write(20,998) i,x_col_glob(i),r_col_glob(i),b_col_glob(i)

test/fileread/runs/cfs.inp

@@ -1,5 +1,5 @@
 11                  Number of inputs
-waveguide3D.mtx         This (and others) from: http://math.nist.gov/MatrixMarket/  or 
+young1c.mtx         This (and others) from: http://math.nist.gov/MatrixMarket/  or 
 NONE                     http://www.cise.ufl.edu/research/sparse/matrices/index.html
 MM                  File format: MM: Matrix Market  HB: Harwell-Boeing.
 BICGSTAB            Iterative method: BiCGSTAB CGS RGMRES BiCGSTABL BICG CG

test/fileread/sf_sample.f90

@@ -284,7 +284,8 @@ program sf_sample
       write(20,*) 'iterations to convergence: ',iter
       write(20,*) 'error estimate (infinity norm) on exit:', &
            & ' ||r||/(||a||||x||+||b||) = ',err
-      write(20,*) 'max residual = ',resmx, resmxp
+      write(20,'("Residual norm 2          : ",es12.5)')resmx
+      write(20,'("Residual norm inf        : ",es12.5)')resmxp
       write(20,'(a8,4(2x,a20))') 'I','X(I)','R(I)','B(I)'
       do i=1,m_problem
         write(20,998) i,x_col_glob(i),r_col_glob(i),b_col_glob(i)

test/fileread/zf_sample.f90

@@ -282,7 +282,8 @@ program zf_sample
       write(20,*) 'iterations to convergence: ',iter
       write(20,*) 'error estimate (infinity norm) on exit:', &
            & ' ||r||/(||a||||x||+||b||) = ',err
-      write(20,*) 'max residual = ',resmx, resmxp
+      write(20,'("Residual norm 2          : ",es12.5)')resmx
+      write(20,'("Residual norm inf        : ",es12.5)')resmxp
       write(20,'(a8,4(2x,a20))') 'I','X(I)','R(I)','B(I)'
       do i=1,m_problem
         write(20,998) i,x_col_glob(i),r_col_glob(i),b_col_glob(i)