Merged fix for dynamic type of vector in diagonal solver build.

mlprec/impl/solver/mld_c_diag_solver_bld.f90

@@ -91,15 +91,10 @@ subroutine mld_c_diag_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
     end if
   end do
   allocate(sv%dv,stat=info) 
-  if (info == psb_success_) then 
-    if (present(vmold)) then 
-      allocate(sv%dv%v,mold=vmold,stat=info) 
-    else
-      allocate(psb_c_base_vect_type :: sv%dv%v,stat=info) 
-    end if
-  end if
   if (info == psb_success_) then 
     call sv%dv%bld(sv%d)
+    if (present(vmold)) call sv%dv%cnv(vmold)
+    call sv%dv%sync()
   else
     call psb_errpush(psb_err_from_subroutine_,name,& 
          & a_err='Allocate sv%dv')

mlprec/impl/solver/mld_d_diag_solver_bld.f90

@@ -91,15 +91,10 @@ subroutine mld_d_diag_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
     end if
   end do
   allocate(sv%dv,stat=info) 
-  if (info == psb_success_) then 
-    if (present(vmold)) then 
-      allocate(sv%dv%v,mold=vmold,stat=info) 
-    else
-      allocate(psb_d_base_vect_type :: sv%dv%v,stat=info) 
-    end if
-  end if
   if (info == psb_success_) then 
     call sv%dv%bld(sv%d)
+    if (present(vmold)) call sv%dv%cnv(vmold)
+    call sv%dv%sync()
   else
     call psb_errpush(psb_err_from_subroutine_,name,& 
          & a_err='Allocate sv%dv')

mlprec/impl/solver/mld_s_diag_solver_bld.f90

@@ -91,15 +91,10 @@ subroutine mld_s_diag_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
     end if
   end do
   allocate(sv%dv,stat=info) 
-  if (info == psb_success_) then 
-    if (present(vmold)) then 
-      allocate(sv%dv%v,mold=vmold,stat=info) 
-    else
-      allocate(psb_s_base_vect_type :: sv%dv%v,stat=info) 
-    end if
-  end if
   if (info == psb_success_) then 
     call sv%dv%bld(sv%d)
+    if (present(vmold)) call sv%dv%cnv(vmold)
+    call sv%dv%sync()
   else
     call psb_errpush(psb_err_from_subroutine_,name,& 
          & a_err='Allocate sv%dv')

mlprec/impl/solver/mld_z_diag_solver_bld.f90

@@ -91,15 +91,10 @@ subroutine mld_z_diag_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
     end if
   end do
   allocate(sv%dv,stat=info) 
-  if (info == psb_success_) then 
-    if (present(vmold)) then 
-      allocate(sv%dv%v,mold=vmold,stat=info) 
-    else
-      allocate(psb_z_base_vect_type :: sv%dv%v,stat=info) 
-    end if
-  end if
   if (info == psb_success_) then 
     call sv%dv%bld(sv%d)
+    if (present(vmold)) call sv%dv%cnv(vmold)
+    call sv%dv%sync()
   else
     call psb_errpush(psb_err_from_subroutine_,name,& 
          & a_err='Allocate sv%dv')