diff --git a/base/tools/psb_callc.f90 b/base/tools/psb_callc.f90
index a71c61b6..24d83cae 100644
--- a/base/tools/psb_callc.f90
+++ b/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
diff --git a/base/tools/psb_dallc.f90 b/base/tools/psb_dallc.f90
index 6b6d2078..844af068 100644
--- a/base/tools/psb_dallc.f90
+++ b/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
diff --git a/base/tools/psb_iallc.f90 b/base/tools/psb_iallc.f90
index d9edf8b1..7ec4e4bf 100644
--- a/base/tools/psb_iallc.f90
+++ b/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
diff --git a/base/tools/psb_sallc.f90 b/base/tools/psb_sallc.f90
index 7777a449..3852e67e 100644
--- a/base/tools/psb_sallc.f90
+++ b/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
diff --git a/base/tools/psb_zallc.f90 b/base/tools/psb_zallc.f90
index dcc2b677..e5417dec 100644
--- a/base/tools/psb_zallc.f90
+++ b/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