Fixed interface mismatch in multivect.

base/tools/psb_callc.f90

@@ -428,7 +428,7 @@ subroutine psb_calloc_multivect(x, desc_a,info,n)
   implicit none
 
   !....parameters...
-  type(psb_c_multivect_type), allocatable, intent(out)  :: x
+  type(psb_c_multivect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n

base/tools/psb_dallc.f90

@@ -428,7 +428,7 @@ subroutine psb_dalloc_multivect(x, desc_a,info,n)
   implicit none
 
   !....parameters...
-  type(psb_d_multivect_type), allocatable, intent(out)  :: x
+  type(psb_d_multivect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n

base/tools/psb_iallc.f90

@@ -428,7 +428,7 @@ subroutine psb_ialloc_multivect(x, desc_a,info,n)
   implicit none
 
   !....parameters...
-  type(psb_i_multivect_type), allocatable, intent(out)  :: x
+  type(psb_i_multivect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n

base/tools/psb_sallc.f90

@@ -428,7 +428,7 @@ subroutine psb_salloc_multivect(x, desc_a,info,n)
   implicit none
 
   !....parameters...
-  type(psb_s_multivect_type), allocatable, intent(out)  :: x
+  type(psb_s_multivect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n

base/tools/psb_zallc.f90

@@ -428,7 +428,7 @@ subroutine psb_zalloc_multivect(x, desc_a,info,n)
   implicit none
 
   !....parameters...
-  type(psb_z_multivect_type), allocatable, intent(out)  :: x
+  type(psb_z_multivect_type), intent(out)  :: x
   type(psb_desc_type), intent(in) :: desc_a
   integer(psb_ipk_),intent(out)             :: info
   integer(psb_ipk_), optional, intent(in)   :: n