psblas2:

base/modules/psb_tools_mod.f90

Added afmt into psb_linmap_asb interface.

base/modules/psb_tools_mod.f90

@@ -805,7 +805,7 @@ contains
 
   end subroutine psb_dlinmap_ins
 
-  subroutine psb_dlinmap_asb(a_map,cd_xt,descin,descout)
+  subroutine psb_dlinmap_asb(a_map,cd_xt,descin,descout,afmt)
     use psb_spmat_type
     use psb_descriptor_type
     use psb_serial_mod
@@ -813,6 +813,8 @@ contains
     type(psb_dspmat_type), intent(inout)   :: a_map
     type(psb_desc_type), intent(inout)     :: cd_xt
     type(psb_desc_type), intent(in)        :: descin, descout 
+    character(len=*), optional, intent(in) :: afmt
+          
 
     integer :: nrow_in, nrow_out, ncol_in, info, ictxt
 
@@ -820,7 +822,7 @@ contains
 
     call psb_cdasb(cd_xt,info)
     a_map%k = psb_cd_get_local_cols(cd_xt)
-    call psb_spcnv(a_map,info,afmt='CSR')
+    call psb_spcnv(a_map,info,afmt=afmt)
 
   end subroutine psb_dlinmap_asb
 
@@ -872,7 +874,7 @@ contains
 
   end subroutine psb_zlinmap_ins
 
-  subroutine psb_zlinmap_asb(a_map,cd_xt,descin,descout)
+  subroutine psb_zlinmap_asb(a_map,cd_xt,descin,descout,afmt)
     use psb_spmat_type
     use psb_descriptor_type
     use psb_serial_mod
@@ -880,6 +882,7 @@ contains
     type(psb_zspmat_type), intent(inout)   :: a_map
     type(psb_desc_type), intent(inout)     :: cd_xt
     type(psb_desc_type), intent(in)        :: descin, descout 
+    character(len=*), optional, intent(in) :: afmt
 
     integer :: nrow_in, nrow_out, ncol_in, info, ictxt
 
@@ -887,7 +890,7 @@ contains
 
     call psb_cdasb(cd_xt,info)
     a_map%k = psb_cd_get_local_cols(cd_xt)
-    call psb_spcnv(a_map,info,afmt='CSR')
+    call psb_spcnv(a_map,info,afmt=afmt)
 
   end subroutine psb_zlinmap_asb