psblas3:

opt/psb_d_rsb_mat_mod.F03

Missing copy of base components.

opt/psb_d_rsb_mat_mod.F03

@@ -480,7 +480,8 @@ subroutine psb_d_cp_rsb_from_coo(a,b,info)
     PSBRSB_DEBUG('')
 
    info = psb_success_
-   ! This is to have fix_coo called behind the scenes
+   call a%psb_d_base_sparse_mat%cp_from(b%psb_d_base_sparse_mat)
+
    if(b%is_sorted()) flags=flags+c_srt_flags 
    !write (*,*) b%val
    ! FIXME: and if sorted ? the process could be speeded up !
@@ -513,6 +514,7 @@ subroutine psb_d_cp_rsb_from_fmt(a,b,info)
     call a%cp_from_coo(b,info)
 
   type is (psb_d_csr_sparse_mat) 
+    call a%psb_d_base_sparse_mat%cp_from(b%psb_d_base_sparse_mat)
     a%rsbmptr=rsb_allocate_rsb_sparse_matrix_from_csr_const&
         &(b%val,b%irp,b%ja,b%get_nzeros(),c_d_typecode,b%get_nrows(),b%get_ncols(),1,1,c_def_flags+c_srt_flags,info)
     info=d_rsb_to_psb_info(info)