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

Always allocate szs in psb_gather

Browse Source
This commit is contained in:
sfilippone
2023-11-07 10:56:23 +01:00
parent baf18cebd7
commit d718ef1e6d
6 changed files with 6 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/comm/psb_cgather.f90
+1 -3
View File
@@ -136,9 +136,7 @@ subroutine psb_cgather_vect(globx, locx, desc_a, info, iroot)
end if
end do
if ((me == root).or.(root == -1)) then
allocate(szs(np))
end if
allocate(szs(np))
loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then
base/comm/psb_dgather.f90
+1 -3
View File
@@ -136,9 +136,7 @@ subroutine psb_dgather_vect(globx, locx, desc_a, info, iroot)
end if
end do
if ((me == root).or.(root == -1)) then
allocate(szs(np))
end if
allocate(szs(np))
loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then
base/comm/psb_igather.f90
+1 -3
View File
@@ -136,9 +136,7 @@ subroutine psb_igather_vect(globx, locx, desc_a, info, iroot)
end if
end do
if ((me == root).or.(root == -1)) then
allocate(szs(np))
end if
allocate(szs(np))
loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then
base/comm/psb_lgather.f90
+1 -3
View File
@@ -136,9 +136,7 @@ subroutine psb_lgather_vect(globx, locx, desc_a, info, iroot)
end if
end do
if ((me == root).or.(root == -1)) then
allocate(szs(np))
end if
allocate(szs(np))
loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then
base/comm/psb_sgather.f90
+1 -3
View File
@@ -136,9 +136,7 @@ subroutine psb_sgather_vect(globx, locx, desc_a, info, iroot)
end if
end do
if ((me == root).or.(root == -1)) then
allocate(szs(np))
end if
allocate(szs(np))
loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then
base/comm/psb_zgather.f90
+1 -3
View File
@@ -136,9 +136,7 @@ subroutine psb_zgather_vect(globx, locx, desc_a, info, iroot)
end if
end do
if ((me == root).or.(root == -1)) then
allocate(szs(np))
end if
allocate(szs(np))
loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then