Fix cnv method for unallocated vectors

base/modules/serial/psb_c_vect_mod.F90

@@ -526,10 +526,12 @@ contains
       allocate(tmp,stat=info,mold=psb_c_get_base_vect_default())
     end if
     if (allocated(x%v)) then
+      if (allocated(x%v%v)) then 
         call x%v%sync()
         if (info == psb_success_) call tmp%bld(x%v%v)
         call x%v%free(info)
       endif
+    end if
     call move_alloc(tmp,x%v)
 
   end subroutine c_vect_cnv

base/modules/serial/psb_d_vect_mod.F90

@@ -533,10 +533,12 @@ contains
       allocate(tmp,stat=info,mold=psb_d_get_base_vect_default())
     end if
     if (allocated(x%v)) then
+      if (allocated(x%v%v)) then 
         call x%v%sync()
         if (info == psb_success_) call tmp%bld(x%v%v)
         call x%v%free(info)
       endif
+    end if
     call move_alloc(tmp,x%v)
 
   end subroutine d_vect_cnv

base/modules/serial/psb_i_vect_mod.F90

@@ -473,10 +473,12 @@ contains
       allocate(tmp,stat=info,mold=psb_i_get_base_vect_default())
     end if
     if (allocated(x%v)) then
+      if (allocated(x%v%v)) then 
         call x%v%sync()
         if (info == psb_success_) call tmp%bld(x%v%v)
         call x%v%free(info)
       endif
+    end if
     call move_alloc(tmp,x%v)
 
   end subroutine i_vect_cnv

base/modules/serial/psb_l_vect_mod.F90

@@ -474,10 +474,12 @@ contains
       allocate(tmp,stat=info,mold=psb_l_get_base_vect_default())
     end if
     if (allocated(x%v)) then
+      if (allocated(x%v%v)) then 
         call x%v%sync()
         if (info == psb_success_) call tmp%bld(x%v%v)
         call x%v%free(info)
       endif
+    end if
     call move_alloc(tmp,x%v)
 
   end subroutine l_vect_cnv

base/modules/serial/psb_s_vect_mod.F90

@@ -533,10 +533,12 @@ contains
       allocate(tmp,stat=info,mold=psb_s_get_base_vect_default())
     end if
     if (allocated(x%v)) then
+      if (allocated(x%v%v)) then 
         call x%v%sync()
         if (info == psb_success_) call tmp%bld(x%v%v)
         call x%v%free(info)
       endif
+    end if
     call move_alloc(tmp,x%v)
 
   end subroutine s_vect_cnv

base/modules/serial/psb_z_vect_mod.F90

@@ -526,10 +526,12 @@ contains
       allocate(tmp,stat=info,mold=psb_z_get_base_vect_default())
     end if
     if (allocated(x%v)) then
+      if (allocated(x%v%v)) then 
         call x%v%sync()
         if (info == psb_success_) call tmp%bld(x%v%v)
         call x%v%free(info)
       endif
+    end if
     call move_alloc(tmp,x%v)
 
   end subroutine z_vect_cnv