psblas3:## base/modules/psb_c_base_mat_mod.f03

base/modules/psb_d_mat_mod.f03
 base/modules/psb_linmap_type_mod.f90
 base/modules/psb_serial_mod.f90
 base/serial/Makefile
 base/serial/f03/psb_c_coo_impl.f03
 base/serial/f03/psb_c_csc_impl.f03
 base/serial/f03/psb_c_csr_impl.f03
 base/serial/f03/psb_d_coo_impl.f03
 base/serial/f03/psb_d_csc_impl.f03
 base/serial/f03/psb_d_csr_impl.f03
 base/serial/f03/psb_d_mat_impl.F03
 base/serial/f03/psb_s_coo_impl.f03
 base/serial/f03/psb_s_csc_impl.f03
 base/serial/f03/psb_s_csr_impl.f03
 base/serial/f03/psb_z_coo_impl.f03
 base/serial/f03/psb_z_csc_impl.f03
 base/serial/f03/psb_z_csr_impl.f03
 opt
 opt/Makefile
 opt/psb_d_ell_impl.f03
 opt/psb_d_ell_mat_mod.f03
 prec/psb_d_base_prec_mod.f03
 prec/psb_d_bjacprec.f03
 prec/psb_d_prec_type.f03
 test/fileread/df_sample.f90
 test/fileread/runs/dfs.inp
 test/serial/d_matgen.f03
 test/serial/psb_d_rsb_mat_mod.F03

1. Fixed get_diag for various cases.
2. OPT subdir for experimental material; right now ELL.

test/fileread/df_sample.f90

@@ -272,6 +272,7 @@ program df_sample
     write(psb_out_unit,'("Total memory occupation for DESC_A: ",i12)')descsize
     write(psb_out_unit,'("Total memory occupation for PREC:   ",i12)')precsize
   end if
+  call psb_precdump(prec,info,prefix=mtrx_file//'_')
 
   allocate(x_col_glob(m_problem),r_col_glob(m_problem),stat=ierr)
   if (ierr /= 0) then 

test/fileread/runs/dfs.inp

@@ -1,5 +1,5 @@
 11                  Number of inputs
-sherman3.mtx        This (and others) from: http://math.nist.gov/MatrixMarket/  or 
+thm50x30.mtx        This (and others) from: http://math.nist.gov/MatrixMarket/  or 
 NONE                sherman3_rhs1.mtx                     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/serial/d_matgen.f03

@@ -427,17 +427,17 @@ contains
    !write (*,*) acxx%val
    !write (*,*) diag
     
-    t1 = psb_wtime()
-    call a_n%cscnv(info,mold=acsr)
-
-    if(info /= psb_success_) then
-      info=psb_err_from_subroutine_
-      ch_err='asb rout.'
-      call psb_errpush(info,name,a_err=ch_err)
-      goto 9999
-    end if
-    tmov = psb_wtime()-t1
-!!$    call a_n%print(21)
+!!$    t1 = psb_wtime()
+!!$    call a_n%cscnv(info,mold=acsr)
+!!$
+!!$    if(info /= psb_success_) then
+!!$      info=psb_err_from_subroutine_
+!!$      ch_err='asb rout.'
+!!$      call psb_errpush(info,name,a_err=ch_err)
+!!$      goto 9999
+!!$    end if
+!!$    tmov = psb_wtime()-t1
+! !$    call a_n%print(21)
     anorm = a_n%csnmi()
     write(psb_err_unit,*) 'Nrm infinity ',anorm
 

test/serial/psb_d_rsb_mat_mod.F03

@@ -11,7 +11,7 @@ module psb_d_rsb_mat_mod
   use psb_d_base_mat_mod
   use rsb_mod
 #ifdef HAVE_LIBRSB
-    use iso_c_binding  
+  use iso_c_binding  
 #endif
 #if 1
 #define PSBRSB_DEBUG(MSG) write(*,*) __FILE__,':',__LINE__,':',MSG
@@ -26,7 +26,7 @@ module psb_d_rsb_mat_mod
   type, extends(psb_d_base_sparse_mat) :: psb_d_rsb_sparse_mat
 #ifdef HAVE_LIBRSB
     type(c_ptr) :: rsbmptr
-    contains 
+  contains 
     procedure, pass(a) :: get_size     => d_rsb_get_size
     procedure, pass(a) :: get_nzeros   => d_rsb_get_nzeros
     procedure, pass(a) :: get_ncols   => d_rsb_get_ncols