fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 10:52:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed interface mismatch in multivect.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-03-14 13:01:21 +00:00
parent d63202590d
commit baf1c740f9
5 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_callc.f90
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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