psblas3:

added new cscnv method to D_LINMAP for testing purposes. 
Should be made to work elsewhere

base/modules/psb_d_linmap_mod.f90

@@ -80,6 +80,10 @@ module psb_d_linmap_mod
     module procedure psb_set_dmap_kind
   end interface
 
+  interface psb_map_cscnv
+    module procedure psb_d_map_cscnv
+  end interface
+
   interface psb_is_asb_map
     module procedure psb_is_asb_dlinmap
   end interface
@@ -131,6 +135,19 @@ contains
 
   end subroutine psb_set_dmap_kind
 
+  subroutine psb_d_map_cscnv(map,info,type,mold)    
+    use psb_mat_mod
+    implicit none
+    type(psb_dlinmap_type), intent(inout)  :: map
+    integer, intent(out)                   :: info
+    character(len=*), intent(in), optional :: type
+    class(psb_d_base_sparse_mat), intent(in), optional :: mold
+
+    call map%map_X2Y%cscnv(info,type=type,mold=mold)
+    if (info == psb_success_) call map%map_Y2X%cscnv(info,type=type,mold=mold)
+
+  end subroutine psb_d_map_cscnv
+
   function psb_is_asb_dlinmap(map) result(this)
     use psb_descriptor_type
     implicit none 

base/serial/impl/psb_d_mat_impl.F90

@@ -1013,8 +1013,8 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl)
   use psb_string_mod
   use psb_d_mat_mod, psb_protect_name => psb_d_cscnv
   implicit none 
-  class(psb_dspmat_type), intent(in)    :: a
+  class(psb_dspmat_type), intent(in)     :: a
-  class(psb_dspmat_type), intent(out)   :: b
+  class(psb_dspmat_type), intent(out)    :: b
   integer, intent(out)                   :: info
   integer,optional, intent(in)           :: dupl, upd
   character(len=*), optional, intent(in) :: type
@@ -1115,7 +1115,7 @@ subroutine psb_d_cscnv_ip(a,info,type,mold,dupl)
   use psb_d_mat_mod, psb_protect_name => psb_d_cscnv_ip
   implicit none 
 
-  class(psb_dspmat_type), intent(inout) :: a
+  class(psb_dspmat_type), intent(inout)  :: a
   integer, intent(out)                   :: info
   integer,optional, intent(in)           :: dupl
   character(len=*), optional, intent(in) :: type