psblas3:

base/modules/psb_base_mat_mod.f03
 base/modules/psb_d_base_mat_mod.f03
 base/modules/psb_linmap_mod.f90
 base/modules/psb_linmap_type_mod.f90
 base/modules/psb_serial_mod.f90
 base/modules/psb_spmat_type.f03
 base/serial/f03/psbn_d_coo_impl.f03
 base/serial/f03/psbn_d_csr_impl.f03
 prec/psb_dbjac_bld.f90
 prec/psb_dilu_fct.f90
 prec/psb_dprecbld.f90
 prec/psb_prec_mod.f90
 prec/psb_prec_type.f90
 test/fileread/df_sample.f90
 util/psb_metispart_mod.F90

1. Taken out psb_dspmat_type from definition modules.
2. Commented out compilation of all old serial stuff; 
3. Fixed (for the time being, but needs more exploration) CP_FROM and
   MV_FROM. 
4. BEWARE: new serial stuff is still incomplete.

util/psb_metispart_mod.F90

@@ -58,7 +58,11 @@ module psb_metispart_mod
        & getv_mtpart, free_part
   private 
   integer, allocatable, save :: graph_vect(:)
-  
+
+  interface build_mtpart
+    module procedure build_mtpart, d_mat_build_mtpart
+  end interface
+
 contains
   
   subroutine part_graph(global_indx,n,np,pv,nv)
@@ -130,6 +134,22 @@ contains
     end if
   end subroutine getv_mtpart
   
+  subroutine d_mat_build_mtpart(a,nparts)
+    use psb_base_mod
+    type(psb_d_sparse_mat), intent(in) :: a
+    integer       :: nparts
+    
+
+    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,nparts)
+    class default
+      write(0,*) 'Sorry, right now we only take CSR input!'
+      call psb_abort(ictxt)
+    end select
+
+  end subroutine d_mat_build_mtpart
+
 
   subroutine build_mtpart(n,fida,ia1,ia2,nparts)
     use psb_base_mod