Further fixes for uninitialized vars

base/serial/impl/psb_c_mat_impl.F90

@@ -4918,6 +4918,8 @@ subroutine psb_lc_mv_from_ib(a,b)
   class(psb_lcspmat_type), intent(inout) :: a
   class(psb_c_base_sparse_mat), intent(inout) :: b
   integer(psb_ipk_) :: info
+
+  info = psb_success_
   if (.not.allocated(a%a)) allocate(psb_lc_csr_sparse_mat :: a%a, stat=info)
   if (info == psb_success_) call a%a%mv_from_ifmt(b,info)
   
@@ -4933,6 +4935,7 @@ subroutine psb_lc_cp_from_ib(a,b)
   class(psb_c_base_sparse_mat), intent(inout) :: b
   integer(psb_ipk_) :: info
 
+  info = psb_success_
   if (.not.allocated(a%a)) allocate(psb_lc_csr_sparse_mat :: a%a, stat=info)
   if (info == psb_success_) call a%a%cp_from_ifmt(b,info)
 

base/serial/impl/psb_d_mat_impl.F90

@@ -4918,6 +4918,8 @@ subroutine psb_ld_mv_from_ib(a,b)
   class(psb_ldspmat_type), intent(inout) :: a
   class(psb_d_base_sparse_mat), intent(inout) :: b
   integer(psb_ipk_) :: info
+
+  info = psb_success_
   if (.not.allocated(a%a)) allocate(psb_ld_csr_sparse_mat :: a%a, stat=info)
   if (info == psb_success_) call a%a%mv_from_ifmt(b,info)
   
@@ -4933,6 +4935,7 @@ subroutine psb_ld_cp_from_ib(a,b)
   class(psb_d_base_sparse_mat), intent(inout) :: b
   integer(psb_ipk_) :: info
 
+  info = psb_success_
   if (.not.allocated(a%a)) allocate(psb_ld_csr_sparse_mat :: a%a, stat=info)
   if (info == psb_success_) call a%a%cp_from_ifmt(b,info)
 

base/serial/impl/psb_s_mat_impl.F90

@@ -4918,6 +4918,8 @@ subroutine psb_ls_mv_from_ib(a,b)
   class(psb_lsspmat_type), intent(inout) :: a
   class(psb_s_base_sparse_mat), intent(inout) :: b
   integer(psb_ipk_) :: info
+
+  info = psb_success_
   if (.not.allocated(a%a)) allocate(psb_ls_csr_sparse_mat :: a%a, stat=info)
   if (info == psb_success_) call a%a%mv_from_ifmt(b,info)
   
@@ -4933,6 +4935,7 @@ subroutine psb_ls_cp_from_ib(a,b)
   class(psb_s_base_sparse_mat), intent(inout) :: b
   integer(psb_ipk_) :: info
 
+  info = psb_success_
   if (.not.allocated(a%a)) allocate(psb_ls_csr_sparse_mat :: a%a, stat=info)
   if (info == psb_success_) call a%a%cp_from_ifmt(b,info)
 

base/serial/impl/psb_z_mat_impl.F90

@@ -4918,6 +4918,8 @@ subroutine psb_lz_mv_from_ib(a,b)
   class(psb_lzspmat_type), intent(inout) :: a
   class(psb_z_base_sparse_mat), intent(inout) :: b
   integer(psb_ipk_) :: info
+
+  info = psb_success_
   if (.not.allocated(a%a)) allocate(psb_lz_csr_sparse_mat :: a%a, stat=info)
   if (info == psb_success_) call a%a%mv_from_ifmt(b,info)
   
@@ -4933,6 +4935,7 @@ subroutine psb_lz_cp_from_ib(a,b)
   class(psb_z_base_sparse_mat), intent(inout) :: b
   integer(psb_ipk_) :: info
 
+  info = psb_success_
   if (.not.allocated(a%a)) allocate(psb_lz_csr_sparse_mat :: a%a, stat=info)
   if (info == psb_success_) call a%a%cp_from_ifmt(b,info)