In CSCNV we should call b%set_asb(), not b%asb()

base/serial/impl/psb_c_mat_impl.F90

@@ -1112,9 +1112,6 @@ subroutine psb_c_b_csclip(a,b,info,&
 
 end subroutine psb_c_b_csclip
 
-
-
-
 subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl)
   use psb_error_mod
   use psb_string_mod
@@ -1197,7 +1194,7 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl)
 
   call move_alloc(altmp,b%a)
   call b%trim()
-  call b%asb() 
+  call b%set_asb() 
   call psb_erractionrestore(err_act)
   return
 
@@ -1208,8 +1205,6 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl)
 
 end subroutine psb_c_cscnv
 
-
-
 subroutine psb_c_cscnv_ip(a,info,type,mold,dupl)
   use psb_error_mod
   use psb_string_mod
@@ -1289,8 +1284,8 @@ subroutine psb_c_cscnv_ip(a,info,type,mold,dupl)
   end if
 
   call move_alloc(altmp,a%a)
-  call a%set_asb() 
   call a%trim()
+  call a%set_asb() 
   call psb_erractionrestore(err_act)
   return
 

base/serial/impl/psb_d_mat_impl.F90

@@ -1112,9 +1112,6 @@ subroutine psb_d_b_csclip(a,b,info,&
 
 end subroutine psb_d_b_csclip
 
-
-
-
 subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl)
   use psb_error_mod
   use psb_string_mod
@@ -1197,7 +1194,7 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl)
 
   call move_alloc(altmp,b%a)
   call b%trim()
-  call b%asb() 
+  call b%set_asb() 
   call psb_erractionrestore(err_act)
   return
 
@@ -1208,8 +1205,6 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl)
 
 end subroutine psb_d_cscnv
 
-
-
 subroutine psb_d_cscnv_ip(a,info,type,mold,dupl)
   use psb_error_mod
   use psb_string_mod
@@ -1289,8 +1284,8 @@ subroutine psb_d_cscnv_ip(a,info,type,mold,dupl)
   end if
 
   call move_alloc(altmp,a%a)
-  call a%set_asb() 
   call a%trim()
+  call a%set_asb() 
   call psb_erractionrestore(err_act)
   return
 

base/serial/impl/psb_s_mat_impl.F90

@@ -1112,9 +1112,6 @@ subroutine psb_s_b_csclip(a,b,info,&
 
 end subroutine psb_s_b_csclip
 
-
-
-
 subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl)
   use psb_error_mod
   use psb_string_mod
@@ -1197,7 +1194,7 @@ subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl)
 
   call move_alloc(altmp,b%a)
   call b%trim()
-  call b%asb() 
+  call b%set_asb() 
   call psb_erractionrestore(err_act)
   return
 
@@ -1208,8 +1205,6 @@ subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl)
 
 end subroutine psb_s_cscnv
 
-
-
 subroutine psb_s_cscnv_ip(a,info,type,mold,dupl)
   use psb_error_mod
   use psb_string_mod
@@ -1289,8 +1284,8 @@ subroutine psb_s_cscnv_ip(a,info,type,mold,dupl)
   end if
 
   call move_alloc(altmp,a%a)
-  call a%set_asb() 
   call a%trim()
+  call a%set_asb() 
   call psb_erractionrestore(err_act)
   return
 

base/serial/impl/psb_z_mat_impl.F90

@@ -1112,9 +1112,6 @@ subroutine psb_z_b_csclip(a,b,info,&
 
 end subroutine psb_z_b_csclip
 
-
-
-
 subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl)
   use psb_error_mod
   use psb_string_mod
@@ -1197,7 +1194,7 @@ subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl)
 
   call move_alloc(altmp,b%a)
   call b%trim()
-  call b%asb() 
+  call b%set_asb() 
   call psb_erractionrestore(err_act)
   return
 
@@ -1208,8 +1205,6 @@ subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl)
 
 end subroutine psb_z_cscnv
 
-
-
 subroutine psb_z_cscnv_ip(a,info,type,mold,dupl)
   use psb_error_mod
   use psb_string_mod
@@ -1289,8 +1284,8 @@ subroutine psb_z_cscnv_ip(a,info,type,mold,dupl)
   end if
 
   call move_alloc(altmp,a%a)
-  call a%set_asb() 
   call a%trim()
+  call a%set_asb() 
   call psb_erractionrestore(err_act)
   return