Fixed INTENT(INOUT) on A for sparse factorizations, as they call

internally a C routine that shifts the indices.

psb_dslu_bld.f90

@@ -40,7 +40,7 @@ subroutine psb_dslu_bld(a,desc_a,p,info)
 
   implicit none 
 
-  type(psb_dspmat_type), intent(in)      :: a
+  type(psb_dspmat_type), intent(inout)   :: a
   type(psb_desc_type), intent(in)        :: desc_a
   type(psb_dbaseprc_type), intent(inout) :: p
   integer, intent(out)                   :: info

psb_prec_mod.f90

@@ -332,7 +332,7 @@ module psb_prec_mod
     subroutine psb_dslu_bld(a,desc_a,p,info)
       use psb_base_mod
       use psb_prec_type
-      type(psb_dspmat_type), intent(inout)      :: a
+      type(psb_dspmat_type), intent(inout)   :: a
       type(psb_desc_type), intent(in)        :: desc_a
       type(psb_dbaseprc_type), intent(inout) :: p
       integer, intent(out)                   :: info
@@ -351,7 +351,7 @@ module psb_prec_mod
     subroutine psb_dumf_bld(a,desc_a,p,info)
       use psb_base_mod
       use psb_prec_type
-      type(psb_dspmat_type), intent(inout)      :: a
+      type(psb_dspmat_type), intent(inout)   :: a
       type(psb_desc_type), intent(in)        :: desc_a
       type(psb_dbaseprc_type), intent(inout) :: p
       integer, intent(out)                   :: info
@@ -359,7 +359,7 @@ module psb_prec_mod
     subroutine psb_zumf_bld(a,desc_a,p,info)
       use psb_base_mod
       use psb_prec_type
-      type(psb_zspmat_type), intent(in)      :: a
+      type(psb_zspmat_type), intent(inout)   :: a
       type(psb_desc_type), intent(in)        :: desc_a
       type(psb_zbaseprc_type), intent(inout) :: p
       integer, intent(out)                   :: info

psb_zslu_bld.f90

@@ -40,7 +40,7 @@ subroutine psb_zslu_bld(a,desc_a,p,info)
 
   implicit none 
 
-  type(psb_zspmat_type), intent(in)      :: a
+  type(psb_zspmat_type), intent(inout)   :: a
   type(psb_desc_type), intent(in)        :: desc_a
   type(psb_zbaseprc_type), intent(inout) :: p
   integer, intent(out)                   :: info