Changed output file.

2026-10-17 19:32:08 +00:00 · 2007-04-05 11:49:18 +00:00
parent 3708c2e035
commit 0617ba93e0
1 changed files with 1 additions and 0 deletions
@@ -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