From baf1c740f9c5482222fe9c75e7f20e0bcfbfa18f Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 14 Mar 2018 13:01:21 +0000 Subject: [PATCH] Fixed interface mismatch in multivect. --- base/tools/psb_callc.f90 | 2 +- base/tools/psb_dallc.f90 | 2 +- base/tools/psb_iallc.f90 | 2 +- base/tools/psb_sallc.f90 | 2 +- base/tools/psb_zallc.f90 | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) 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