psblas3:

base/modules/psb_c_linmap_mod.f90
 base/modules/psb_s_linmap_mod.f90
 base/modules/psb_z_linmap_mod.f90
 prec/psb_cprecbld.f90
 prec/psb_cprecinit.f90
 prec/psb_dprecbld.f90
 prec/psb_dprecinit.f90
 prec/psb_sprecbld.f90
 prec/psb_sprecinit.f90
 prec/psb_zprecbld.f90
 prec/psb_zprecinit.f90
 test/kernel/Makefile
 test/kernel/pdgenspmv.f90
 util/Makefile

Fixed map_cscnv for S/C/Z.
Mods for precbld/precinit USE statements for the benefit of the Cray
compiler.

base/modules/psb_c_linmap_mod.f90

@@ -100,6 +100,10 @@ module psb_c_linmap_mod
     module procedure psb_set_cmap_kind
   end interface
 
+  interface psb_map_cscnv
+    module procedure psb_c_map_cscnv
+  end interface
+
   interface psb_is_asb_map
     module procedure psb_is_asb_clinmap
   end interface
@@ -150,6 +154,20 @@ contains
 
   end subroutine psb_set_cmap_kind
 
+  subroutine psb_c_map_cscnv(map,info,type,mold)    
+    use psb_mat_mod
+    implicit none
+    type(psb_clinmap_type), intent(inout)  :: map
+    integer, intent(out)                   :: info
+    character(len=*), intent(in), optional :: type
+    class(psb_c_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_c_map_cscnv
+
   function psb_is_asb_clinmap(map) result(this)
     use psb_descriptor_type
     implicit none 

base/modules/psb_s_linmap_mod.f90

@@ -100,6 +100,10 @@ module psb_s_linmap_mod
     module procedure psb_set_smap_kind
   end interface
 
+  interface psb_map_cscnv
+    module procedure psb_s_map_cscnv
+  end interface
+
   interface psb_is_asb_map
     module procedure psb_is_asb_slinmap
   end interface
@@ -151,6 +155,20 @@ contains
 
   end subroutine psb_set_smap_kind
 
+  subroutine psb_s_map_cscnv(map,info,type,mold)    
+    use psb_mat_mod
+    implicit none
+    type(psb_slinmap_type), intent(inout)  :: map
+    integer, intent(out)                   :: info
+    character(len=*), intent(in), optional :: type
+    class(psb_s_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_s_map_cscnv
+
 
   function psb_is_asb_slinmap(map) result(this)
     use psb_descriptor_type

base/modules/psb_z_linmap_mod.f90

@@ -100,6 +100,10 @@ module psb_z_linmap_mod
     module procedure psb_set_zmap_kind
   end interface
 
+  interface psb_map_cscnv
+    module procedure psb_z_map_cscnv
+  end interface
+
   interface psb_is_asb_map
     module procedure psb_is_asb_zlinmap
   end interface
@@ -150,6 +154,20 @@ contains
 
   end subroutine psb_set_zmap_kind
 
+  subroutine psb_z_map_cscnv(map,info,type,mold)    
+    use psb_mat_mod
+    implicit none
+    type(psb_zlinmap_type), intent(inout)  :: map
+    integer, intent(out)                   :: info
+    character(len=*), intent(in), optional :: type
+    class(psb_z_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_z_map_cscnv
+
   function psb_is_asb_zlinmap(map) result(this)
     use psb_descriptor_type
     implicit none