Changed output file.

18 years ago · 0617ba93e0
parent 3708c2e035
commit 0617ba93e0
1 changed files with 1 additions and 0 deletions
--- a/test/fileread/df_sample.f90
+++ b/test/fileread/df_sample.f90
@ -271,6 +271,7 @@ program df_sample
      write(20,*) 'error indicator (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)'
      do i=1,m_problem
        write(20,998) i,x_col_glob(i),r_col_glob(i),b_col_glob(i)
      enddo