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

Take out N from alloc_vect

Browse Source
This commit is contained in:
Salvatore Filippone
2019-12-15 18:36:34 +00:00
parent 3d79672a18
commit e97cab7ddc
12 changed files with 90 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/tools/psb_c_tools_mod.f90
+1 -2
View File
@@ -37,13 +37,12 @@ Module psb_c_tools_mod
use psb_c_multivect_mod, only : psb_c_base_multivect_type, psb_c_multivect_type
interface psb_geall
subroutine psb_calloc_vect(x, desc_a,info,n)
subroutine psb_calloc_vect(x, desc_a,info)
import
implicit none
type(psb_c_vect_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
end subroutine psb_calloc_vect
subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb)
import
base/modules/tools/psb_d_tools_mod.f90
+1 -2
View File
@@ -37,13 +37,12 @@ Module psb_d_tools_mod
use psb_d_multivect_mod, only : psb_d_base_multivect_type, psb_d_multivect_type
interface psb_geall
subroutine psb_dalloc_vect(x, desc_a,info,n)
subroutine psb_dalloc_vect(x, desc_a,info)
import
implicit none
type(psb_d_vect_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
end subroutine psb_dalloc_vect
subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb)
import
base/modules/tools/psb_i_tools_mod.f90
+1 -2
View File
@@ -36,13 +36,12 @@ Module psb_i_tools_mod
use psb_i_multivect_mod, only : psb_i_base_multivect_type, psb_i_multivect_type
interface psb_geall
subroutine psb_ialloc_vect(x, desc_a,info,n)
subroutine psb_ialloc_vect(x, desc_a,info)
import
implicit none
type(psb_i_vect_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
end subroutine psb_ialloc_vect
subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb)
import
base/modules/tools/psb_l_tools_mod.f90
+1 -2
View File
@@ -36,13 +36,12 @@ Module psb_l_tools_mod
use psb_l_multivect_mod, only : psb_l_base_multivect_type, psb_l_multivect_type
interface psb_geall
subroutine psb_lalloc_vect(x, desc_a,info,n)
subroutine psb_lalloc_vect(x, desc_a,info)
import
implicit none
type(psb_l_vect_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
end subroutine psb_lalloc_vect
subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb)
import
base/modules/tools/psb_s_tools_mod.f90
+1 -2
View File
@@ -37,13 +37,12 @@ Module psb_s_tools_mod
use psb_s_multivect_mod, only : psb_s_base_multivect_type, psb_s_multivect_type
interface psb_geall
subroutine psb_salloc_vect(x, desc_a,info,n)
subroutine psb_salloc_vect(x, desc_a,info)
import
implicit none
type(psb_s_vect_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
end subroutine psb_salloc_vect
subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb)
import
base/modules/tools/psb_z_tools_mod.f90
+1 -2
View File
@@ -37,13 +37,12 @@ Module psb_z_tools_mod
use psb_z_multivect_mod, only : psb_z_base_multivect_type, psb_z_multivect_type
interface psb_geall
subroutine psb_zalloc_vect(x, desc_a,info,n)
subroutine psb_zalloc_vect(x, desc_a,info)
import
implicit none
type(psb_z_vect_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
end subroutine psb_zalloc_vect
subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb)
import