*** empty log message ***

src/tools/psb_zsprn.f90

@@ -89,7 +89,7 @@ Subroutine psb_zsprn(a, desc_a,info)
   if (a%infoa(psb_state_) == psb_spmat_asb_) then
 
     a%aspk(:) = zzero
-     if (ibits(a%infoa(psb_upd_),2,1)==1) then 
+    if (psb_sp_getifld(psb_upd_,a,info)==psb_upd_perm_) then 
       if(a%fida(1:3).eq.'JAD') then
         a%ia1(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0
       else