psblas3:

Changelog
 base/modules/psb_base_mat_mod.f03
 base/modules/psb_base_mod.f90
 base/modules/psb_d_base_mat_mod.f03
 base/modules/psb_d_csr_mat_mod.f03
 base/modules/psb_inter_desc_mod.f90
 base/modules/psb_inter_desc_type.f90
 base/modules/psb_linmap_mod.f90
 base/modules/psb_linmap_type_mod.f90
 base/modules/psb_mat_mod.f03
 base/modules/psb_spmat_type.f03
 base/modules/psb_tools_mod.f90
 base/psblas/psb_dnrmi.f90
 base/psblas/psb_dspmm.f90
 base/psblas/psb_dspsm.f90
 base/serial/Makefile
 base/serial/coo/Makefile
 base/serial/csr/Makefile
 base/serial/dp/Makefile
 base/serial/f03/psbn_d_coo_impl.f03
 base/serial/f03/psbn_d_csr_impl.f03
 base/serial/f77/Makefile
 base/serial/jad/Makefile
 base/serial/psb_getrow_mod.f90
 base/serial/psb_regen_mod.f90
 base/serial/psb_update_mod.f90
 base/tools/psb_dcdbldext.F90
 base/tools/psb_dspalloc.f90
 base/tools/psb_dspasb.f90
 base/tools/psb_dspfree.f90
 base/tools/psb_dsphalo.F90
 base/tools/psb_dspins.f90
 base/tools/psb_dsprn.f90
 base/tools/psb_linmap.f90
 krylov/psb_dbicg.f90
 krylov/psb_dcg.F90
 krylov/psb_dcgs.f90
 krylov/psb_dcgstab.F90
 krylov/psb_dcgstabl.f90
 krylov/psb_drgmres.f90
 krylov/psb_krylov_mod.f90
 prec/psb_dbjac_aply.f90
 prec/psb_dbjac_bld.f90
 prec/psb_ddiagsc_bld.f90
 prec/psb_dilu_fct.f90
 prec/psb_dprecbld.f90
 prec/psb_prec_mod.f90
 test/fileread/df_sample.f90
 test/fileread/runs/dfs.inp
 test/pargen/ppde.f90
 util/psb_hbio_mod.f90
 util/psb_mat_dist_mod.f90
 util/psb_mmio_mod.f90

Fixed toolchain: now fileread works.

test/fileread/df_sample.f90

@@ -41,7 +41,7 @@ program df_sample
   character(len=40) :: kmethd, ptype, mtrx_file, rhs_file
 
   ! sparse matrices
-  type(psb_dspmat_type) :: a, aux_a
+  type(psb_d_sparse_mat) :: a, aux_a
 
   ! preconditioner data
   type(psb_dprec_type)  :: prec
@@ -129,7 +129,7 @@ program df_sample
       call psb_abort(ictxt)
     end if
     
-    m_problem = aux_a%m
+    m_problem = aux_a%get_nrows()
     call psb_bcast(ictxt,m_problem)
     
     ! At this point aux_b may still be unallocated
@@ -182,7 +182,13 @@ program df_sample
       write(*,'("Partition type: graph")')
       write(*,'(" ")')
       !      write(0,'("Build type: graph")')
-      call build_mtpart(aux_a%m,aux_a%fida,aux_a%ia1,aux_a%ia2,np)
+      select type (aa=>a%a) 
+      type is (psb_d_csr_sparse_mat)
+        call build_mtpart(aa%get_nrows(),aa%get_fmt(),aa%ja,aa%irp,np)
+      class default
+        write(0,*) 'Should never get here!' 
+        call psb_abort(ictxt)
+      end select
     endif
     call psb_barrier(ictxt)
     call distr_mtpart(psb_root_,ictxt)

test/fileread/runs/dfs.inp

@@ -1,11 +1,11 @@
 11                  Number of inputs
-sherman3.mtx        This (and others) from: http://math.nist.gov/MatrixMarket/  or 
-sherman3_rhs1.mtx                     http://www.cise.ufl.edu/research/sparse/matrices/index.html
+thm200x120.mtx      sherman3.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
 BJAC                Preconditioner NONE  DIAG  BJAC 
 CSR                 Storage format CSR COO JAD 
-0                   IPART: Partition method 0: BLK   2: graph (with Metis) 
+2                   IPART: Partition method 0: BLK   2: graph (with Metis) 
 2                   ISTOPC
 01000               ITMAX
 01                  ITRACE

test/pargen/ppde.f90

@@ -65,7 +65,6 @@ program ppde
   use psb_base_mod
   use psb_prec_mod
   use psb_krylov_mod
-  use psb_d_mat_mod
   implicit none
 
   ! input parameters